PHP AOL Instant Messenger (AIM) bot

<?
define("MAX_PACKLENGTH",65535);
define("SFLAP_TYPE_SIGNON",1);
define("SFLAP_TYPE_DATA",2);
define("SFLAP_TYPE_ERROR",3);
define("SFLAP_TYPE_SIGNOFF",4);
define("SFLAP_TYPE_KEEPALIVE",5);
define("SFLAP_MAX_LENGTH",1024);
define("SFLAP_SUCCESS",0);
define("SFLAP_ERR_UNKNOWN",1);
define("SFLAP_ERR_ARGS",2);
define("SFLAP_ERR_LENGTH",3);
define("SFLAP_ERR_READ",4);
define("SFLAP_ERR_SEND",5);
define("SFLAP_FLAP_VERSION",1);
define("SFLAP_TLV_TAG",1);
define("SFLAP_HEADER_LEN",6);


$ERROR_MSGS = array ( 0 => 'Success',
1 => 'AOLIM Error: Unknown Error',
2 => 'AOLIM Error: Incorrect Arguments',
3 => 'AOLIM Error: Exceeded Max Packet Length (1024)',
4 => 'AOLIM Error: Reading from server',
5 => 'AOLIM Error: Sending to server',
6 => 'AOLIM Error: Login timeout',
901 => 'General Error: $ERR_ARG not currently available',
902 => 'General Error: Warning of $ERR_ARG not currently available',
903 => 'General Error: A message has been dropped, you are exceeding the server speed limit',
950 => 'Chat Error: Chat in $ERR_ARG is unavailable',
960 => 'IM and Info Error: You are sending messages too fast to $ERR_ARG',
961 => 'IM and Info Error: You missed an IM from $ERR_ARG because it was too big',
962 => 'IM and Info Error: You missed an IM from $ERR_ARG because it was sent too fast',
970 => 'Dir Error: Failure',
971 => 'Dir Error: Too many matches',
972 => 'Dir Error: Need more qualifiers',
973 => 'Dir Error: Dir service temporarily unavailble',
974 => 'Dir Error: Email lookup restricted',
975 => 'Dir Error: Keyword ignored',
976 => 'Dir Error: No keywords',
977 => 'Dir Error: Language not supported',
978 => 'Dir Error: Country not supported',
979 => 'Dir Error: Failure unknown $ERR_ARG',
980 => 'Auth Error: Incorrect nickname or password',
981 => 'Auth Error: The service is temporarily unavailable',
982 => 'Auth Error: Your warning level is too high to sign on',
983 => 'Auth Error: You have been connecting and disconnecting too frequently. Wait 10 minutes and try again. If you continue to try, you will need to wait even longer.',
989 => 'Auth Error: An unknown signon error has occurred $ERR_ARG' );

$socket = null;
$clientSequenceNumber = 0;

$screenName="screenName";
$password = "password";

$tocHost = "toc.oscar.aol.com";
$tocPort = 5190;
$authHost =  "login.oscar.aol.com";
$authPort = 5159;


function RoastPassword($password)
{
      $roastString = 'Tic/Toc';
      $roastedPassword = '0x';

      for ($i = 0; $i < strlen($password); $i++)
            $roastedPassword .= bin2hex($password[$i] ^ $roastString[($i % 7)]);

      return $roastedPassword;
}


function readFlap()
{
      global $socket;

      $header = fread($socket, SFLAP_HEADER_LEN);

      if(strlen($header) < SFLAP_HEADER_LEN)
            return(0);

      $headerArray = unpack ("aasterisk/CframeType/nsequenceNumber/ndataLength", $header);

      $packet = fread($socket, $headerArray['dataLength']);

      if($headerArray['frameType'] == SFLAP_TYPE_SIGNON)
            $packetArray = unpack("Ndata", $packet);
      else
            $packetArray = unpack("a*data", $packet);

      $data = array_merge($headerArray, $packetArray);

      return $data;
}

function sendRaw($data)
{
      global $socket;
      
      if(fwrite($socket, $data) == FALSE)
            return 0;
      
      return 1;
}



