Net::SSH::Perl::Cipher::DES3 - Wrapper for SSH 3DES support
use Net::SSH::Cipher; my $cipher = Net::SSH::Cipher->new('DES3', $key); print $cipher->encrypt($plaintext);
Net::SSH::Perl::Cipher::DES3 provides 3DES encryption support for Net::SSH::Perl. To do so it wraps around Crypt::DES, a C/XS implementation of the DES algorithm.
The 3DES (three-key triple-DES) algorithm used here is in CBC mode with a key length of 24 bytes.
The first 8 bytes of the key are used as the first DES key, the second 8 bytes for the second key, etc. If the key $key that you pass to new is only 16 bytes, the first 8 bytes of $key will be used as the key for both the first and third DES ciphers.
Please see the Net::SSH::Perl manpage for author, copyright, and license information.