mirror of
https://git.hardenedbsd.org/hardenedbsd/HardenedBSD.git
synced 2024-12-23 10:06:25 +01:00
161 lines
1.9 KiB
Perl
Executable File
161 lines
1.9 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
{
|
|
local(*a,$n)=@_;
|
|
local(@r,$i,$j,$k,$d,@z);
|
|
|
|
@r=&shift(*a,$n);
|
|
foreach $i (0 .. 31)
|
|
{
|
|
@z=split(/\^/,$r[$i]);
|
|
for ($j=0; $j <= $#z; $j++)
|
|
{
|
|
($d)=($z[$j] =~ /^(..)/);
|
|
($k)=($z[$j] =~ /\[(.*)\]$/);
|
|
$k.=",$n" if ($k ne "");
|
|
$k="$n" if ($k eq "");
|
|
$d="$d[$k]";
|
|
$z[$j]=$d;
|
|
}
|
|
$r[$i]=join('^',@z);
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub shift
|
|
{
|
|
local(*a,$n)=@_;
|
|
local(@f);
|
|
|
|
if ($n > 0)
|
|
{
|
|
@f=&shiftl(*a,$n);
|
|
}
|
|
else
|
|
{
|
|
@f=&shiftr(*a,-$n);
|
|
}
|
|
return(@f);
|
|
}
|
|
|
|
sub shiftr
|
|
{
|
|
local(*a,$n)=@_;
|
|
local(@r,$i);
|
|
|
|
$#r=31;
|
|
foreach $i (0 .. 31)
|
|
{
|
|
if (($i+$n) > 31)
|
|
{
|
|
$r[$i]="--";
|
|
}
|
|
else
|
|
{
|
|
$r[$i]=$a[$i+$n];
|
|
}
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub shiftl
|
|
{
|
|
local(*a,$n)=@_;
|
|
local(@r,$i);
|
|
|
|
$#r=31;
|
|
foreach $i (0 .. 31)
|
|
{
|
|
if ($i < $n)
|
|
{
|
|
$r[$i]="--";
|
|
}
|
|
else
|
|
{
|
|
$r[$i]=$a[$i-$n];
|
|
}
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub printit
|
|
{
|
|
local(@a)=@_;
|
|
local($i);
|
|
|
|
foreach $i (0 .. 31)
|
|
{
|
|
printf "%2s ",$a[$i];
|
|
print "\n" if (($i%8) == 7);
|
|
}
|
|
print "\n";
|
|
}
|
|
|
|
sub xor
|
|
{
|
|
local(*a,*b)=@_;
|
|
local(@r,$i);
|
|
|
|
$#r=31;
|
|
foreach $i (0 .. 31)
|
|
{
|
|
$r[$i]=&compress($a[$i].'^'.$b[$i]);
|
|
# $r[$i]=$a[$i]."^".$b[$i];
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub and
|
|
{
|
|
local(*a,$m)=@_;
|
|
local(@r,$i);
|
|
|
|
$#r=31;
|
|
foreach $i (0 .. 31)
|
|
{
|
|
$r[$i]=(($m & (1<<$i))?($a[$i]):('--'));
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub or
|
|
{
|
|
local(*a,*b)=@_;
|
|
local(@r,$i);
|
|
|
|
$#r=31;
|
|
foreach $i (0 .. 31)
|
|
{
|
|
$r[$i]='--' if (($a[$i] eq '--') && ($b[$i] eq '--'));
|
|
$r[$i]=$a[$i] if (($a[$i] ne '--') && ($b[$i] eq '--'));
|
|
$r[$i]=$b[$i] if (($a[$i] eq '--') && ($b[$i] ne '--'));
|
|
$r[$i]='++' if (($a[$i] ne '--') && ($b[$i] ne '--'));
|
|
}
|
|
return(@r);
|
|
}
|
|
|
|
sub compress
|
|
{
|
|
local($s)=@_;
|
|
local($_,$i,@a,%a,$r);
|
|
|
|
$s =~ s/\^\^/\^/g;
|
|
$s =~ s/^\^//;
|
|
$s =~ s/\^$//;
|
|
@a=split(/\^/,$s);
|
|
|
|
while ($#a >= 0)
|
|
{
|
|
$_=shift(@a);
|
|
next unless /\d/;
|
|
$a{$_}++;
|
|
}
|
|
foreach $i (sort keys %a)
|
|
{
|
|
next if ($a{$i}%2 == 0);
|
|
$r.="$i^";
|
|
}
|
|
chop($r);
|
|
return($r);
|
|
}
|
|
1;
|