Make -m 4710 more generic

2019-08-02 10:40:32 +02:00
parent a3d53e1527
commit c845d14601
6 changed files with 15 additions and 2430 deletions
@@ -11,12 +11,12 @@ use warnings;
 use Digest::MD5 qw (md5_hex);
 use Digest::SHA qw (sha1_hex);

-sub module_constraints { [[0, 256], [-1, -1], [0, 55], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 256], [0, 223], [-1, -1], [-1, -1], [-1, -1]] }

 sub module_generate_hash
 {
-  my $salt = random_hex_string (8, 8);
  my $word = shift;
+  my $salt = shift;

  my $digest = sha1_hex (md5_hex ($word) . $salt);