diff --git a/tools/test_modules/m27000.pm b/tools/test_modules/m27000.pm
index bf279bfb9..709a747bc 100644
--- a/tools/test_modules/m27000.pm
+++ b/tools/test_modules/m27000.pm
@@ -91,7 +91,7 @@ sub get_random_netntlmv1_salt
   return $salt_buf;
 }
 
-sub module_constraints { [[32, 32], [-1, -1], [0, 27], [-1, -1], [-1, -1]] } # room for improvement in pure kernel mode
+sub module_constraints { [[32, 32], [-1, -1], [32, 32], [-1, -1], [-1, -1]] } # room for improvement in pure kernel mode
 
 sub module_generate_hash
 {
@@ -166,9 +166,9 @@ sub module_verify_hash
 
   my $word = substr ($line, $index2 + 1 + 16 + 1);
 
-  my $word_packed = pack ("H*", $word);
+  # my $word_packed = pack ("H*", $word);
 
-  my $new_hash = module_generate_hash ($word_packed, undef, $salt);
+  my $new_hash = module_generate_hash ($word, undef, $salt);
 
   return ($new_hash, $word);
 }
diff --git a/tools/test_modules/m27100.pm b/tools/test_modules/m27100.pm
index fef575c3b..e464aac23 100644
--- a/tools/test_modules/m27100.pm
+++ b/tools/test_modules/m27100.pm
@@ -12,7 +12,7 @@ use Digest::HMAC qw (hmac hmac_hex);
 use Digest::MD5  qw (md5);
 use Encode       qw (encode);
 
-sub module_constraints { [[32, 32], [32, 32], [32, 32], [0, 27], [-1, -1]] } 
+sub module_constraints { [[32, 32], [32, 32], [32, 32], [32, 32], [-1, -1]] } 
 
 sub module_generate_hash
 {