diff --git a/tools/test_modules/m13400.pm b/tools/test_modules/m13400.pm index f4a641df5..a960eeb2e 100644 --- a/tools/test_modules/m13400.pm +++ b/tools/test_modules/m13400.pm @@ -239,14 +239,32 @@ sub module_generate_hash $final_algorithm = "Crypt::Rijndael"; } - my $cipher = Crypt::CBC->new ({ + my $cipher; + + if ($version == 1) + { + $cipher = Crypt::CBC->new ({ + key => $final_key, + cipher => $final_algorithm, + iv => $enc_iv, + literal_key => 1, + header => "none", + padding => "standard", + keysize => 32 + }); + } + else + { + $cipher = Crypt::CBC->new ({ key => $final_key, cipher => $final_algorithm, iv => $enc_iv, literal_key => 1, header => "none", + padding => "none", keysize => 32 }); + } my $hash; diff --git a/tools/test_modules/m29700.pm b/tools/test_modules/m29700.pm index 8b9c2a47a..a582c4948 100644 --- a/tools/test_modules/m29700.pm +++ b/tools/test_modules/m29700.pm @@ -243,14 +243,32 @@ sub module_generate_hash $final_algorithm = "Crypt::Rijndael"; } - my $cipher = Crypt::CBC->new ({ + my $cipher; + + if ($version == 1) + { + $cipher = Crypt::CBC->new ({ + key => $final_key, + cipher => $final_algorithm, + iv => $enc_iv, + literal_key => 1, + header => "none", + padding => "standard", + keysize => 32 + }); + } + else + { + $cipher = Crypt::CBC->new ({ key => $final_key, cipher => $final_algorithm, iv => $enc_iv, literal_key => 1, header => "none", + padding => "none", keysize => 32 }); + } my $hash;