Adding final code to test.pl
authorFrancois Gaudreault <fgaudreault@cordialement.ca>
Wed, 27 Apr 2016 11:40:13 +0000 (07:40 -0400)
committerFrancois Gaudreault <fgaudreault@cordialement.ca>
Wed, 27 Apr 2016 11:40:13 +0000 (07:40 -0400)
tools/test.pl

index 9a56ac4..1db1d9e 100755 (executable)
@@ -2675,6 +2675,15 @@ sub verify
 
       return unless (substr ($line, 0, $len) eq $hash_out);
     }
+    elsif ($mode == 13500)
+    {
+      $hash_out = gen_hash ($mode, $word, $salt);
+
+      $len = length $hash_out;
+      print $hash_out;
+
+      return unless (substr ($line, 0, $len) eq $hash_out);
+    }
     else
     {
       $hash_out = gen_hash ($mode, $word, $salt, $iter);