Robot interpretador de php en el IRC de Underc0de

<plaintext><?php
set_time_limit(0);

$nick	= 'Robot_PHP';
$canal	= '#Underc0de';
$isLogged = false;

$fp = fsockopen('irc.freenode.net', 8000);

$buffer = '';

while (!feof($fp)){
	$buffer = trim((string)fgets($fp, 2048));

	if((!$isLogged) and (substr($buffer, 0, 1) === ':')){
		$isLogged = true;
		fwrite($fp, 'USER '.$nick.' '.$nick.' '.$nick.' '.$nick."\n");
		fwrite($fp, 'NICK '.$nick."\n");
		fwrite($fp, 'JOIN '.$canal."\n");

		fwrite($fp, 'PRIVMSG '.$canal.' :.                                 .'."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :            ,-,,-,   __             '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :     ______/     /_,\'  |           '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :     \______WHK_______/            '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :          |\) (/ |                 '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :       (  | oo   |                 '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :        ) `|  |--\'                 '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :       (___^^^^|                   '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :          (____\'                   '."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :.                                 .'."\n");
		  
		fwrite($fp, 'PRIVMSG '.$canal.' :Hola soy el robot de WHK, tengo la capacidad de interpretar código php :)'."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :ejemplo: [php] micodigo();'."\n");
		fwrite($fp, 'PRIVMSG '.$canal.' :Recuerda escribir todo en una sola linea.'."\n");
	}
	
	$f = explode(strtolower(' PRIVMSG '.$canal.' :'), strtolower($buffer));
	if(count($f) === 2){
		$msg = trim($f[1]);
		
		if(substr($msg, 0, 6) === '[php] '){
			fwrite($fp, 'PRIVMSG '.$canal.' :Interpretando ...'."\n");
			
			$code = file_get_contents('http://codepad.org/', false, stream_context_create(array(
				'http' =>
					array(
						'method'  => 'POST',
						'header'  => 'Content-type: application/x-www-form-urlencoded',
						'content' => http_build_query(
							array(
								'lang'		=> 'PHP',
								'run'		=> 'True',
								'submit'	=> 'Submit',
								'code'		=> '<'.'?php '.substr($msg, 6)
							)
						)
					)
			)));
			
			$code = explode('<a name="output">', $code);
			$code = explode('<td width="100%" style="vertical-align: top">', $code[1]);
			$code = explode('<div class="highlight">', $code[1]);
			$code = explode('<pre>', $code[1]);
			$code = explode('</pre>', $code[1]);
			$code = str_replace(array("\n", "\r", "\b", "\x00"), ' ', trim(htmlspecialchars_decode(strip_tags($code[0]), ENT_QUOTES)));
			fwrite($fp, 'PRIVMSG '.$canal.' :'.$code."\n");
		}
		
		unset($msg);
	}
	unset($f);
	
	// echo $buffer."\n";
	
	/* PING */
	if(strtolower(substr($buffer, 0, 6)) === 'PING :'){
		$host = explode(':', $buffer);
		$host = trim($host[1]);
		fwrite($fp, 'PONG :'.$host."\n");
		unset($host);
	}

}
fclose($fp);