Changed the test cases to expect the HEX

tools/test_modules/m27000.pm

@@ -8,7 +8,6 @@
 use strict;
 use warnings;
 
-use Authen::Passphrase::NTHash;
 use Digest::HMAC qw (hmac hmac_hex);
 use Digest::MD5  qw (md5);
 use Encode       qw (encode);
@@ -129,8 +128,8 @@ sub module_generate_hash
 
   my $ntresp;
 
-  # my $nthash = pack_if_HEX_notation ($word);
-  my $nthash   = pack ("H*", $word);
+  my $nthash = pack_if_HEX_notation ($word);
+  # my $nthash   = pack ("H*", $word);
   my $nthashpadded = $nthash . "\x00" x 5;
 
   $ntresp .= Crypt::ECB::encrypt (setup_des_key (substr ($nthashpadded,  0, 7)), "DES", $challenge, "none");

tools/test_modules/m27100.pm

@@ -29,8 +29,8 @@ sub module_generate_hash
   my $b_srv_ch = pack ('H*', $srv_ch);
   my $b_cli_ch = pack ('H*', $cli_ch);
 
-  # my $nthash = pack_if_HEX_notation ($word);
-  my $nthash   = pack ("H*", $word);
+  my $nthash = pack_if_HEX_notation ($word);
+  # my $nthash   = pack ("H*", $word);
   my $identity = encode ('UTF-16LE', uc ($user) . $domain);
   my $digest   = hmac_hex ($b_srv_ch . $b_cli_ch, hmac ($identity, $nthash, \&md5, 64), \&md5, 64);