#!/usr/bin/perl
use Crypt::Rijndael;

$key = chr(0) x 32; #key is all nulls here 
substr($key, 0, 1) = chr(1); #put 1 chr(1)in key just for fun 

print "key->$key\n";

$plaintext= "adrqwqqqqqqqqqqqqqqqqqqqqqqwrxcq4gfq3g2q45g2q43g5";
print "plaintext->$plaintext\n";
$plaintext16= get16($plaintext);
print "plaintext16->$plaintext16\n";


$cbc = new Crypt::Rijndael $key, Crypt::Rijndael::MODE_CBC;
$crypted = $cbc->encrypt($plaintext16);
print 'crypted->',"$crypted\n"; #keep encrypted string in different print string 
                                #to avoid character corruption of preceding string 

$cbc = new Crypt::Rijndael $key, Crypt::Rijndael::MODE_CBC;
$decrypted = $cbc->decrypt($crypted);
print "decrypted->$decrypted\n";

#this sub makes all data blocksize of 16 bytes. 
sub get16 {
    my $data = shift;
    print "data=$data\n";
      return "\0" x ( 16 - length($data)%16 ) . $data;
      }

exit;