1
mirror of https://github.com/hashcat/hashcat synced 2024-12-19 23:15:54 +01:00

m19700 test cases: remove debug strings

This commit is contained in:
Fist0urs 2019-03-13 22:22:54 +01:00
parent 14f66bb31d
commit 2a2d352c39

View File

@ -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'.