API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 9th, 2017
127
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 14.05 KB | None | 0 0
raw download clone embed print report
  1. <?php
  2.  
  3. class aMessage {
  4.     var $nick, $user, $host, $sender, $cmd, $param, $mess, $wline;
  5. }
  6.  
  7. class aIRC {
  8.     var $cM, $host, $port, $cNick, $oldNick, $joinnick, $joinchan, $con, $auth, $toBeBanned, $firstcon, $mTableName, $cTableName, $server, $cmdChar, $locked, $pingpong, $masterNick, $quit, $MySQLServer, $MySQLDatabase, $MySQLAccountName, $MySQLAccountpassword;
  9. }
  10.  
  11. $IRC = new aIRC;
  12. $IRC->cM = new aMessage;
  13. $IRC->cM->param = array();
  14. $IRC->host = "irc.freenode.net";
  15. $IRC->port = 8001;
  16. $IRC->joinchan = array("#Tootoot222", "#SRL", "#mixster");
  17. $IRC->joinnick = "Toot^Bot";
  18. $IRC->cNick = $IRC->joinnick;
  19. $IRC->oldNick = "";
  20. $IRC->auth = "";
  21. $IRC->server = "";
  22. $IRC->cmdChar = "!";
  23. $IRC->locked = false;
  24. $IRC->pingpong = false;
  25.  
  26. $IRC->toBeBanned = array();
  27.  
  28. $IRC->MySQLServer = "localhost";   
  29. $IRC->MySQLDatabase = "ircbotv2";
  30. $IRC->MySQLAccountName = "root";
  31. $IRC->MySQLAccountpassword = "";
  32. $IRC->mTableName = "masters3";
  33. $IRC->cTableName = "cmd";
  34.  
  35. function output($message) {
  36.     echo("[" . date("H:i:s") . "] " . $message . "\r\n");
  37. }
  38.  
  39. function send($data, $out = true) {
  40.     if(!trim($data)) {
  41.       return;
  42.     }
  43.     global $fp;
  44.     $a = explode("\r\n", $data);
  45.     foreach($a as $aa) {
  46.         fputs($fp, $aa . "\r\n");
  47.         if($out) {
  48.             output("-> " . $aa);
  49.         }
  50.     }
  51. }
  52.  
  53. function startsWith($haystack, $needle) {
  54.     if(is_array($needle)) {
  55.         foreach($needle as $n) {
  56.             if(strpos($haystack, $n) === 0) {
  57.                 return($n);
  58.             }
  59.         }
  60.     }
  61.     return(strpos($haystack, $needle) === 0);
  62. }
  63.  
  64. function instr($haystack, $needle) {
  65.     return((strpos($haystack, $needle) != 0) || (strpos($haystack, $needle) === 0));
  66. }
  67.  
  68. function isNumber($s) {
  69.     $l = sizeof($s);
  70.     if($l == 0) {
  71.         return false;
  72.     }
  73.     for($i = 0; $i < $l; $i++) {
  74.         if(!in_array($s[$i], array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9"))) {
  75.             return false;
  76.         }
  77.     }
  78.     return true;
  79. }
  80.  
  81. function fetchcmdcode($cmd) {
  82.     global $IRC;
  83.     $row = mysql_fetch_array(mysql_query("SELECT code FROM " . $IRC->cTableName . " WHERE name='" . $cmd . "'", $IRC->con));
  84.     return($row["code"]);
  85. }
  86.  
  87. function fetchmasters($sel = true, $item = "*", $privs = 1, $ins = false) {
  88.     global $IRC;
  89.     if($sel) {
  90.         $q = mysql_query("SELECT " . $item . " FROM " . $IRC->mTableName, $IRC->con);
  91.         $r = array();
  92.         while($row = mysql_fetch_array($q)) {
  93.             $r[] = $row["name"];
  94.         }
  95.     }elseif($ins) {
  96.         mysql_query("INSERT INTO " . $IRC->mTableName . "(name, cname, privs) VALUES ('" . $item . "', '" . strtoupper($item) . "', " . $privs . ")", $IRC->con);
  97.     }else {
  98.         if($item) {
  99.             $n = " WHERE cname='" . strtoupper($item) . "'";
  100.         }
  101.         mysql_query("DELETE FROM " . $IRC->mTableName . $n, $IRC->con);
  102.     }
  103.     return($r);
  104. }
  105.  
  106. function isMaster($nick) {
  107.     global $IRC;
  108.     foreach(($IRC->masterNick = fetchmasters()) as $n) {
  109.         if(strtolower($n) == strtolower($nick)) {
  110.             return(true);
  111.         }
  112.     }
  113.     return(false);
  114. }
  115.  
  116. function handleNumberCommands() {
  117.     global $IRC;
  118.     switch($IRC->cM->cmd) {
  119.         case "001":
  120.             $IRC->server = $IRC->cM->host;
  121.             output($IRC->cM->mess);
  122.             if($IRC->firstcon) {
  123.                 send("NICK :" . $IRC->joinnick);
  124.                 send("PRIVMSG NickServ :ID " . $IRC->cNick . " " . $IRC->auth);
  125.                 foreach($IRC->joinchan as $c) {
  126.                     send("JOIN " . $c);
  127.                 }
  128.                 $IRC->firstcon = false;
  129.             }
  130.             break;
  131.         case "005":
  132.         case "252":
  133.         case "254":
  134.             output(trim($IRC->cM->param[0], $IRC->cNick . " ") . " " . $IRC->cM->mess);
  135.             break;
  136.         case "311":
  137.             output($IRC->cM->mess);
  138.             foreach($IRC->toBeBanned as $b) {
  139.                 if(startsWith($b, $IRC->cM->param[1])) {
  140.                     $w = explode(" ", $b);
  141.                     send("MODE " . $w[1] . " +b *!*@" . $IRC->cM->param[3]);
  142.                     $aa = $w[2] . " :";
  143.                     for($i = 3; $i < sizeof($w); $i++) {
  144.                         $aa = $aa . $w[$i] . " ";
  145.                     }
  146.                     $aa = trim($aa);
  147.                     send("KICK " . $w[1] . " " . $aa);
  148.                 }
  149.             }
  150.             break;
  151.         case "332":
  152.             output("Topic for " . $IRC->cM->param[1] . " is: " . $IRC->cM->mess);
  153.             break;
  154.         case "333":
  155.             output("Topic for " . $IRC->cM->param[1] . " set by " . $IRC->cM->param[2] . " on " . date("D M jS H:i:s", $IRC->cM->param[3]));
  156.             break;
  157.         case "421":
  158.             output("Unknown command: \"" . $IRC->cM->param[1] . "\"");
  159.             break;
  160.         case '433':
  161.             output("Nickname \"" . $IRC->cM->param[1] . "\" is already in use.");
  162.             $IRC->cNick = $IRC->oldNick;
  163.             if($IRC->firstcon) {
  164.                 send("NICK :" . $IRC->joinnick . rand(100, 999));
  165.                 send("PRIVMSG NickServ :ghost " . $IRC->joinnick . " " . $IRC->auth);
  166.             }          
  167.             break;
  168.         case '474':
  169.             output('Unable to join channel ' . $IRC->cM->param[1] . ': ' . $IRC->cM->mess);
  170.             break;
  171.         default:
  172.             output($IRC->cM->mess);
  173.             break;
  174.     }
  175.     return true;
  176. }
  177.  
  178. function handleBotCommands() {
  179.     global $IRC;
  180.     global $quit;
  181.     if((startsWith($IRC->cM->mess, $IRC->cmdChar)) && (strlen($IRC->cM->mess) > strlen($IRC->cmdChar)) && (strtolower($IRC->cM->nick) != strtolower($IRC->cNick))) {
  182.         $ismaster = isMaster($IRC->cM->nick);
  183.         $ispm = strtolower($IRC->cM->param[0]) == strtolower($IRC->cNick);
  184.         if((!$IRC->locked) || ($ismaster)) {
  185.             $a = explode(" ", substr($IRC->cM->mess, strlen($IRC->cmdChar)));
  186.             for($i = 1; $i < sizeof($a); $i++) {
  187.                 $r = $r . $a[$i] . " ";
  188.             }
  189.             $r = trim($r);
  190.             eval(fetchcmdcode(strtoupper($a[0])));
  191.             if($ismaster) {
  192.                 switch(strtoupper($a[0])) {
  193.                     case "QUIT" :
  194.                         if(!($q = $r)) {
  195.                             $q = "PHP bot made by Tootoot222. Version 2";
  196.                         }
  197.                         send("QUIT :" . $q);
  198.                         $quit = true;
  199.                         break;
  200.                     case "SEND":
  201.                         send($r);
  202.                         break;
  203.                     case "BIND":
  204.                         switch(strtoupper($a[1])) {
  205.                             case "ADD":
  206.                                 for($i = 3; $i < sizeof($a); $i++) {
  207.                                     $o = $o . $a[$i] . " ";
  208.                                 }
  209.                                 $o = trim($o);
  210.                                 send("PRIVMSG " . $IRC->cM->param[0] . " :Binding command " . strtoupper($a[2]));
  211.                                 mysql_query("DELETE FROM " . $IRC->cTableName . " WHERE name='" . strtoupper($a[2]) . "'", $IRC->con);
  212.                                 mysql_query("INSERT INTO " . $IRC->cTableName . "(name, code) VALUES ('" . strtoupper($a[2]) . "', '" . $o . "')", $IRC->con);
  213.                                 break;
  214.                             case "DEL":
  215.                                 mysql_query("DELETE FROM " . $IRC->cTableName . " WHERE name='" . strtoupper($a[2]) . "'", $IRC->con);
  216.                                 send("PRIVMSG " . $IRC->cM->param[0] . " :Command '" . strtoupper($a[2]) . "' was deleted.");
  217.                                 break;
  218.                             default:
  219.                                 fetchcmdcode($a[1]);
  220.                                 break;
  221.                         }
  222.                         break;
  223.                 }
  224.             }
  225.         }
  226.     }
  227. }
  228.  
  229. function handleChatCommands() {
  230.     global $IRC;
  231.     if(!$IRC->cM->nick) {
  232.         return false;
  233.     }
  234.     $chr1 = chr(001);
  235.     if((startsWith($IRC->cM->mess[0], $chr1)) && ($IRC->cM->mess[strlen($IRC->cM->mess) - 1] == $chr1)) {
  236.         $a = explode(" ", $IRC->cM->mess);
  237.         $tok = "";
  238.         for($i = 1; $i < sizeof($a); $i++) {
  239.             $tok = $tok . $a[$i] . " ";
  240.         }
  241.         $tok = trim(substr($tok, 0, strlen($tok) - 1));
  242.         if($tok) {
  243.             $tok = ": " . $tok;
  244.             $tok2 = strtoupper(substr($a[0], 1));
  245.         }else {
  246.             $tok2 = strtoupper(substr($a[0], 1, strlen($tok2) - 1));
  247.         }
  248.         if($tok2 != "ACTION") {
  249.             output($IRC->cM->nick . " [" . $IRC->cM->user . "@" . $IRC->cM->host . "] requested CTCP " . $tok2 . " from " . $IRC->cM->param[0] . $tok);
  250.         }
  251.         switch($tok2) {
  252.             case "ACTION":
  253.                 output("[" . $IRC->cM->param[0] . "] * " . $IRC->cM->nick . " " . $tok);
  254.                 break;
  255.             case "PING":
  256.                 send("NOTICE " . $IRC->cM->nick . " :" . $chr1 . "PING " . time() . $chr1);
  257.                 break;
  258.             case "TIME":
  259.                 send("NOTICE " . $IRC->cM->nick . " :" . $chr1 . "TIME " . date("D M jS H:i:s") . $chr1);
  260.                 break;
  261.             case "VERSION":
  262.                 send("NOTICE " . $IRC->cM->nick . " :" . $chr1 . "VERSION Toot PHP Bot v2" . $chr1);
  263.                 break;
  264.             case "FINGER":
  265.                 send("NOTICE " . $IRC->cM->nick . " :" . $chr1 . "FINGER wat" . $chr1);
  266.                 break;
  267.         }
  268.         return true;
  269.     }
  270.     if(strtolower($IRC->cM->param[0]) != strtolower($IRC->cNick)) {
  271.         output("[" . $IRC->cM->param[0] . "] <" . $IRC->cM->nick . "> " . $IRC->cM->mess);
  272.     }else {
  273.         output("*" . $IRC->cM->nick . "* " . $IRC->cM->mess);
  274.     }
  275.     if(startsWith($IRC->cM->mess, $IRC->cmdChar)) {
  276.         handleBotCommands();
  277.     }
  278.     return true;
  279. }
  280.  
  281. function handleNormalCommands() {
  282.     global $IRC;
  283.     global $lastping;
  284.     global $pongwait;
  285.     global $pingsent;
  286.     switch(strtoupper(trim($IRC->cM->cmd))) {
  287.         case "KICK":
  288.             if($IRC->cM->param[1] == $IRC->cNick) {
  289.                 $who = "You were";
  290.             }else {
  291.                 $who = $IRC->cM->param[1] . " was";
  292.             }
  293.             output("-!- " . $who . " kicked from " . $IRC->cM->param[0] . " by " . $IRC->cM->nick . " [" . $cMessage->mess . "]");
  294.             if($IRC->cM->param[1] == $IRC->cNick) {
  295.                 send("JOIN :" . $IRC->cM->param[0]);
  296.             }
  297.             break;
  298.         case "MODE":
  299.             $t = array();
  300.             if(strtolower($IRC->cNick) == strtolower($IRC->cM->param[0])) {
  301.                 $o = $IRC->cM->mess;
  302.             }else {
  303.                 for($i = 1; $i < sizeof($IRC->cM->param); $i++) {
  304.                     $o = $o . $IRC->cM->param[$i] . " ";
  305.                 }
  306.                 $o = trim($o);
  307.             }
  308.             if($IRC->cM->nick) {
  309.                 output("-!- mode/" . $IRC->cM->param[0] . " [" . $o . "] by " . $IRC->cM->nick);
  310.             }else {
  311.                 output("-!- mode/" . $IRC->cM->param[0] . " [" . $o . "] by " . $IRC->cM->host);
  312.             }
  313.             break;
  314.         case "NOTICE":
  315.             output("-" . $IRC->cM->nick . " [" . $IRC->cM->user . "@" . $IRC->cM->host . "]- " . $IRC->cM->mess);
  316.             break;
  317.         case "PRIVMSG":
  318.             return handleChatCommands();
  319.         case "PART":
  320.             output("-!- " . $IRC->cM->nick . " [" . $IRC->cM->user . "@" . $IRC->cM->host . "] has left " . $IRC->cM->param[0] . " [" . $IRC->cM->mess . "]");
  321.             break;
  322.         case "JOIN":
  323.             output("-!- " . $IRC->cM->nick . " [" . $IRC->cM->user . "@" . $IRC->cM->host . "] has joined " . $IRC->cM->mess);
  324.             break;
  325.         case "QUIT":
  326.             output("-!- " . $IRC->cM->nick . " [" . $IRC->cM->user . "@" . $IRC->cM->host . "] has quit [" . $IRC->cM->mess . "]");
  327.             break;
  328.         case "NICK":
  329.             if(strtolower($IRC->cM->mess) == strtolower($IRC->cNick)) {
  330.                 $who = "You are";
  331.                 $IRC->cNick = $IRC->cM->mess;
  332.             }else {
  333.                 $who = $IRC->cM->nick . " is";
  334.             }
  335.             output("-!- " . $who . " now known as " . $IRC->cM->mess);
  336.             if(isMaster($IRC->cM->nick)) {
  337.                 foreach(($IRC->masterNick = fetchmasters()) as $n) {
  338.                     if(strtolower($n) == strtolower($IRC->cM->nick)) {
  339.                         mysql_query("UPDATE " . $IRC->mTableName . " SET name='" . $IRC->cM->mess . "', cname='" . strtoupper($IRC->cM->mess) . "' WHERE cname='" . strtoupper($n) . "'");
  340.                     }
  341.                 }
  342.             }
  343.             if(strtolower($IRC->cM->nick) == strtolower($IRC->cNick)) {
  344.                 $IRC->cNick = $IRC->cM->mess;
  345.             }
  346.             break;
  347.         case "TOPIC":
  348.             output("-!- " . $IRC->cM->nick . " changed the topic of " . $IRC->cM->param[0] . " to: " . $IRC->cM->mess);
  349.             break;
  350.         case "PONG":
  351.             if($IRC->pingpong) {
  352.                 output("-!- Server PONG reply from " . $IRC->cM->host . ": " . $IRC->cM->param[0] . "; Time since PING request sent: " . (microtime(true) - $pingsent));
  353.             }
  354.             $lastping = time();
  355.             $pongwait = false;
  356.             break;
  357.         default:
  358.             return false;
  359.     }
  360.     return true;
  361. }
  362.  
  363. function parseMessage($buffer) {
  364.     global $IRC;
  365.     $a = explode("\n", $buffer);
  366.     foreach($a as $rawdata) {
  367.         if(!($IRC->cM->wline = trim($rawdata))) {
  368.             return;
  369.         }
  370.         switch($s = startsWith(strtoupper($IRC->cM->wline), array(":", "NOTICE", "PING", "ERROR"))) {
  371.             case ":":
  372.                 $IRC->cM->mess = substr($IRC->cM->wline, 1);
  373.                 $p = strpos($IRC->cM->mess, " ");
  374.                 $IRC->cM->host = substr($IRC->cM->mess, 0, $p);
  375.                 $IRC->cM->mess = substr($IRC->cM->mess, $p + 1);
  376.                 if(($p = strpos($IRC->cM->host, "!")) || ($p === 0)) {
  377.                     $IRC->cM->nick = substr($IRC->cM->host, 0, $p);
  378.                     $IRC->cM->host = substr($IRC->cM->host, $p + 1);
  379.                     if(($p = strpos($IRC->cM->host, "@")) || ($p === 0)) {
  380.                         $IRC->cM->user = substr($IRC->cM->host, 0, $p);
  381.                         $IRC->cM->host = substr($IRC->cM->host, $p + 1);
  382.                     }
  383.                 }
  384.                 $IRC->cM->cmd = substr($IRC->cM->mess, 0, $p = strpos($IRC->cM->mess, " "));
  385.                 $IRC->cM->mess = substr($IRC->cM->mess, $p + 1);
  386.                 if(!(($p = strpos($IRC->cM->mess, ":")) || ($p === 0))) {
  387.                     $p = strlen($IRC->cM->mess);
  388.                 }
  389.                 $IRC->cM->param = explode(" ", trim(substr($IRC->cM->mess, 0, $p)));
  390.                 $IRC->cM->mess = substr($IRC->cM->mess, $p + 1);
  391.                 if(isNumber($IRC->cM->cmd)) {
  392.                     if(handleNumberCommands()) {
  393.                         break;
  394.                     }
  395.                 }
  396.                 if(handleNormalCommands()) {
  397.                     break;
  398.                 }
  399.                 output("Unknown message: " . $IRC->cM->wline);
  400.                 break;
  401.             case "NOTICE":
  402.                 $IRC->cM->mess = substr($IRC->cM->wline, strpos($IRC->cM->wline, ":") + 1);
  403.                 $ss = $IRC->server;
  404.                 if(startsWith(strtoupper($IRC->cM->wline), "NOTICE AUTH")) {
  405.                     $ss = $IRC->host;
  406.                 }
  407.                 output("!" . $ss . " " . $IRC->cM->mess);
  408.                 break;
  409.             case "PING":
  410.                 if($IRC->pingpong) {
  411.                     output($rawdata);
  412.                 }
  413.                 $IRC->cM->wline[1] = "O";
  414.                 send($IRC->cM->wline, $IRC->pingpong);
  415.                 break;
  416.         }
  417.     }
  418. }
  419.  
  420. function onConnect() {
  421.     global $IRC;
  422.     send("USER " . $IRC->cNick . " * * :" . $IRC->cNick);
  423.     send("NICK " . $IRC->joinnick);
  424.     send("PRIVMSG NickServ :ID " . $IRC->cNick . " " . $IRC->auth);
  425.     foreach($IRC->joinchan as $c) {
  426.         send("JOIN " . $c);
  427.     }
  428. }
  429.  
  430. if(!$IRC->con = mysql_connect($IRC->MySQLServer, $IRC->MySQLAccountName, $IRC->MySQLAccountpassword)){
  431.     output("MySQL error in fetchcmdcode: " . mysql_error());
  432.     mysql_close($IRC->con);
  433.     die;
  434. }
  435. mysql_select_db($IRC->MySQLDatabase, $IRC->con);
  436.  
  437. $IRC->connected = false;
  438. $lastping = time();
  439. $pongwait = false;
  440. $pingsent = microtime(true);
  441. $IRC->masterNick = fetchmasters();
  442.    
  443. while(!$quit) {
  444.     if((($pongwait) && ((time() - $lastping) > 300)) || ((!$IRC->connected) || (feof($fp) && (!($quit))))) {
  445.         if($IRC->connected) {
  446.             send("QUIT :Lost connection");
  447.             fclose($fp);
  448.         }
  449.         $IRC->connected = false;
  450.         output("-!- Attempting to open connection to " . $IRC->host . ":" . $IRC->port);
  451.         if($fp = fsockopen($IRC->host, $IRC->port, $errno, $errdesc)) {
  452.             $IRC->firstcon = true;
  453.             output("-!- Connection established to " . $IRC->host . ":" . $IRC->port);
  454.             $IRC->connected = true;
  455.             onConnect();
  456.             $lastping = time();
  457.             $pongwait = false;
  458.         }else {
  459.             sleep(30);
  460.             continue;
  461.         }
  462.     }
  463.     if((!$pongwait) && (time() - $lastping) > 30) {
  464.         $pongwait = true;
  465.         $pingsent = microtime(true);
  466.         send("PING :" . $IRC->server, $IRC->pingpong);
  467.     }
  468.     if($rawdata = fgets($fp, 1024)) {
  469.         parseMessage($rawdata);
  470.     }
  471. }
  472. fclose($fp);
  473. mysql_close($IRC->con);
  474. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!