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

Added test_module for -m 300

This commit is contained in:
jsteube 2018-12-28 21:12:04 +01:00
parent 14cda9b33c
commit 92828910fe
2 changed files with 43 additions and 1 deletions

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 200 1000 1500 5600 18400 18500 18600"
HASH_TYPES="0 10 11 12 20 21 23 50 60 100 110 120 200 300 1000 1500 5600 18400 18500 18600"
VECTOR_WIDTHS="1 2 4 8 16"

View File

@ -0,0 +1,42 @@
#!/usr/bin/env perl
##
## Author......: See docs/credits.txt
## License.....: MIT
##
use strict;
use warnings;
use Crypt::MySQL qw (password41);
sub module_constraints { [[0, 256], [0, 0], [0, 55], [0, 0], [-1, -1]] }
sub module_generate_hash
{
my $word = shift;
my $digest = lc (substr (password41 ($word), 1));
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;