|
|
|
@ -57,7 +57,7 @@ my $hashcat = "./hashcat";
|
|
|
|
|
|
|
|
|
|
my $MAX_LEN = 55;
|
|
|
|
|
|
|
|
|
|
my @modes = (0, 10, 11, 12, 20, 21, 22, 23, 30, 40, 50, 60, 100, 101, 110, 111, 112, 120, 121, 122, 125, 130, 131, 132, 133, 140, 141, 150, 160, 200, 300, 400, 500, 600, 900, 1000, 1100, 1300, 1400, 1410, 1411, 1420, 1430, 1440, 1441, 1450, 1460, 1500, 1600, 1700, 1710, 1711, 1720, 1730, 1740, 1722, 1731, 1750, 1760, 1800, 2100, 2400, 2410, 2500, 2600, 2611, 2612, 2711, 2811, 3000, 3100, 3200, 3710, 3711, 3300, 3500, 3610, 3720, 3800, 3910, 4010, 4110, 4210, 4300, 4400, 4500, 4520, 4521, 4522, 4600, 4700, 4800, 4900, 5000, 5100, 5300, 5400, 5500, 5600, 5700, 5800, 6000, 6100, 6300, 6400, 6500, 6600, 6700, 6800, 6900, 7000, 7100, 7200, 7300, 7400, 7500, 7700, 7800, 7900, 8000, 8100, 8200, 8300, 8400, 8500, 8600, 8700, 8900, 9100, 9200, 9300, 9400, 9500, 9600, 9700, 9800, 9900, 10000, 10100, 10200, 10300, 10400, 10500, 10600, 10700, 10800, 10900, 11000, 11100, 11200, 11300, 11400, 11500, 11600, 11900, 12000, 12001, 12100, 12200, 12300, 12400, 12600, 12700, 12800, 12900, 13000, 13100, 13200, 13300, 13400, 13500, 13600, 13800, 13900, 14000, 14100, 14400, 14700, 14800, 14900, 15000, 15100, 15200, 15300, 15400, 15500, 15600, 15700, 15900, 16000, 16100, 16200, 16300, 16400, 16500, 16600, 99999);
|
|
|
|
|
my @modes = (0, 10, 11, 12, 20, 21, 22, 23, 30, 40, 50, 60, 100, 101, 110, 111, 112, 120, 121, 122, 125, 130, 131, 132, 133, 140, 141, 150, 160, 200, 300, 400, 500, 600, 900, 1000, 1100, 1300, 1400, 1410, 1411, 1420, 1430, 1440, 1441, 1450, 1460, 1500, 1600, 1700, 1710, 1711, 1720, 1730, 1740, 1722, 1731, 1750, 1760, 1800, 2100, 2400, 2410, 2500, 2600, 2611, 2612, 2711, 2811, 3000, 3100, 3200, 3710, 3711, 3300, 3500, 3610, 3720, 3800, 3910, 4010, 4110, 4210, 4300, 4400, 4500, 4520, 4521, 4522, 4600, 4700, 4800, 4900, 5000, 5100, 5300, 5400, 5500, 5600, 5700, 5800, 6000, 6100, 6300, 6400, 6500, 6600, 6700, 6800, 6900, 7000, 7100, 7200, 7300, 7400, 7500, 7700, 7701, 7800, 7801, 7900, 8000, 8100, 8200, 8300, 8400, 8500, 8600, 8700, 8900, 9100, 9200, 9300, 9400, 9500, 9600, 9700, 9800, 9900, 10000, 10100, 10200, 10300, 10400, 10500, 10600, 10700, 10800, 10900, 11000, 11100, 11200, 11300, 11400, 11500, 11600, 11900, 12000, 12001, 12100, 12200, 12300, 12400, 12600, 12700, 12800, 12900, 13000, 13100, 13200, 13300, 13400, 13500, 13600, 13800, 13900, 14000, 14100, 14400, 14700, 14800, 14900, 15000, 15100, 15200, 15300, 15400, 15500, 15600, 15700, 15900, 16000, 16100, 16200, 16300, 16400, 16500, 16600, 99999);
|
|
|
|
|
|
|
|
|
|
my %is_utf16le = map { $_ => 1 } qw (30 40 130 131 132 133 140 141 1000 1100 1430 1440 1441 1730 1740 1731 5500 5600 8000 9400 9500 9600 9700 9800 11600 13500 13800);
|
|
|
|
|
my %less_fifteen = map { $_ => 1 } qw (500 1600 1800 3200 6300 7400 10500 10700);
|
|
|
|
@ -958,7 +958,7 @@ sub verify
|
|
|
|
|
$salt .= substr ($hash_in, $index3 + 1, $index2 - $index3 - 32 - 1);
|
|
|
|
|
}
|
|
|
|
|
# $salt$$hash
|
|
|
|
|
elsif ($mode == 7700 || $mode == 7800)
|
|
|
|
|
elsif ($mode == 7700 || $mode == 7800 || $mode == 7701 || $mode == 7801)
|
|
|
|
|
{
|
|
|
|
|
my $index1 = index ($line, ":");
|
|
|
|
|
|
|
|
|
@ -3659,13 +3659,13 @@ sub passthrough
|
|
|
|
|
|
|
|
|
|
$tmp_hash = gen_hash ($mode, $word_buf, $salt_buf);
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7700)
|
|
|
|
|
elsif ($mode == 7700 || $mode == 7701)
|
|
|
|
|
{
|
|
|
|
|
next if length ($word_buf) > 8;
|
|
|
|
|
|
|
|
|
|
$tmp_hash = gen_hash ($mode, $word_buf, substr ($salt_buf, 0, 12));
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7800)
|
|
|
|
|
elsif ($mode == 7800 || $mode == 7801)
|
|
|
|
|
{
|
|
|
|
|
$tmp_hash = gen_hash ($mode, $word_buf, substr ($salt_buf, 0, 12));
|
|
|
|
|
}
|
|
|
|
@ -4423,7 +4423,7 @@ sub single
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7700)
|
|
|
|
|
elsif ($mode == 7700 || $mode == 7701)
|
|
|
|
|
{
|
|
|
|
|
my $salt_len = get_random_num (1, 12);
|
|
|
|
|
|
|
|
|
@ -4439,7 +4439,7 @@ sub single
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7800)
|
|
|
|
|
elsif ($mode == 7800 || $mode == 7801)
|
|
|
|
|
{
|
|
|
|
|
my $salt_len = get_random_num (1, 12);
|
|
|
|
|
|
|
|
|
@ -6332,7 +6332,7 @@ sub gen_hash
|
|
|
|
|
|
|
|
|
|
$tmp_hash = sprintf ("\$krb5pa\$23\$%s\$%s\$%s\$%s%s", $user, $realm, $salt, unpack ("H*", $hash_buf), $hmac_salt);
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7700)
|
|
|
|
|
elsif ($mode == 7700 || $mode == 7701)
|
|
|
|
|
{
|
|
|
|
|
$word_buf = uc $word_buf;
|
|
|
|
|
$salt_buf = uc $salt_buf;
|
|
|
|
@ -6350,10 +6350,14 @@ sub gen_hash
|
|
|
|
|
|
|
|
|
|
$a ^= $c;
|
|
|
|
|
$b ^= $d;
|
|
|
|
|
|
|
|
|
|
$tmp_hash = sprintf ("%s\$%08X%08X", $salt_buf, $a, $b);
|
|
|
|
|
if ($mode == 7700) {
|
|
|
|
|
$tmp_hash = sprintf ("%s\$%08X%08X", $salt_buf, $a, $b);
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
$tmp_hash = sprintf ("%s\$%08X%08X", $salt_buf, $a, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7800)
|
|
|
|
|
elsif ($mode == 7800 || $mode == 7801)
|
|
|
|
|
{
|
|
|
|
|
my $theMagicArray_s =
|
|
|
|
|
"\x91\xac\x51\x14\x9f\x67\x54\x43\x24\xe7\x3b\xe0\x28\x74\x7b\xc2" .
|
|
|
|
@ -6398,9 +6402,13 @@ sub gen_hash
|
|
|
|
|
$offsetMagicArray += (($e >> 24) & 0xff) % 8;
|
|
|
|
|
|
|
|
|
|
my $hash_buf = sha1_hex ($word_buf . substr ($theMagicArray_s, $offsetMagicArray, $lengthMagicArray) . $salt_buf);
|
|
|
|
|
|
|
|
|
|
$tmp_hash = sprintf ("%s\$%s", $salt_buf, uc $hash_buf);
|
|
|
|
|
}
|
|
|
|
|
if ($mode == 7800) {
|
|
|
|
|
$tmp_hash = sprintf ("%s\$%s", $salt_buf, uc $hash_buf);
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
$tmp_hash = sprintf("%s\$%.20s%020X", $salt_buf, uc $hash_buf, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
elsif ($mode == 7900)
|
|
|
|
|
{
|
|
|
|
|
my $cost = 14;
|
|
|
|
|