function sendFlap($frameType, $data)
{
      global $socket, $clientSequenceNumber;

      if( strlen($data) > SFLAP_MAX_LENGTH)
      {
            $data = substr($data, 0, (SFLAP_MAX_LENGTH-2) );
            $data .= '"';
      }

      $header = pack("aCnn", '*', $frameType, $clientSequenceNumber, strlen($data));

      $packet = $header . $data;

      if(fwrite($socket, $packet) == FALSE)
            die("Unable to send the packet.<BR>\n");

      $clientSequenceNumber++;
      
      return $packet;
}

function sendTocFlapSignon()
{
      global $screenName;
      
      $data = pack("Nnna".strlen($screenName), 1, 1, strlen($screenName), $screenName);

      $result = sendFlap(SFLAP_TYPE_SIGNON, $data);

      return $result;
}

function tocSignon()
{
      global $screenName, $password;
      global $authHost, $authPort;
      
      $roastedPassword = RoastPassword($password);
      
      $tocSignon = 'toc_signon ' . $authHost . ' ' . $authPort . ' ' . $screenName . ' ' . $roastedPassword . ' "english" "AOLIM:\$Version 1.1\$"';
      $tocSignon .= "\0";

      $result = sendFlap(SFLAP_TYPE_DATA, $tocSignon);
      
      return $result;
}      



function normalize($screenName)
{
      return eregi_replace("[[:space:]]+","",strtolower($screenName));
}

function signOn()
{
      global $screenName, $roastedPassword, $socket, $clientSequenceNumber, $ERROR_MSGS;
      global $tocHost, $tocPort;      
      
      echo "Signing on using $screenName<BR>\n";

      if( !($socket = fsockopen($tocHost, $tocPort, $errorno, $errorstr, 30)) )
            die("$errorstr ($errorno)");

      echo "Connected to the sever<BR>\n";

      if( !sendRaw("FLAPON\r\n\r\n") )
                  die("Error sending the FLAPON packet.");

      echo "FLAPON packet sent<BR>\n";

      if( !( $result = readFlap() ) )
            die("No response from server.<BR>\n");

      if($result['asterisk'] != '*' && $result['frameType'] != 1 && $result['dataLength'] != 4 && $result['data'] != 1)
            die("Invalid FLAP SIGNON response from the server.<BR>\n");            

      sendTocFlapSignon();
      
      echo "SIGN_ON packet sent<BR>\n";

      tocSignon();

      echo "toc_signon packet sent<BR>\nWaiting for reply...<BR>\n";

      $result = readFlap();
      
      if($result['asterisk'] != '*' && $result['frameType'] != 2 )
            die("Invalid response from server.<BR>\n");            

      if($result['data'] == "SIGN_ON:TOC1.0")
            echo "toc_signon success SIGN_ON <br>";

      else if(substr($result['data'], 0, 6) == "ERROR:")
      {
            $where = strpos( $result['data'], ":");
            die($ERROR_MSGS[chop(substr($result['data'], $where+1))] . "<br>\n");
      }

      $result = readFlap(); // NICK
      echo $result['data'] . "<BR>\n";
      
      $result = readFlap(); // NICK
      echo $result['data'] . "<BR>\n";
      
      $result = readFlap(); // Buddies
      echo $result['data'] . "<BR>\n";

      sendFlap(SFLAP_TYPE_DATA, "toc_add_permit");
      sendFlap(SFLAP_TYPE_DATA, "toc_add_deny");
      
      $tocAddBuddy = "toc_add_buddy " . $screenName;
      sendFlap(SFLAP_TYPE_DATA, $tocAddBuddy);

      sendFlap(SFLAP_TYPE_DATA, "toc_init_done");
      echo "sent toc_init_done<BR>\n";

/*
      $done = 0;
      while(!$done)
      {
            $result = readFlap();
      
            if($result)
            {      
                  echo $result['asterisk'] . " - ";                  
                  echo $result['frameType'] . " - ";                  
                  echo $result['sequenceNumber'] . " - ";                  
                  echo $result['dataLength'] . "\n";                  
            }
      }
*/

}


signOn();

?>