diff --git a/tools/test_modules/m26000.pm b/tools/test_modules/m26000.pm index def7351c5..4271f9ba7 100644 --- a/tools/test_modules/m26000.pm +++ b/tools/test_modules/m26000.pm @@ -31,11 +31,11 @@ sub module_generate_hash my $chp = sha1 ($hp . $entry_salt_bin); - my $k1 = hmac ($pes . $entry_salt_bin, $chp, \&sha1, 64); + my $k1 = hmac ($pes . $entry_salt_bin, $chp, \&sha1, 64); my $tk = hmac ($pes, $chp, \&sha1, 64); - my $k2 = hmac ($tk . $entry_salt_bin, $chp, \&sha1, 64); + my $k2 = hmac ($tk . $entry_salt_bin, $chp, \&sha1, 64); my $k = $k1 . $k2; @@ -57,17 +57,10 @@ sub module_generate_hash $pt1 = exclusive_or ($pt1, $iv); -print unpack ("H*", $ct1_bin), "\n"; -print unpack ("H*", $ct2_bin), "\n"; - my $pt2 = $ede3->decrypt ($ct2_bin); -print unpack ("H*", $pt2), "\n"; - $pt2 = exclusive_or ($pt2, $ct1_bin); -print unpack ("H*", $pt2), "\n"; - $pt = $pt1 . $pt2; if ($pt ne "password-check\x02\x02")