Fix constraints in -m 30 and -m 40 and return array in -m 40

pull/1844/head
jsteube 5 years ago
parent 9ee247c6f8
commit 0baf8fc2f9

@ -11,7 +11,7 @@ use warnings;
use Digest::MD5 qw (md5_hex);
use Encode;
sub module_constraints { [[0, 127], [0, 255], [0, 27], [0, 54], [0, 27]] }
sub module_constraints { [[0, 255], [0, 255], [0, 27], [0, 55], [0, 27]] }
sub module_generate_hash
{

@ -11,7 +11,7 @@ use warnings;
use Digest::MD5 qw (md5_hex);
use Encode;
sub module_constraints { [[0, 127], [0, 127], [0, 27], [0, 55], [0, 27]] }
sub module_constraints { [[0, 255], [0, 255], [0, 27], [0, 55], [0, 27]] }
sub module_generate_hash
{
@ -39,7 +39,7 @@ sub module_verify_hash
my $new_hash = module_generate_hash ($word, $salt);
return $new_hash;
return ($new_hash, $word);
}
1;

Loading…
Cancel
Save