arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2025-02-19 19:12:11 +00:00
Code Issues Releases Wiki Activity

Added test_module for -m 200

Browse Source
This commit is contained in:
jsteube 2018-12-28 21:04:31 +01:00
parent 9b572d3faa
commit 14cda9b33c
2 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/test.sh
View File

@ -32,7 +32,7 @@ HASH_TYPES="0 10 11 12 20 21 22 23 30 40 50 60\
16200 16300 16400 16500 16600 16700 16800 16900 17300 17400 17500 17600 17700\ 16200 16300 16400 16500 16600 16700 16800 16900 17300 17400 17500 17600 17700\
17800 17900 18000 18100 18200 18300 18400 18500 18600 99999" 17800 17900 18000 18100 18200 18300 18400 18500 18600 99999"
HASH_TYPES="0 10 11 12 20 21 23 50 60 100 110 120 1000 1500 5600 18400 18500 18600" HASH_TYPES="0 10 11 12 20 21 23 50 60 100 110 120 200 1000 1500 5600 18400 18500 18600"
VECTOR_WIDTHS="1 2 4 8 16" VECTOR_WIDTHS="1 2 4 8 16"

44
tools/test_modules/m00200.pm Normal file
View File

@ -0,0 +1,44 @@
#!/usr/bin/env perl
##
## Author......: See docs/credits.txt
## License.....: MIT
##
use strict;
use warnings;
use Authen::Passphrase::MySQL323;
sub module_constraints { [[0, 256], [0, 0], [0, 55], [0, 0], [-1, -1]] }
sub module_generate_hash
{
my $word = shift;
my $ppr = Authen::Passphrase::MySQL323->new (passphrase => $word);
my $digest = $ppr->hash_hex;
my $hash = sprintf ("%s", $digest);
return $hash;
}
sub module_verify_hash
{
my $line = shift;
my ($hash, $word) = split (':', $line);
return unless defined $hash;
return unless defined $word;
my $word_packed = pack_if_HEX_notation ($word);
my $new_hash = module_generate_hash ($word_packed);
return ($new_hash, $word);
}
1;