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";
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (396 votes). Check out past polls.