On Fri, 28 Feb 2003 16:15:27 -0600, [EMAIL PROTECTED] (Tyler Longren)
wrote:
>I found that if I change $data to "12345678", it works. How can I encrypt a
>string that has more than 8 characters?
>> When I run this code, I recieve this error:
>> "input must be 8 bytes long at
>> /usr/lib/perl5/site_perl/i386-linux/Crypt/Blowfish.pm line 56."
Try this:
#this sub makes all data blocksize of 8 bytes.
sub get8 {
my $data = shift;
return "\0" x ( 8 - length($data)%8 ) . $data;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
