1
0
mirror of https://github.com/hashcat/hashcat.git synced 2024-12-23 07:08:19 +00:00

Add -m 10100 unit test

This commit is contained in:
jsteube 2019-02-19 10:44:24 +01:00
parent b30495b901
commit 792aa56893

View File

@ -0,0 +1,55 @@
#!/usr/bin/env perl
##
## Author......: See docs/credits.txt
## License.....: MIT
##
use strict;
use warnings;
use Digest::SipHash qw (siphash);
sub module_constraints { [[-1, -1], [-1, -1], [0, 55], [32, 32], [-1, -1]] }
sub module_generate_hash
{
my $word = shift;
my $salt = shift;
my $seed = pack ("H*", $salt);
my ($hi, $lo) = siphash ($word, $seed);
my $hi_s = sprintf ("%08x", $hi);
my $lo_s = sprintf ("%08x", $lo);
$hi_s =~ s/^(..)(..)(..)(..)$/$4$3$2$1/;
$lo_s =~ s/^(..)(..)(..)(..)$/$4$3$2$1/;
my $hash = sprintf ("%s%s:2:4:%s", $hi_s, $lo_s, $salt);
return $hash;
}
sub module_verify_hash
{
my $line = shift;
my ($hash, undef, undef, $salt, $word) = split ":", $line;
next unless (length $hash == 16);
next unless (length $salt == 32);
next unless defined $hash;
next unless defined $salt;
next unless defined $word;
$word = pack_if_HEX_notation ($word);
my $new_hash = module_generate_hash ($word, $salt);
return ($new_hash, $word);
}
1;