Select Code to Download

use Crypt::CBC;
my $key = "a" x 32;
my $cipher = Crypt::CBC->new( -cipher => 'Rijndael', -key => $key );
my $ciphertext = $cipher->encrypt($plaintext);

use Crypt::CBC;
my $key = "a" x 32;
my $cipher = Crypt::CBC->new( -cipher => 'Rijndael', -key => $key );
my $plaintext  = $cipher->decrypt($ciphertext);