arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-22 16:18:09 +00:00
Code Issues Releases Wiki Activity

Fix verify function in unit test for -m 23200

Browse Source
This commit is contained in:
Jens Steube 2020-07-31 11:00:43 +02:00
parent ade00c412b
commit 845aa5d4bf
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tools/test_modules/m23200.pm
View File

@ -54,19 +54,19 @@ sub module_verify_hash
my (undef, $signature, $type, $iter, $salt_len, $salt_hex, $hash_hex) = split '\$', $hash; my (undef, $signature, $type, $iter, $salt_len, $salt_hex, $hash_hex) = split '\$', $hash;
next unless defined $signature; return unless defined $signature;
next unless defined $type; return unless defined $type;
next unless defined $iter; return unless defined $iter;
next unless defined $salt_len; return unless defined $salt_len;
next unless defined $salt_hex; return unless defined $salt_hex;
next unless defined $hash_hex; return unless defined $hash_hex;
next unless ($signature eq 'xmpp-scram'); return unless ($signature eq 'xmpp-scram');
next unless ($type eq '0'); return unless ($type eq '0');
my $salt = pack ("H*", $salt_hex); my $salt = pack ("H*", $salt_hex);
next unless ($salt_len == length $salt); return unless ($salt_len == length $salt);
my $word_packed = pack_if_HEX_notation ($word); my $word_packed = pack_if_HEX_notation ($word);