arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-12-31 19:01:05 +00:00
Code Issues Releases Wiki Activity

Remove some debugging code from tools/test_modules/m26000.pm

Browse Source
This commit is contained in:
Jens Steube 2021-04-17 21:28:20 +02:00
parent ee7d8ef0e7
commit 35aa0911d1
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/test_modules/m26000.pm
View File

@ -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")