arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-21 23:58:07 +00:00
Code Issues Releases Wiki Activity

tests: fixed -m 13200 = AxCrypt tests

Browse Source
This commit is contained in:
philsmd 2020-07-21 11:28:59 +02:00
parent c518240b67
commit 3ebb2ce163
No known key found for this signature in database
GPG Key ID: 4F25D016D9D6A8AF
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/changes.txt
View File

@ -31,6 +31,7 @@
- Backend: Changed the maximum number of compute devices from 64 to 128
- Tests: Improved tests for hash-mode 11300 (Bitcoin/Litecoin wallet.dat)
- Tests: Improved tests for hash-mode 13200 (AxCrypt)
- Tests: Improved tests for hash-mode 13600 (WinZip)
- Tests: Improved tests for hash-mode 16800 (WPA-PMKID-PBKDF2)

10
tools/test_modules/m13200.pm
View File

@ -51,7 +51,7 @@ sub module_generate_hash
$KEK = substr ($KEK ^ $mysalt, 0, 16);
my $aes = Crypt::Mode::ECB->new ('AES');
my $aes = Crypt::Mode::ECB->new ('AES', 0);
my $B;
@ -75,7 +75,7 @@ sub module_generate_hash
$B = $R[2];
$A = $aes->decrypt ($A . $B . "\x00" x 16, $KEK);
$A = $aes->decrypt (substr ($A . $B . "\x00" x 16, 0, 16), $KEK);
$R[2] = substr ($A, 8, 16);
@ -83,7 +83,7 @@ sub module_generate_hash
$B = $R[1];
$A = $aes->decrypt ($A . $B . "\x00" x 16, $KEK);
$A = $aes->decrypt (substr ($A . $B . "\x00" x 16, 0, 16), $KEK);
$R[1] = substr ($A, 8, 16);
}
@ -109,13 +109,13 @@ sub module_generate_hash
for (my $j = 0; $j < $iteration; $j++)
{
$B = $aes->encrypt ($A . $R[1], $KEK);
$B = $aes->encrypt (substr ($A . $R[1] . "\x00" x 16, 0, 16), $KEK);
$A = substr ($B, 0, 8) ^ pack ("q", (2 * $j + 1));
$R[1] = substr ($B, 8, 16);
$B = $aes->encrypt ($A . $R[2], $KEK);
$B = $aes->encrypt (substr ($A . $R[2] . "\x00" x 16, 0, 16), $KEK);
$A = substr ($B, 0, 8) ^ pack ("q", (2 * $j + 2));