in reply to Can't pack "unpacked" stuff...
use strict ;
my $cipher = Crypt::CBC->new(-key => 'test',
-salt => 1) || die "Couldn't create CBC
my $cryptval = $cipher->encrypt_hex('secret word');
print " cryptval1 is $cryptval \n";
$cryptval = $cipher->decrypt_hex($cryptval);
print " cryptval2 is $cryptval \n";
Yes, I watch meteor showers
No, I do not watch meteor showers
My meteors prefer to bathe
Results (174 votes). Check out past polls.