github/hashcat
1
Fork 0
mirror of https://github.com/hashcat/hashcat synced 2025-01-17 23:17:27 +01:00
Code Releases 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\
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"

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;