github/hashcat
1
Fork 0
mirror of https://github.com/hashcat/hashcat synced 2025-04-10 01:02:06 +02:00
Code Releases 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

7
tools/test_modules/m31200.pm

@ -11,6 +11,7 @@ use warnings;
use Crypt::PBKDF2; use Crypt::PBKDF2;
use Digest::SHA qw (sha1); use Digest::SHA qw (sha1);
use Crypt::CBC; use Crypt::CBC;
use Encode;
sub module_constraints { [[0, 256], [32, 32], [-1, -1], [-1, -1], [-1, -1]] } 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 $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 $key = substr ($pbkdf2key, 0, 32);
my $iv = substr ($pbkdf2key, 32, 16); my $iv = substr ($pbkdf2key, 32, 16);
@ -75,7 +78,7 @@ sub module_generate_hash
my $ct_bin = $aes_cbc->encrypt ($pt); 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; return $hash;
} }