print "\n---- Test6 -------- \n"; my $key_6 = 'test-math'; $key_6 .= "\0" x (16 - length($key_6)); my $plaintext_6 = 'test-math'; my $cipher_6 = Crypt::Rijndael->new( $key_6, Crypt::Rijndael::MODE_ECB ); my $encrypted_6 = $cipher_6->encrypt($plaintext_6); printf "%02x", ord $_ for split //, $encrypted_6; print "---- Fin test 6 ---\n";