arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-22 16:18:09 +00:00
Code Issues Releases Wiki Activity

minor: some formatting fixes re: #225 (-m 13100 = Kerberos 5 TGS-REP etype 23)

Browse Source
This commit is contained in:
philsmd 2016-02-17 11:02:40 +01:00
parent e6900d82f6
commit 8298afa462
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/shared.c
View File

@ -18781,7 +18781,7 @@ int krb5tgs_parse_hash (char *input_buf, uint input_len, hash_t *hash_buf)
| hex_convert (p0) << 4; | hex_convert (p0) << 4;
} }
krb5tgs->edata2_len = strlen(edata_ptr - input_len)/(2 * 4); krb5tgs->edata2_len = strlen (edata_ptr - input_len) / (2 * 4);
salt->salt_buf[0] = krb5tgs->checksum[0]; salt->salt_buf[0] = krb5tgs->checksum[0];
salt->salt_buf[1] = krb5tgs->checksum[1]; salt->salt_buf[1] = krb5tgs->checksum[1];

38
tools/test.pl
View File

@ -2228,15 +2228,15 @@ sub verify
$user = substr ($user, 1); $user = substr ($user, 1);
my $realm = shift @data; my $realm = shift @data;
my $spn = shift @data; my $spn = shift @data;
$spn = substr ($spn, 0, length($spn) - 1); $spn = substr ($spn, 0, length ($spn) - 1);
my $checksum = shift @data; my $checksum = shift @data;
my $edata2 = shift @data; my $edata2 = shift @data;
next unless ($signature eq "krb5tgs"); next unless ($signature eq "krb5tgs");
next unless (length($checksum) == 32); next unless (length ($checksum) == 32);
next unless (length($edata2) == 64); next unless (length ($edata2) == 64);
$salt = $user.'$'.$realm.'$'.$spn.'$'.substr($edata2, 0, 16); $salt = $user . '$' . $realm . '$' . $spn . '$' . substr ($edata2, 0, 16);
next unless (exists ($db->{$hash_in}) and (! defined ($db->{$hash_in}))); next unless (exists ($db->{$hash_in}) and (! defined ($db->{$hash_in})));
} }
@ -2487,7 +2487,7 @@ sub verify
my $key = $pbkdf2->PBKDF2 ($salt_bin, $word); my $key = $pbkdf2->PBKDF2 ($salt_bin, $word);
my $cipher = Crypt::CBC->new({ my $cipher = Crypt::CBC->new ({
key => $key, key => $key,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_bin, iv => $salt_bin,
@ -2952,7 +2952,7 @@ sub passthrough
} }
elsif ($mode == 13100) elsif ($mode == 13100)
{ {
$salt_buf = get_random_kerberos5_tgs_salt(); $salt_buf = get_random_kerberos5_tgs_salt ();
$tmp_hash = gen_hash ($mode, $word_buf, $salt_buf); $tmp_hash = gen_hash ($mode, $word_buf, $salt_buf);
} }
@ -4755,7 +4755,7 @@ sub gen_hash
my $key = $pbkdf2->PBKDF2 ($salt, $word_buf); my $key = $pbkdf2->PBKDF2 ($salt, $word_buf);
my $cipher = Crypt::CBC->new({ my $cipher = Crypt::CBC->new ({
key => $key, key => $key,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $iv, iv => $iv,
@ -4811,7 +4811,7 @@ sub gen_hash
my $key = $pbkdf2->PBKDF2 ($salt_buf, $word_buf); my $key = $pbkdf2->PBKDF2 ($salt_buf, $word_buf);
my $cipher = Crypt::CBC->new({ my $cipher = Crypt::CBC->new ({
key => $key, key => $key,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $iv, iv => $iv,
@ -5404,7 +5404,7 @@ sub gen_hash
my $key1 = substr ($final1, 0, 16); my $key1 = substr ($final1, 0, 16);
my $key2 = substr ($final2, 0, 16); my $key2 = substr ($final2, 0, 16);
my $cipher1 = Crypt::CBC->new({ my $cipher1 = Crypt::CBC->new ({
key => $key1, key => $key1,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_buf, iv => $salt_buf,
@ -5414,7 +5414,7 @@ sub gen_hash
padding => "null", padding => "null",
}); });
my $cipher2 = Crypt::CBC->new({ my $cipher2 = Crypt::CBC->new ({
key => $key2, key => $key2,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_buf, iv => $salt_buf,
@ -5474,7 +5474,7 @@ sub gen_hash
my $key1 = substr ($final1, 0, 32); my $key1 = substr ($final1, 0, 32);
my $key2 = substr ($final2, 0, 32); my $key2 = substr ($final2, 0, 32);
my $cipher1 = Crypt::CBC->new({ my $cipher1 = Crypt::CBC->new ({
key => $key1, key => $key1,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_buf, iv => $salt_buf,
@ -5484,7 +5484,7 @@ sub gen_hash
padding => "null", padding => "null",
}); });
my $cipher2 = Crypt::CBC->new({ my $cipher2 = Crypt::CBC->new ({
key => $key2, key => $key2,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_buf, iv => $salt_buf,
@ -5891,7 +5891,7 @@ sub gen_hash
$data .= $word_buf . $block; $data .= $word_buf . $block;
} }
my $aes = Crypt::CBC->new({ my $aes = Crypt::CBC->new ({
key => substr ($block, 0, 16), key => substr ($block, 0, 16),
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => substr ($block, 16, 16), iv => substr ($block, 16, 16),
@ -6045,7 +6045,7 @@ sub gen_hash
my $data = get_random_string (32); my $data = get_random_string (32);
my $aes = Crypt::CBC->new({ my $aes = Crypt::CBC->new ({
key => substr ($hash_buf, 0, 32), key => substr ($hash_buf, 0, 32),
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => substr ($hash_buf, 32, 16), iv => substr ($hash_buf, 32, 16),
@ -6252,7 +6252,7 @@ sub gen_hash
$salt_buf .= "\x00" x $salt_padding_len; $salt_buf .= "\x00" x $salt_padding_len;
my $aes = Crypt::CBC->new({ my $aes = Crypt::CBC->new ({
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
key => $key, key => $key,
keysize => 32, keysize => 32,
@ -6324,7 +6324,7 @@ sub gen_hash
{ {
$algorithm = strtolower ($algorithm); $algorithm = strtolower ($algorithm);
if(! in_array ($algorithm, hash_algos (), true)) if (! in_array ($algorithm, hash_algos (), true))
{ {
trigger_error ("PBKDF2 ERROR: Invalid hash algorithm.", E_USER_ERROR); trigger_error ("PBKDF2 ERROR: Invalid hash algorithm.", E_USER_ERROR);
} }
@ -6363,7 +6363,7 @@ sub gen_hash
$output .= $xorsum; $output .= $xorsum;
} }
if($raw_output) if ($raw_output)
{ {
return substr ($output, 0, $key_length); return substr ($output, 0, $key_length);
} }
@ -6567,7 +6567,7 @@ END_CODE
my $key = $pbkdf2->PBKDF2 ($salt_buf_bin, $word_buf); my $key = $pbkdf2->PBKDF2 ($salt_buf_bin, $word_buf);
my $cipher = Crypt::CBC->new({ my $cipher = Crypt::CBC->new ({
key => $key, key => $key,
cipher => "Crypt::Rijndael", cipher => "Crypt::Rijndael",
iv => $salt_buf_bin, iv => $salt_buf_bin,
@ -6704,7 +6704,7 @@ END_CODE
my $edata2 = $cipher->RC4 (pack ("H*", $cleartext_ticket)); my $edata2 = $cipher->RC4 (pack ("H*", $cleartext_ticket));
$tmp_hash = sprintf ('$krb5tgs$23$*%s$%s$%s*$%s$%s', $user, $realm, $spn, unpack ("H*", $checksum), substr(unpack ("H*", $edata2), 0, 64)); $tmp_hash = sprintf ('$krb5tgs$23$*%s$%s$%s*$%s$%s', $user, $realm, $spn, unpack ("H*", $checksum), substr (unpack ("H*", $edata2), 0, 64));
} }
return ($tmp_hash); return ($tmp_hash);