Merge pull request #1957 from Fist0urs/master

m19700 test cases: remove debug strings

tools/test_modules/m19700.pm

@@ -59,8 +59,6 @@ sub module_generate_hash
 
   my $b_seed = $pbkdf2->PBKDF2 ($mysalt, $word);
 
-  printf "seed: %s\n", byte2hex($b_seed);
-
   # we can precompute this
   my $b_kerberos_nfolded = hex2byte('6b65726265726f737b9b5b2b93132b93');
 
@@ -68,14 +66,11 @@ sub module_generate_hash
 
   # 'key_bytes' will be the AES key used to generate 'ki' (for final hmac-sha1)
   # and 'ke' (AES key to decrypt/encrypt the ticket)
-  my $cbc       = Crypt::Mode::CBC->new ('AES', 0);
-
+  my $cbc         = Crypt::Mode::CBC->new ('AES', 0);
   my $b_key_bytes = $cbc->encrypt ($b_kerberos_nfolded, $b_seed, $b_iv);
 
   $b_key_bytes = $b_key_bytes . $cbc->encrypt ($b_key_bytes, $b_seed, $b_iv);
 
-  printf "key_bytes: %s\n", byte2hex($b_key_bytes);
-
   # precomputed stuff
   my $b_nfolded1 = hex2byte('62dc6e371a63a80958ac562b15404ac5');
   my $b_nfolded2 = hex2byte('b5b0582c14b6500aad56ab55aa80556a');
@@ -88,9 +83,6 @@ sub module_generate_hash
 
   $b_ke = $b_ke . $cbc->encrypt ($b_ke, $b_key_bytes, $b_iv);
 
-  printf "ki: %s\n", byte2hex($b_ki);
-  printf "ke: %s\n", byte2hex($b_ke);
-
   my $cleartext_ticket = '6381b03081ada00703050050a00000a11b3019a003020117a1'.
     '12041058e0d77776e8b8e03991f2966939222aa2171b154d594b5242544553542e434f4e5'.
     '44f534f2e434f4da3133011a003020102a10a30081b067472616e6365a40b3009a0030201'.