mirror of https://github.com/hashcat/hashcat.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.2 KiB
60 lines
1.2 KiB
#!/usr/bin/env perl
|
|
|
|
##
|
|
## Author......: See docs/credits.txt
|
|
## License.....: MIT
|
|
##
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
for (my $i = 0, my $s = 0; $i < 16; $i++, $s++)
|
|
{
|
|
printf (" case %2d:\n", $i);
|
|
for (my $j = 32 - 1; $j >= 0; $j--)
|
|
{
|
|
my $jd4 = $j / 4;
|
|
my $jm4 = $j % 4;
|
|
|
|
my $js1d4 = ($j - $s - 1) / 4;
|
|
my $js1m4 = ($j - $s - 1) % 4;
|
|
|
|
my $js0d4 = ($j - $s - 0) / 4;
|
|
my $js0m4 = ($j - $s - 0) % 4;
|
|
|
|
next if (($j - $s) > 16);
|
|
|
|
my $c1 = "w";
|
|
my $c2 = "w";
|
|
my $c3 = "w";
|
|
|
|
if ($jd4 >= 4)
|
|
{
|
|
$jd4 -= 4;
|
|
|
|
$c1 = "c";
|
|
}
|
|
|
|
if ($js0d4 >= 4)
|
|
{
|
|
printf (" %s%d[%d] = hc_byte_perm_S ( 0, %s%d[%d], selector);\n", $c1, $jd4, $jm4, $c2, $js1d4, $js1m4);
|
|
}
|
|
elsif ((($j - $s - 1) >= 0) && (($j - $s - 0) >= 0))
|
|
{
|
|
printf (" %s%d[%d] = hc_byte_perm_S (%s%d[%d], %s%d[%d], selector);\n", $c1, $jd4, $jm4, $c2, $js0d4, $js0m4, $c3, $js1d4, $js1m4);
|
|
}
|
|
elsif (($j - $s - 0) >= 0)
|
|
{
|
|
printf (" %s%d[%d] = hc_byte_perm_S (%s%d[%d], 0, selector);\n", $c1, $jd4, $jm4, $c2, $js0d4, $js0m4);
|
|
}
|
|
else
|
|
{
|
|
printf (" %s%d[%d] = 0;\n", $c1, $jd4, $jm4);
|
|
}
|
|
}
|
|
printf ("\n");
|
|
|
|
printf (" break;\n");
|
|
printf ("\n");
|
|
}
|