Crypt::Rijndaelの罠

ちょっとはまったのでメモしておく。

my $data = 1;

//lengthが16の倍数じゃないとだめなので、=つけて調整してみる 

foreach( length($data) .. 15 ) { $data .= "=";} if length($data) %16; 

my $c = Crypt::Rijndael->new( $key , Crypt::Rijndael]]MODE_CBC() );

$c->set_iv($iv)

my $enc = $c->encrypt($data);

my $dec = $c->decrypt($enc);

print "Befour : " .$dec; 

//邪魔な=を除去

$dec =~ s/¥x3d+$//g;

print "After : " .$dec;

結果

Befour : 1===============

After : 1===============

あれ？

とりあえず除去前にchompしてみたり、あーだこーだしてみたけど原因わからなかったので、 

$dec .= "";

というおまじないをかました結果

Befour : 1===============

After : 1

解決！