cbc-aes

[KundanN]

Hi,

I am working on some encryption and my code is

 

use Crypt::CBC;

use MIME::Base64;

# use Crypt::OpenSSL::AES;

use Crypt::Rijndael;

 

my $iv = "\xc4\x37\xb4\x79\x2a\x85\x62\x33\xc1\x83\x99\x4a\xfe\x10\xa6\xb2";

my $key =
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";

 

my $cipher = Crypt::CBC->new(              -key    => $key,

 
-cipher => 'Crypt::Rijndael',

 
-header          => 'none',

 
-iv                  => $iv,  

 
-blocksize => 16,

 
-keylength => 128,

 
-padding         => 0,

                                                                        );

;

my $ciphertext = $cipher->encrypt('dentsu001');

my $encoded = encode_base64($ciphertext, '');

print $encoded, "\n";

 

then out put must be: T3FPTjQGXZk9XOkjyqrmfg==

but its coming : OoO5e3rOVxoh7BQD74RU6A==

 

I don't understand what is going wrong with my code.

 

Please advice,

 

Thanks,

Kundan