arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2025-01-18 11:40:58 +00:00
Code Issues Releases Wiki Activity

Add missing unicode conversion to unit test for new plugin 31200

Browse Source
This commit is contained in:
jsteube 2023-02-27 09:25:03 +00:00
parent d08f3cf7f6
commit f36f90e898
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/test_modules/m31200.pm
View File

@ -11,6 +11,7 @@ use warnings;
use Crypt::PBKDF2;
use Digest::SHA qw (sha1);
use Crypt::CBC;
use Encode;
sub module_constraints { [[0, 256], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
@ -30,7 +31,9 @@ sub module_generate_hash
my $salt_bin = pack ("H*", $salt);
my $pbkdf2key = $pbkdf2->PBKDF2 ($salt_bin, $word);
my $word_utf16le = encode ("UTF-16LE", $word);
my $pbkdf2key = $pbkdf2->PBKDF2 ($salt_bin, $word_utf16le);
my $key = substr ($pbkdf2key, 0, 32);
my $iv = substr ($pbkdf2key, 32, 16);
@ -75,7 +78,7 @@ sub module_generate_hash
my $ct_bin = $aes_cbc->encrypt ($pt);
my $hash = sprintf ('$vbk$*%s*%d*%s', pack ("H*", $salt_bin), $iter, pack ("H*", $ct_bin));
my $hash = sprintf ('$vbk$*%s*%d*%s', unpack ("H*", $salt_bin), $iter, unpack ("H*", $ct_bin));
return $hash;
}