A PHP IRC bot based on the CodeDemons PHP IRC bot skeleton with a few extra functions like MD5 sum forward and reverse and rudimentary Wikipedia and Wiktionary lookup.
Triggers[edit]
Edgar what is your purpose -> Help text, link to this page schwerer fehler / bug / error / kaputt -> Get random excuse !lang -> language codes (examples: !lang es !lang deu !lang Georgian) !gf -> Googlefight (example: !gf fnord foobar) !radio -> Current song playing !version / !revision -> Show current version wann geht die sonne auf wann geht die sonne unter wie lang ist der tag wie lang ist der tag spy on -> Search for a nickname on different IRC networks (Example: spy on fnord) dollar -> Get the Euro/Dollar conversion rate swear at -> Swear at a nick or something (Example: swear at John) teach -> make Edgar teach padma a term from Wiktionary (Example: teach fnord) 0900 -> lookup the registrar of a German 0900 number (Example: 0900 666666) http.. -> shows link title of a given URL neue exploits -> Get latest exploits from milw0rm RSS feed (Example: gibt es neue sicherheitsluecken?) define -> Get a word definition from Wiktionary (Example: define butterfly) FNORD -> FNORD!!!! IATA -> Get IATA airport codes from db (switched off) SONG -> Last track played on some webradio !svn -> show latest svn commit !boinc -> show SETI@home statistics (Example: !boinc DrOwl !boinc 72648) whois-> Check the owner of an IP (Example: whois 127.0.0.1) !geo -> Get geo/location data for an IP (Example: !geo 1.2.3.4) !md5 -> MD5 checksums forward and reverse (Example: !md5 -f fnord !md5 -r b15e400c8dbd6697f26385216d32a40f) !help -> Incomplete help text !wp -> Lookup (English or German) Wikipedia (Example: !wp en chimpanzee !wp en Schimpanse) !wk -> Lookup Wiktionary (Example: !wk en soup !wp de Suppe) !s23 -> Lookup S23 Wiki (Example: !s23 Edgar) !r13 -> rot13 a word (Example: !r13 foobar) !dns -> DNS lookup (Example: !dns fnord.org)
<HighlightSyntax>
- !/usr/bin/php
<?php
/* edgar, the php IRC bot, has its skeleton from demonbot, a demonstration from codedemons.net own functions added and changed by members of s23.org http://s23.org/wiki/Edgar
- /
$version = ""; //This line will be automaticaly edited by the update-script. Dont change this line!
/* Variables that determine server, channel, etc */ $CONFIG = array (); $CONFIG['server'] = 'irc.efnet.ch'; // server (i.e. irc.gamesnet.net) $CONFIG['nick'] = 'Edgar23'; // nick (i.e. demonbot $CONFIG['port'] = 6667; // port (standard: 6667) $CONFIG['channel'][] = '#s23'; // channel (i.e. #php) $CONFIG['channel'][] = '#seti23'; $CONFIG['channel'][] = '#bots'; $CONFIG['channel'][] = '#wiki'; $CONFIG['channel'][] = '#debian'; $CONFIG['name'] = 'Edgar Alice Pope'; // bot name (i.e. demonbot) $CONFIG['admin_pass'] = 'XXXXXX'; // admin pass (to change settings remotely) $CONFIG['myident'] = 'mutante'; $CONFIG['myhost'] = 'irc.s23.org';
/* Let it run forever (no timeouts) */ set_time_limit(0);
/* The connection */ $con = array ();
/* start the bot... */ init();
function init() { global $con, $CONFIG, $version; /* We need this to see if we need to JOIN (the channel) during the first iteration of the main loop */ $firstTime = true;
/* Connect to the irc server */ $con['socket'] = fsockopen($CONFIG['server'], $CONFIG['port']);
/* Check that we have connected */ if (!$con['socket']) { print ("Could not connect to: " . $CONFIG['server'] . " on port " . $CONFIG['port']); } else { /* Send the username and nick */
cmd_send("USER " . $CONFIG['name'] . " " . $CONFIG['myident'] . " " . $CONFIG['myhost'] . " " . $CONFIG['server'] . " :" . $CONFIG['nick']); cmd_send("NICK " . $CONFIG['nick']);
/* Here is the loop. Read the incoming data (from the socket connection) */ while (!feof($con['socket'])) { /* Think of $con['buffer']['all'] as a line of chat messages. We are getting a 'line' and getting rid of whitespace around it. */ $con['buffer']['all'] = trim(fgets($con['socket'], 4096));
/* Pring the line/buffer to the console I used <- to identify incoming data, -> for outgoing. This is so that you can identify messages that appear in the console. */ print date("[d/m @ H:i]") . "<- " . $con['buffer']['all'] . "\n";
/* If the server is PINGing, then PONG. This is to tell the server that we are still here, and have not lost the connection */
if (substr($con['buffer']['all'], 0, 6) == 'PING :') { /* PONG : is followed by the line that the server sent us when PINGing */ cmd_send('PONG :' . substr($con['buffer']['all'], 6)); }
/* If this is the first time we have reached this point, then JOIN the channel */ if ($firstTime == true) { foreach ($CONFIG['channel'] as $channel_name) { cmd_send("JOIN " . $channel_name); } /* The next time we get here, it will NOT be the firstTime */ $firstTime = false; } /* Make sure that we have a NEW line of chats to analyse. If we don't, there is no need to parse the data again */ elseif ($old_buffer != $con['buffer']['all']) { /* Determine the patterns to be passed to parse_buffer(). buffer is in the form: :username!~identd@hostname JOIN :#php :username!~identd@hostname PRIVMSG #PHP :action text :username!~identd@hostname command channel :text */
/* Right now this bot does nothing. But this is where you would add some conditions, or see what is being said in the chat, and then respond. Before you try doing that you should become familiar with how commands are send over IRC. Just read the console when you run this script, and then you will see the patterns in chats, i.e. where the username occurs, where the hostmask is, etc. All you need is functions such as preg_replace_callback(), or perhaps your own function that checks for patterns in the text.
Good Luck. */ parse_buffer();
### Triggers
# let the bot answer to the question "What is your purpose" if (preg_match("/What.*your purpose/i", $con['buffer']['text']) || preg_match("/^(Edgar|" . $CONFIG['nick'] . ").*(purpose|bot)/i", $con['buffer']['text'])) { cmd_send(prep_text("I'm here to help you with a lot of little tools. See also https://s23.org/wiki/Edgar")); //Bitte an alle: Dieser Text kann *deutlich* verbessert werden - wie w?re es mit einer Wiki-Seite die alle (relevanten) Commandos aufzaehlt, die edgar versteht? }
# took's trigger for random excuses for bugs if (preg_match("/(schwerer? fehler| error )/i", $con['buffer']['text'])) { cmd_send(prep_text("somebody said the bug was caused by a " . get_excuse())); } else if (preg_match("/(fix.* (bug|error))/i", $con['buffer']['text'])) { cmd_send(prep_text("The bug is caused by a " . get_excuse() . "! Sorry - Nothing I can help with...")); if (rand(0, 1) == 0 || preg_match("/(pls|please|bitte)/i", $con['buffer']['text'])) { $foo = explode(" ", "Padma Tentacle mutante Tentacle mutante Cavac Took Finn Finn Finn DrOwl Fnord Cosmea Phrack Hundfred"); $foo = $foo[array_rand($foo)]; cmd_send(prep_text("Maybe " . $foo . " is able to fix this?")); } } else if (preg_match("/(kapp?ut)/i", $con['buffer']['text'])) { cmd_send(prep_text("It's a " . get_excuse() . "...")); }
- language codes (ISO 639)
if (substr($con['buffer']['text'], 0, 5) == "!lang") {
- check length of commandline option
$arguments = explode(" ", $con['buffer']['text']);
$language = $arguments[1];
switch (strlen($language)) {
- if 2 or 3 chars long, consider it a code
case 2: case 3: $alpha=$language; $result=alpha2lang("$alpha"); cmd_send(prep_text("$result")); break;
- if longer, consider it a language name
default:
$langname=$language; $result=lang2alpha("$langname"); cmd_send(prep_text("$result")); }
}
- googlefight trigger !gf
if (substr($con['buffer']['text'], 0, 3) == "!gf") { $arguments = explode(" ", $con['buffer']['text']); $term1 = $arguments[1]; $term2 = $arguments[2]; cmd_send(prep_text(googlefight($term1, $term2))); }
- trigger for comfort radio "current song"
if (substr($con['buffer']['text'], 0, 6) == "!radio") { cmd_send(prep_text(comfort())); }
# show revision number if (substr($con['buffer']['text'], 0, 8) == "!version" OR substr($con['buffer']['text'], 0, 9) == "!revision") { cmd_send(prep_text("Edgar is alive again at revision " . $version)); }
# Sonnenaufgang und -untergang und so
if (substr($con['buffer']['text'], 0, 23) == "wann geht die sonne auf") { cmd_send(prep_text(sonne("auf"))); }
if (substr($con['buffer']['text'], 0, 25) == "wann geht die sonne unter") { cmd_send(prep_text(sonne("unter"))); }
if (substr($con['buffer']['text'], 0, 20) == "wie lang ist der tag") { cmd_send(prep_text(sonne("lang"))); }
if (substr($con['buffer']['text'], 0, 21) == "welcher tag ist heute") { cmd_send(prep_text(sonne("heute"))); }
# ircspy trigger "spy on $nick" if (substr($con['buffer']['text'], 0, 6) == "spy on") { $arguments = explode(" ", $con['buffer']['text']); $nick = $arguments[2]; cmd_send(prep_text("Spying on $nick...")); cmd_send(prep_text(ircspy($nick))); }
# dollar rate if (substr($con['buffer']['text'], 0, 6) == "dollar") { cmd_send(prep_text(dollar_euro())); }
# swear at $user feature if (substr($con['buffer']['text'], 0, 8) == "swear at") { $arguments=explode(" ",$con['buffer']['text']); $target=$arguments[2]; $arguments=explode(" in ",$con['buffer']['text']); $language=$arguments[1]; cmd_send(prep_text(swear($language,$target))); }
# trigger to teach padma (infobot/flooterbuck) from wiktionary
# calls wiktionary_teach , see below
if (substr($con['buffer']['text'], 0, 5) == "teach") {
$arguments=explode(" ",$con['buffer']['text']);
$language=$arguments[1];
$pagename=$arguments[2];
if (isset($arguments[3])) { $pagename=$arguments[2]."_".$arguments[3]; } if (isset($arguments[4])) { $pagename=$arguments[2]."_".$arguments[3]."_".$arguments[4]; } if (isset($arguments[5])) { $pagename=$arguments[2]."_".$arguments[3]."_".$arguments[4]."_".$arguments[5]; }
if (($language=="en" OR $language=="de") AND (isset($pagename))) { cmd_send(prep_text(wiktionary_teach($language,$pagename)." \n")); } else { $pagename=$arguments[1];
if (isset($arguments[2])) { $pagename=$arguments[1]."_".$arguments[2]; } if (isset($arguments[3])) { $pagename=$arguments[1]."_".$arguments[2]."_".$arguments[3]; } if (isset($arguments[4])) { $pagename=$arguments[1]."_".$arguments[2]."_".$arguments[3]."_".$arguments[4]; } $language="en"; cmd_send(prep_text(wiktionary_teach($language,$pagename)." \n")); } }
# lookup 0900 numbers
if (substr($con['buffer']['text'], 0, 4) == "0900") {
$arguments = explode(" ", $con['buffer']['text']);
$number = $arguments[1];
cmd_send(prep_text(ninehundred($number)));
}
# lookup linktitles if (preg_match("@^(.* |)(https?://[^ ]*).*@i", $con['buffer']['text'], $link)) { cmd_send(prep_text(linktitle($link[2]))); }
# get exploits from milw0rm.com RSS feed if (preg_match("/(neue? exploits| sicherheitsluecken )/i", $con['buffer']['text'])) { cmd_send(prep_text(getexploits())); }
# "define <word>"-trigger - Using Wiktionary like on Edgar's brother on #wiktionary Freenode
if (substr($con['buffer']['text'], 0, 6) == "define") {
$arguments=explode(" ",$con['buffer']['text']); $language=$arguments[1]; $pagename=$arguments[2]; array_shift($arguments);
# better code by took if (isset($arguments[2])) { $i=1; $pagename=; foreach($arguments as $arg) {
if ($i++>20) break;
$pagename .= $arg.'_'; } $pagename = substr($pagename, 0, -1); } if (($language=="en" OR $language=="de") AND (isset($pagename))) { cmd_send(prep_text(wiktionary($language,$pagename)." \n")); } else { $pagename=$arguments[1];
# better code by took if (isset($arguments[2])) { $i=1; $pagename=; foreach($arguments as $arg) {
if ($i++>20) break;
$pagename .= $arg.'_'; } $pagename = substr($pagename, 0, -1); } $language="en"; cmd_send(prep_text(wiktionary($language,$pagename)." \n")); } } # standard 4 character commands (!cmd)
switch (substr($con['buffer']['text'], 0, 4)) {
case "FNOR" : cmd_send(prep_text("FNORD!!!!")); break;
/* vor?bergehend abgeschaltet, da die ben?tigten tabellen in der db offenbar nicht vorhanden sind */ // case "IATA" : // $arguments = explode(" ", $con['buffer']['text']); // $code = $arguments[1]; // cmd_send(prep_text(iata($code))); // break;
case "SONG" : cmd_send(prep_text(lasttrack())); break;
case "!svn" : cmd_send(prep_text(svn($default))); break;
//case "http" : //$arguments=explode(" ",$con['buffer']['text']); //$link=$arguments[0]; //cmd_send(prep_text(linktitle($link))); //break;
case "!boi" : $arguments = explode(" ", $con['buffer']['text']); $user = $arguments[1]; cmd_send(prep_text(boincstats($user) . " \n")); break;
case "whoi" : $arguments = explode(" ", $con['buffer']['text']); $ip = $arguments[1]; cmd_send(prep_text(ipwhois($ip) . " \n")); break;
case "!geo" : $arguments = explode(" ", $con['buffer']['text']); $hostname = $arguments[1]; cmd_send(prep_text(geoip($hostname) . " \n")); break;
case "!md5" : $arguments = explode(" ", $con['buffer']['text']); $option = $arguments[1];
switch ($option) {
case "-f" : $cleartext = $arguments[2]; $md5hash = md5_forward($cleartext); cmd_send(prep_text("The hash for '$cleartext' is: $md5hash")); break;
case "-r" : $md5hash = $arguments[2]; list ($statusline, $cleartext) = md5_reverse($md5hash); cmd_send(prep_text("$statusline")); break;
default : cmd_send(prep_text("MD5 hashes forward and reverse. Either use !md5 -f <cleartext> OR !md5 -r <md5hash>")); }
break;
# Help function, NEEDS UPDATE case "!hel" : cmd_send(prep_text("I'm a very young bot. My current commands are only: !help and !md5 so far.")); break;
# Wikipedia (all languages, experimental)
case "!wp " :
$arguments = explode(" ", $con['buffer']['text']); $language = $arguments[1]; $pagename = $arguments[2];
# $input=str_replace(" ","_",$input);
cmd_send(prep_text(wikipedia($language, $pagename) . " \n")); break;
# S23-Wiki case "!s23" :
$arguments = explode(" ", $con['buffer']['text']); $pagename = $arguments[1];
# $input=str_replace(" ","_",$input);
cmd_send(prep_text(s23($pagename) . " \n")); break;
# Wiktionary (en and de)
case "!wk " : $arguments = explode(" ", $con['buffer']['text']); $language = $arguments[1]; $pagename = $arguments[2];
cmd_send(prep_text(wiktionary($language, $pagename) . " \n")); break;
case "!r13" : $arguments = explode(" ", $con['buffer']['text']); $input = $arguments[1]; cmd_send(prep_text(rot13($input) . " \n")); break;
case "!dns" : $arguments = explode(" ", $con['buffer']['text']); $input = $arguments[1]; cmd_send(prep_text(dns($input) . " \n")); break;
}
} $old_buffer = $con['buffer']['all']; } } }
/* Accepts the command as an argument, sends the command to the server, and then displays the command in the console for debugging */ function cmd_send($command) { global $con, $time, $CONFIG; /* Send the command. Think of it as writing to a file. */ fputs($con['socket'], $command . "\n\r"); /* Display the command locally, for the sole purpose of checking output. (line is not actually not needed) */ print (date("[d/m @ H:i]") . "-> " . $command . "\n\r");
}
function prep_text($message) { global $con; return ('PRIVMSG ' . $con['buffer']['channel'] . ' :' . $message); }
function parse_buffer() {
/* :username!~identd@hostname JOIN :#php :username!~identd@hostname PRIVMSG #PHP :action text :username!~identd@hostname command channel :text */
global $con, $CONFIG;
$buffer = $con['buffer']['all']; $buffer = explode(" ", $buffer, 4);
/* Get username */ $buffer['username'] = substr($buffer[0], 1, strpos($buffer['0'], "!") - 1);
/* Get identd */ $posExcl = strpos($buffer[0], "!"); $posAt = strpos($buffer[0], "@"); $buffer['identd'] = substr($buffer[0], $posExcl +1, $posAt - $posExcl -1); $buffer['hostname'] = substr($buffer[0], strpos($buffer[0], "@") + 1);
/* The user and the host, the whole shabang */ $buffer['user_host'] = substr($buffer[0], 1);
/* Isolate the command the user is sending from the "general" text that is sent to the channel This is privmsg to the channel we are talking about.
We also format $buffer['text'] so that it can be logged nicely. */ switch (strtoupper($buffer[1])) { case "JOIN" : $buffer['text'] = "*JOINS: " . $buffer['username'] . " ( " . $buffer['user_host'] . " )"; $buffer['command'] = "JOIN"; $buffer['channel'] = $CONFIG['channel']; break; case "QUIT" : $buffer['text'] = "*QUITS: " . $buffer['username'] . " ( " . $buffer['user_host'] . " )"; $buffer['command'] = "QUIT"; $buffer['channel'] = $CONFIG['channel']; break; case "NOTICE" : $buffer['text'] = "*NOTICE: " . $buffer['username']; $buffer['command'] = "NOTICE"; $buffer['channel'] = substr($buffer[2], 1); break; case "PART" : $buffer['text'] = "*PARTS: " . $buffer['username'] . " ( " . $buffer['user_host'] . " )"; $buffer['command'] = "PART"; $buffer['channel'] = $CONFIG['channel']; break; case "MODE" : $buffer['text'] = $buffer['username'] . " sets mode: " . $buffer[3]; $buffer['command'] = "MODE"; $buffer['channel'] = $buffer[2]; break; case "NICK" : $buffer['text'] = "*NICK: " . $buffer['username'] . " => " . substr($buffer[2], 1) . " ( " . $buffer['user_host'] . " )"; $buffer['command'] = "NICK"; $buffer['channel'] = $CONFIG['channel']; break;
default : // it is probably a PRIVMSG $buffer['command'] = $buffer[1]; $buffer['channel'] = $buffer[2]; $buffer['text'] = substr($buffer[3], 1); break; } $con['buffer'] = $buffer; }
- Get geodata, latitude and longitude, from a hostname, using netip.de
- mutante/s23.org - 2008/10
function geoip($hostname) { $buffer=file_get_contents("http://www.netip.de/search?query=$hostname"); $latitude=explode("var latitude",$buffer); $latitude=explode(";",$latitude[1]); $longitude=explode("var longitude",$buffer); $longitude=explode(";",$longitude[1]); $latitude=explode(" = ",$latitude[0]); $longitude=explode(" = ",$longitude[0]); return "Lat $latitude[1], Lon $longitude[1] - http://maps.google.com/maps?f=q&hl=en&geocode=&q=$latitude[1],+$longitude[1]&ie=UTF8&z=17&iwloc=addr"; }
- MD5 forward function
- input: a cleartext string
- output: the md5 hash for the input string
- by mutante/s23
function md5_forward($cleartext) { $md5hash = md5($cleartext); return $md5hash; }
- MD5 reverse function
- input: an md5 hash
- output: the cleartext matching the input hash
- uses http://gdataonline.com/seekhash.php
- by mutante/s23
function md5_reverse($md5hash) {
# we use the XML output of http://gdataonline.com/seekhash.php $url = "http://gdataonline.com/qkhash.php?mode=xml&hash=" . $md5hash; $buffer = file_get_contents($url);
# check the buffer switch ($buffer) {
# server answers but hash is invalid, have to check this first case "Hash not valid." : $statusline = "No success. the hash '$md5hash' is not valid."; break;
default :
# now we can try to find the <status> tag $status = explode("<status>", $buffer); $status = explode("</status>", $status[1]); $status = $status[0];
switch ($status) { # Success found inside <status> tag, then do the parsing case "Success" :
$result = explode("<result>", $buffer); $result = explode("</result>", $result[1]); $cleartext = $result[0];
$hexresult = explode("<hexresult>", $buffer); $hexresult = explode("</hexresult>", $hexresult[1]); $hexresult = $hexresult[0];
$b64result = explode("<b64result>", $buffer); $b64result = explode("</b64result>", $b64result[1]); $b64result = $b64result[0];
$hits = explode("<hits>", $buffer); $hits = explode("</hits>", $hits[1]); $hits = explode("/", $hits[0]); $hits = $hits[1];
# the message in case everything worked $statusline = "SUCCESS - The cleartext for $md5hash is '$cleartext'. (HEX: $hexresult B64: $b64result Hits: $hits)"; break;
# hash not found inside <status> case "Hash not found" : $statusline = "No success. the hash '$md5hash' was not found in the database."; break;
# All other cases, no <status> in buffer, or no reply at all from server.. default : $statusline = "'$status' No success. No or unusual answer from the database server."; } }
# we can only return multiple values as array $reverseresult[] = $statusline; $reverseresult[] = $cleartext; return $reverseresult;
}
- end reverse function
- Wikipedia function
function wikipedia($language, $pagename) { ini_set('user_agent', 'http://s23.org/wikistats/ | http://meta.wikimedia.org/wiki/User:mutante | mutante@s23.org'); $url = "http://" . $language . ".wikipedia.org/w/index.php?title=" . $pagename; $buffer = file_get_contents($url);
$summary = explode("", $buffer); $summary = $summary[1]; $summary = explode("
", $summary);$summary = $summary[0]; $summary = strip_tags($summary); $summary = str_replace("\n", " ", $summary); $summary = trim($summary); $summary = explode(". ", $summary);
if ($summary[2]) { $summary = $summary[0] . ". " . $summary[1] . ". " . $summary[2] . "."; } elseif ($summary[1]) { $summary = $summary[0] . ". " . $summary[1] . "."; } else { $summary = $summary[0] . "."; } $summary = substr($summary, 0, 320); $summary = "$pagename is " . $summary . "\n";
return $summary; }
- S23
function s23($pagename) { ini_set('user_agent', 'http://s23.org/wikistats/ | http://meta.wikimedia.org/wiki/User:mutante | mutante@s23.org'); $url = "http://s23.org/w/index.php?title=" . $pagename; $buffer = file_get_contents($url);
$summary = explode("", $buffer); $summary = $summary[1]; $summary = explode("
", $summary);$summary = $summary[0]; $summary = strip_tags($summary); $summary = str_replace("\n", " ", $summary); $summary = trim($summary); $summary = explode(". ", $summary);
if ($summary[2]) { $summary = $summary[0] . ". " . $summary[1] . ". " . $summary[2] . "."; } elseif ($summary[1]) { $summary = $summary[0] . ". " . $summary[1] . "."; } else { $summary = $summary[0] . "."; } $summary = substr($summary, 0, 320); $summary = "$pagename is " . $summary . "\n";
return $summary; }
- Wiktionary function
function wiktionary($language, $pagename) { ini_set('user_agent', 'http://s23.org/wikistats/ | http://meta.wikimedia.org/wiki/User:mutante | mutante@s23.org'); $url = "http://" . $language . ".wiktionary.org/wiki/" . $pagename;
# print "$url \n";
$buffer = file_get_contents($url);
# print $buffer; switch ($language) { case "de" :
$summary = explode("Bedeutungen:", $buffer); $summary = $summary[1]; $summary = explode("Herkunft", $summary); break;
case "en" :
$summary = explode("- ", $buffer);
$summary = $summary[1];
$summary = explode("
$summary = str_replace("countable", " ", $summary); break;
default : $summary = "Sorry, only supports en and de Wiktionary atm. But try Wikipedia (!wp <lang> <word>)"; }
$summary = $summary[0]; $summary = strip_tags($summary); $summary = str_replace("\n", " ", $summary); $summary = trim($summary); $summary = explode(". ", $summary);
if ($summary[2]) { $summary = $summary[0] . ". " . $summary[1] . ". " . $summary[2] . "."; } elseif ($summary[1]) { $summary = $summary[0] . ". " . $summary[1] . "."; } else { $summary = $summary[0] . "."; }
$summary = substr($summary, 0, 320); $pagename = str_replace("_"," ",$pagename);
$language=explode("<a name=\"",$buffer); $language=explode("\"",$language[1]); $language=$language[0]; $summary = "'$pagename' is $language: " . $summary . "\n"; return $summary; } function swear($language, $target) { ini_set('user_agent', 'a friendly IRC bot'); if ($language=="en") { $url = "http://en.wiktionary.org/wiki/Category:Vulgarities"; } else { $url = "http://en.wiktionary.org/wiki/Category:".$language.":Vulgarities"; } $buffer = file_get_contents($url); $buffer = explode("
- <a href=\"/wiki/",$buffer);
array_shift($buffer);
$word=array();
$counter=0;
foreach($buffer as $part) {
$wordcut=explode("\"",$part);
$word[$counter]=str_replace("_"," ",$wordcut[0]);
$counter++;
}
$pickaword=array_rand($word);
$sentence="$target: $word[$pickaword]\n";
return $sentence;
}
- Rot13
- DNS
- BOINC/SETI stats
", $buffer); $name = explode("
", $name[1]);$name = $name[0];
$total = explode("Total credit", $buffer); $total = explode("", $total[1]); $total = $total[0]; $rc_avg = explode("Recent average credit", $buffer); $rc_avg = explode("", $rc_avg[1]); $rc_avg = $rc_avg[0]; $type = explode("Type", $buffer); $type = explode("", $type[1]); $type = $type[0]; $newmembers = explode("New members in last day", $buffer); $newmembers = explode("", $newmembers[1]); $newmembers = $newmembers[0]; $totmembers = explode("Total members", $buffer);$totmembers = explode(" (", $totmembers[1]); $totmembers = $totmembers[0];
$actmembers = explode("Active members", $buffer);$actmembers = explode(" (", $actmembers[1]); $actmembers = $actmembers[0];
$credmembers = explode("Members with credit", $buffer);$credmembers = explode(" (", $credmembers[1]); $credmembers = $credmembers[0];
$founder = explode("Founder", $buffer); $founder = explode("", $founder[1]); $founder = $founder[0]; $founder = strip_tags($founder); $founder = trim($founder); return "SETI Team '$name' (ID: 110055 - Type: $type - Founder: $founder): Total Credit: $total - Recent Avg: $rc_avg - Members: $totmembers (Active: $actmembers - With Credit: $credmembers - New Yesterday: $newmembers)"; } else { return "Bad Input. Please supply a user ID or known seti23 nick, or ask mutante to be added. \n"; } $url = "http://setiathome.berkeley.edu/show_user.php?userid=$userid"; $buffer = file_get_contents($url); $username = explode("Account data for ", $buffer); $username = explode("
", $username[1]);$username = $username[0];
$total = explode("Total credit", $buffer); $total = explode("", $total[1]); $total = $total[0]; $rc_avg = explode("Recent average credit", $buffer); $rc_avg = explode("", $rc_avg[1]); $rc_avg = $rc_avg[0]; $classic_wus = explode("SETI@home classic workunits", $buffer); $classic_wus = explode("", $classic_wus[1]); $classic_wus = $classic_wus[0]; $classic_cpu = explode("SETI@home classic CPU time", $buffer); $classic_cpu = explode("", $classic_cpu[1]); $classic_cpu = $classic_cpu[0]; $member_since = explode("SETI@home member since", $buffer); $member_since = explode("", $member_since[1]); $member_since = $member_since[0]; $country = explode("Country", $buffer); $country = explode("", $country[1]); $country = $country[0]; $url = explode("URL<a href=\"", $buffer);$url = explode("\">", $url[1]); $url = $url[0];
return "Boinc stats for: '$username' ($userid): Total credit: $total - Recent Avg: $rc_avg - Classic WUs: $classic_wus - Classic CPU time: $classic_cpu - Member since: $member_since - Country: $country - URL: $url"; }
- last track from webradio, for finn, by mutante
function lasttrack() { $url = "http://fm4.orf.at/trackservicepopup/main?tmp=41"; $buffer = file_get_contents($url); $buffer = str_replace("\n", "", $buffer); # echo $buffer; $heute = explode("heute:
$heute = explode("
", $buffer);
", $heute[1]); $heute = explode("
", $heute[0]); $lasttrack = array_slice($heute, -2, 1); $lasttrack = strip_tags(trim($lasttrack[0])); $answer = "Last song played: " . $lasttrack; return $answer; }- IATA airport codes
- mutante & phrack at scrum @phrack home 02/08
- if somebody mentions a http link, return the <title> of the page
- mutante and finn in screen session, idea by finn
- advanced features by took
- random excuses by took
- show svn logs in IRC, --mutante
- replaced with new function on 08/03/03
- Googlefight implementation by mutante
- spy on other irc users (searchirc.com)
Status:", $chunk); $status = explode("", $status[1]); $status = $status[0]; if ($status != "No such nick") { $output .= "Hit $hitcount: detected $nick on $network as $fnick ($realname) on $channels using $server. | "; $hitcount++; } } return $output; }- ip-whois by phrack & mutante 20080210
- Lookup the registrar of a German 0900 number at regtp.de
- mutante / s23
", $diensteanbieter[1]); $firma = trim(strip_tags($diensteanbieter[0])); $strasse = trim(strip_tags($diensteanbieter[1])); $ort = strip_tags(trim($diensteanbieter[3])); $ort = explode("\n", $ort); $ort = $ort[0]; $datum = explode("Datum der Zuteilung der Rufnummer:", $buffer); $datum = explode("\n", $datum[1]); $datum = trim(strip_tags($datum[0])); $output = "0900-" . $number . " gehoert der " . $firma . " in " . $strasse . ", " . $ort . " und wurde registriert am " . $datum . "."; $output = str_replace("\n", "", $output); $output = str_replace("\r", "", $output); return $output; }- Wann geht die Sonne auf ? (und unter) Und wie lange dauerts noch?
- mutante / s23
", $sonnenaufgang[1]); $daemmerung = explode("
", $daemmerung[0]); $daemmerung = trim($daemmerung[1]); $sonnenaufgang = explode("", $sonnenaufgang[1]); $sonnenaufgang = $sonnenaufgang[0]; $sonnenaufgang = explode(":", $sonnenaufgang); $sonnenaufgang_std = $sonnenaufgang[0]; $sonnenaufgang_min = $sonnenaufgang[1]; $daemmerung = explode(":", $daemmerung); $daemmerung_std = $daemmerung[0]; $daemmerung_min = $daemmerung[1]; $restminuten1 = 60 - $minute; $restminuten1 = $restminuten1 + $sonnenaufgang_min; $reststunden1 = 24 - $stunde + $sonnenaufgang_std -1; if ($restminuten1 > 59) { $restminuten1 = $restminuten1 -60; $reststunden1 = $reststunden1 +1; } if ($stunde == $sonnenaufgang_std) { $reststunden1 = 0; $restminuten1 = $sonnenaufgang_min - $minute; $bis_zum_aufgang = "$restminuten1 Minuten"; } else { $bis_zum_aufgang = "$reststunden1 Stunden und $restminuten1 Minuten"; } $restminuten2 = 60 - $minute; $restminuten2 = $restminuten2 + $daemmerung_min; $reststunden2 = 24 - $stunde + $sonnenaufgang_std -1; if ($restminuten2 > 59) { $restminuten2 = $restminuten2 -60; $reststunden2 = $reststunden2 +1; } if ($stunde == $daemmerung_std) { $reststunden2 = 0; $restminuten2 = $daemmerung_min - $minute; $bis_anfang_daemmerung = "$restminuten2 Minuten"; } else { $bis_anfang_daemmerung = "$reststunden2 Stunden und $restminuten2 Minuten"; } $output = "Die Sonne geht morgen um ${sonnenaufgang_std}:${sonnenaufgang_min} Uhr auf und die Daemmerung beginnt ab ${daemmerung_std}:${daemmerung_min} Uhr. Noch $bis_anfang_daemmerung bis die Daemmerung anfaengt und $bis_zum_aufgang bis zum Sonnenaufgang."; break; case "unter" : $sonnenuntergang = explode("", $buffer); $daemmerung = explode("Dämmerung
", $sonnenuntergang[2]); $daemmerung = explode("
", $daemmerung[0]); $daemmerung = trim($daemmerung[1]); $sonnenuntergang = explode("", $sonnenuntergang[2]); $sonnenuntergang = $sonnenuntergang[0]; $sonnenuntergang = explode(":", $sonnenuntergang); $sonnenuntergang_std = $sonnenuntergang[0]; $sonnenuntergang_min = $sonnenuntergang[1]; $daemmerung = explode(":", $daemmerung); $daemmerung_std = $daemmerung[0]; $daemmerung_min = $daemmerung[1]; $restminuten1 = 60 - $minute; $restminuten1 = $restminuten1 + $sonnenuntergang_min; $reststunden1 = $sonnenuntergang_std - $stunde -1; if ($restminuten1 > 59) { $restminuten1 = $restminuten1 -60; $reststunden1 = $reststunden1 +1; } if ($stunde == $sonnenuntergang_std) { $reststunden1 = 0; $restminuten1 = $sonnenuntergang_min - $minute; $bis_zum_untergang = "$restminuten1 Minuten"; } else { $bis_zum_untergang = "$reststunden1 Stunden und $restminuten1 Minuten"; } $restminuten2 = 60 - $minute; $restminuten2 = $restminuten2 + $daemmerung_min; $reststunden2 = $daemmerung_std - $stunde -1; if ($restminuten2 > 59) { $restminuten2 = $restminuten2 -60; $reststunden2 = $reststunden2 +1; } if ($stunde == $daemmerung_std) { $reststunden2 = 0; $restminuten2 = $daemmerung_min - $minute; $bis_ende_daemmerung = "$restminuten2 Minuten"; } else { $bis_ende_daemmerung = "$reststunden2 Stunden und $restminuten2 Minuten"; } $output = "Die Sonne geht heute um ${sonnenuntergang_std}:${sonnenuntergang_min} Uhr unter und die Daemmerung dauert bis ${daemmerung_std}:${daemmerung_min} Uhr. Noch $bis_zum_untergang bis es die Sonne untergeht und $bis_ende_daemmerung bis es richtig dunkel wird."; break; case "lang" : $tageslaenge = explode("", $buffer); $tageslaenge = explode("", $tageslaenge[3]);$tageslaenge = $tageslaenge[0]; $output = "Der heutige Tag (${tag}.${monat}) ist ${tageslaenge} lang.";
break;
case "heute" : $output = "Es ist ${stunde}:${minute} Uhr am ${tag}.${monat}.${jahr}.\n"; }
return $output; }
- teach padma (infobot/flooterbuck) from en.wiktionary.org
function wiktionary_teach($language,$pagename) { ini_set('user_agent','http://s23.org/wikistats/ | http://meta.wikimedia.org/wiki/User:mutante | mutante@s23.org'); $url="http://".$language.".wiktionary.org/wiki/".$pagename;
- print "$url \n";
$buffer = file_get_contents($url);
# print $buffer; switch ($language) { case "de":$summary = explode("Bedeutungen:",$buffer); $summary = $summary[1]; $summary = explode("Herkunft",$summary); break;case "en":
$summary = explode("- ",$buffer);
$summary = $summary[1];
$summary = explode("
$summary = str_replace("countable"," ",$summary); break;default: $summary="Sorry, only supports en and de Wiktionary atm. But try Wikipedia (!wp <lang> <word>)"; $language="en"; }
$summary = $summary[0]; $summary = strip_tags($summary); $summary = str_replace("\n"," ",$summary); $summary = trim($summary); $summary = explode(". ",$summary);if ($summary[2]) { $summary = $summary[0].". ".$summary[1].". ".$summary[2]."."; } elseif ($summary[1]) { $summary = $summary[0].". ".$summary[1]."."; } else { $summary = $summary[0]."."; }$summary = substr($summary,0, 160); $summary = trim($summary);
$language=explode("<a name=\"",$buffer); $language=explode("\"",$language[1]); $language=$language[0]; if (substr($summary,0, 1)==".") { return "This page doesnt seem to exist."; } else { $summary = "'$pagename' is $language: " . $summary . "\n"; return $summary; } }
- Dollarwert in Euro, von xe.com
- Get latest exploits from milw0rm.com | http://www.milw0rm.com/rss.php
- --mutante
- Function to ask comfortradio.org for the current song being played
- code by commmatoes
- Must remember to get used to commenting
- Need to tell server we are Mozilla
- Get URL
- URL informatoin
- let's see what we can do here
- echo $buffer."\n";
- Time for some explosions
- Let's see what we have
- echo "Results are: \n";
- echo $split2[0]."\n";
- The individual output part starts here - FEAR
- echo $split3."\n";
- print_r($split3);
- /
- 2 versions of this code, separate line and one line
- Lookup language codes from ISO-639
- http://www.loc.gov/standards/iso639-2/langhome.html
- used by Wiktionary, Wikipedia and many other projects
- mutante/s23.org
- Functions
- Input: 2 or 3-letter code, Output: language name in English and French
- Input: Language name in English, Output: 2 and 3-letter codes
- Function to connect to MySQL, input query, output $result