arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-26 01:50:10 +00:00
Code Issues Releases Wiki Activity

fix test/verify for -m 28600

Browse Source
This commit is contained in:
philsmd 2022-06-29 17:53:33 +02:00
parent e0fae5c7ab
commit 18c2d5cea2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/test_modules/m28600.pm
View File

@ -35,7 +35,7 @@ sub module_generate_hash
my $pbkdf2_dgst = $pbkdf->PBKDF2 ($salt, $word); my $pbkdf2_dgst = $pbkdf->PBKDF2 ($salt, $word);
my $server_key = hmac ($HMAC_SALT, $pbkdf2_dgst, \&sha256); my $server_key = hmac ($HMAC_SALT, $pbkdf2_dgst, \&sha256);
my $stored_key = hmac ($HMAC_SALT_2, $pbkdf2_dgst, \&sha256); my $stored_key = sha256 (hmac ($HMAC_SALT_2, $pbkdf2_dgst, \&sha256));
my $hash = sprintf ('SCRAM-SHA-256$%i:%s$%s:%s', $iter, encode_base64 ($salt, ""), encode_base64 ($stored_key, ""), encode_base64 ($server_key, "")); my $hash = sprintf ('SCRAM-SHA-256$%i:%s$%s:%s', $iter, encode_base64 ($salt, ""), encode_base64 ($stored_key, ""), encode_base64 ($server_key, ""));
@ -46,7 +46,7 @@ sub module_verify_hash
{ {
my $line = shift; my $line = shift;
my $idx = index ($line, '$'); my $idx = rindex ($line, ':');
return unless $idx >= 0; return unless $idx >= 0;
@ -55,7 +55,7 @@ sub module_verify_hash
return unless substr ($hash, 0, 13) eq 'SCRAM-SHA-256'; return unless substr ($hash, 0, 13) eq 'SCRAM-SHA-256';
my (undef, $iter, $salt) = split ('\*|\$', $hash); my (undef, $iter, $salt) = split (':|\$', $hash);
return unless defined ($iter); return unless defined ($iter);
return unless defined ($salt); return unless defined ($salt);