Advertisement
Guest User

Untitled

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