From 35aa0911d199b66e274260be797bf3a80b8249a3 Mon Sep 17 00:00:00 2001 From: Jens Steube Date: Sat, 17 Apr 2021 21:28:20 +0200 Subject: [PATCH] Remove some debugging code from tools/test_modules/m26000.pm --- tools/test_modules/m26000.pm | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) 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")