arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-21 23:58:07 +00:00
Code Issues Releases Wiki Activity

fixes #2840: minor code style changes for OpenEdge tests

Browse Source
This commit is contained in:
philsmd 2021-06-22 10:40:24 +02:00 committed by GitHub
parent 6c670136c4
commit af95a63d40
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
tools/test_modules/m26200.pm
View File

@ -33,44 +33,56 @@ sub PE_encode
{
my $word_str = shift;
my $word_str_len = length($word_str);
my $word_str_len = length ($word_str);
my @word = split('', $word_str, $word_str_len);
my @word = split ('', $word_str, $word_str_len);
my @scratch = (0) x 16;
my @target = (0) x 16;
my $hash = 17;
my @target = (0) x 16;
my $hash = 17;
for (my $i=0; $i<5; $i++) {
for (my $j=0; $j<$word_str_len; $j++) {
for (my $i = 0; $i < 5; $i++)
{
for (my $j = 0; $j < $word_str_len; $j++)
{
my $idx = 15 - ($j % 16);
$scratch[$idx] ^= ord($word[$j]);
$scratch[$idx] ^= ord ($word[$j]);
}
for (my $j=0; $j<16; $j+=2) {
for (my $k=15; $k>=0; $k--) {
for (my $j = 0; $j < 16; $j += 2)
{
for (my $k = 15; $k >= 0; $k--)
{
$hash = (($hash & 0xffff) >> 8 ^ $PE_CONST[($hash & 0xff)] ^ $PE_CONST[$scratch[$k]]);
}
$scratch[$j] = $hash & 0xff;
$scratch[$j] = $hash & 0xff;
$scratch[$j+1] = ($hash >> 8) & 0xff;
}
}
my $low;
for (my $i=0; $i<16; $i++) {
$low = $scratch[$i] & 0x7f;
for (my $i = 0; $i < 16; $i++)
{
my $low = $scratch[$i] & 0x7f;
if ($low >= 65 && $low <= 90 || $low >= 97 && $low <= 122) {
if ($low >= 65 && $low <= 90)
{
$target[$i] = $low;
} else {
}
elsif ($low >= 97 && $low <= 122)
{
$target[$i] = $low;
}
else
{
$target[$i] = ((($scratch[$i] & 0xff) >> 4) + 0x61) & 0xff;
}
$target[$i] = chr($target[$i]);
$target[$i] = chr ($target[$i]);
}
return join '', @target;
return join ('', @target);
}
sub module_generate_hash