1Net::SSH::Perl::Cipher:U:sBelrowCfoinsthr(i3b)uted PerlNDeotc:u:mSeSnHt:a:tPieornl::Cipher::Blowfish(3)
2
3
4
6 Net::SSH::Perl::Cipher::Blowfish - Wrapper for SSH Blowfish support
7
9 use Net::SSH::Perl::Cipher;
10 my $cipher = Net::SSH::Perl::Cipher->new('Blowfish', $key);
11 print $cipher->encrypt($plaintext);
12
14 Net::SSH::Perl::Cipher::Blowfish provides Blowfish encryption support
15 for Net::SSH::Perl. To do so it wraps around Crypt::Cipher::Blowfish
16 from the CryptX module.
17
18 The blowfish used here is in CBC filter mode with a key length of 32
19 bytes.
20
21 SSH1 adds an extra wrinkle with respect to its blowfish algorithm:
22 before and after encryption/decryption, we have to swap the bytes in
23 the string to be encrypted/decrypted. The byte-swapping is done four
24 bytes at a time, and within each of those four-byte blocks we reverse
25 the bytes. So, for example, the string "foobarba" turns into
26 "boofabra". We swap the bytes in this manner in the string before we
27 encrypt/decrypt it, and swap the encrypted/decrypted string again when
28 we get it back.
29
30 This byte-swapping is not done when Blowfish is used in the SSH2
31 protocol.
32
34 Please see the Net::SSH::Perl manpage for author, copyright, and
35 license information.
36
37
38
39perl v5.32.0 2020-07-28Net::SSH::Perl::Cipher::Blowfish(3)