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.
48 lines
826 B
48 lines
826 B
#!/usr/bin/env perl
|
|
|
|
##
|
|
## Author......: See docs/credits.txt
|
|
## License.....: MIT
|
|
##
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
for (my $i = 0; $i < 64; $i++)
|
|
{
|
|
printf (" case %2d:\n", $i);
|
|
|
|
my $id4 = int ($i / 4);
|
|
my $im4 = int ($i % 4);
|
|
|
|
if ($im4 == 0)
|
|
{
|
|
printf (" w%d[%d] = 0;\n", $id4 / 4, $id4 % 4);
|
|
}
|
|
elsif ($im4 == 1)
|
|
{
|
|
printf (" w%d[%d] &= 0xff000000;\n", $id4 / 4, $id4 % 4);
|
|
}
|
|
elsif ($im4 == 2)
|
|
{
|
|
printf (" w%d[%d] &= 0xffff0000;\n", $id4 / 4, $id4 % 4);
|
|
}
|
|
elsif ($im4 == 3)
|
|
{
|
|
printf (" w%d[%d] &= 0xffffff00;\n", $id4 / 4, $id4 % 4);
|
|
}
|
|
|
|
for (my $j = $id4 + 1; $j < 16; $j++)
|
|
{
|
|
my $jd4 = int ($j / 4);
|
|
my $jm4 = int ($j % 4);
|
|
|
|
printf (" w%d[%d] = 0;\n", $jd4, $jm4);
|
|
}
|
|
|
|
printf ("\n");
|
|
|
|
printf (" break;\n");
|
|
printf ("\n");
|
|
}
|