[PHP] iXat Personal PHP Bot Connection Issue

[Master_Tro[SH]]

So, I set up an ixat server to be used personally and not publicly, and I want to add a bot to it.
I went and got a bot script from somewhere for xat, and edited to my IP and port, but when I ran it, I got errors on connection.

Bot code:

 Spoiler

<?php
/*My XAT BOT*/
$xatuser = "Test(bot)"; //Damnit
$uid = "4";
$picurl = "http://i185.photobucket.com/albums/x49/dotred/b.png";
$homeurl = "http://xat.com/Protobots";
$roomid = "145464430";
$smilies = array("", "", ":P", "", "(d)", "(x)");
$commands_enabled = true;
$owners = array("1");
$port = 1024;
$addr = "IP HERE";
$i = 0; //DONT CHANGE PLZ
// Output basic HTML header

// Create a socket object
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
if ($socket < 0)
{
trace("Socket errror: " . socket_strerror($socket));
die();
}
else
trace("Socket object created");

// Establish connection
$result = socket_connect($socket, $addr, $port);

// Check connection
if ($result < 0)
{
trace ("Received: " . socket_strerror($result));
}
else
{
trace("Connection successfull");
$handShake = "<y m=\"1\" />" . chr(0);
//$handShake = "<y r=\"" . $roomid . "\" />" . chr(0);
//$handShake = "<policy-file-request/>" . chr(0);
trace("Sending: " . $handShake);
socket_write($socket, $handShake, strlen($handShake));

// Wait for server response
while(true)
{
$err = false;
$out = socket_read($socket, 1024) or $err = true;
if($err == true){
trace("Socket closed");
exec("C:\\www\\xatbot.bat");
exit();
}
if($out){
trace("Received: " . $out);
if(stripos($out, "<cross-domain") > -1){
trace("Connected to Xat. Sending chat connection");
$send = "<y m=\"1\">" . chr(0);
} else if (stripos($out, "<y") > -1 ) {
$yi = stribet($out, '<y i="', '" c=');
//$yc = stribet($out, 'c="', '"');
//$send = "<j2 l4=\"1623\" l3=\"1479\" l2=\"0\" q=\"1\" y=\"" . $yi . '" k="1743250365" k3="0" z="11" p="0" c="' . $roomid . '" f="2" u="2" d0="0" n="' . $xatuser . '" a="' . $picurl . '" h="' . $homeurl . '" v="0" />' . chr(0);
$send = "<j2 l4=\"1637\" l3=\"1482\" l2=\"0\" y=\"" . $yi . "\" k=\"3787785620\" k3=\"0\" z=\"11\" p=\"0\" c=\"" . $roomid . "\" f=\"0\" u=\"" . $uid . "\" d0=\"0\" n=\"" . $xatuser . "\" a=\"" . $picurl . "\" h=\"" . $homeurl . "\" v=\"1\" />" . chr(0);
trace("Sending: " . $send);
socket_write($socket, $send, strlen($send));
} else if(stripos($out, "<done />") > -1){
trace("Connected to chat successfully!");
$done = true;
} else if(stripos($out, "<u") > -1 && $done == true){
$nB = true;
$isBanned = 0;
$isGagged = 0;
$isForever = 0;
$ui = stribet($out, "u=\"", "\"");
$uj = strbet($out, "n=\"", "\"");
$ur = strbet($out, "f=\"", "\"");
$uq = strbet($out, "q=\"", "\"");
$online = (xInt($uq) & 1) != 0;
if($us & 1 || $ur & 8){
$notBanned = 1;
}
if($ur & 16){
$isBanned = 1;
}
if($ur & 256){
$isGagged = 1;
}
if($ur & 64){
$isForever = 1;
}

trace("Banned: " . $isBanned . "; Gagged: " . $isGagged . "; Forever: " . $isForever . "; Not-Banned: " . $notBanned . "; Online: " . $online);
if($isBanned || $isGagged || $isForever){
$nB = false;
}
if($notBanned){
$nB = true;
}
if(!$online){
$nB = false;
}
trace("NB stat: " . $nB);
if($nB){
$send = "<p u=\"" . $ui . "\" t=\"Welcome, " . $uj . "!\" s=\"2\" u=\"" . $uid . "\" />" . chr(0);
trace("Sending: " . $send);
socket_write($socket, $send, strlen($send));
}
} else if(stripos($out, "<m") > -1){
$message = stribet($out, "t=\"", "\"");
$uid_part = stribet($out, "u=\"", "\"");
$senduid = explode("_", $uid_part);
trace("User " . $senduid[0] . " said: " . $message);
if(in_array($senduid[0], $owners)){
if(strtolower($message) == "bot enable commands"){
$commands_enabled = true;
}
if(strtolower($message) == "bot disable commands"){
$commands_enabled = false;
}
}
if(filter($message)){
$send = "<c p=\"Autobanning user for swearing\" u=\"" . $senduid[0] . "\" t=\"/g3600\" />" . chr(0);
trace("Auto banning user");
socket_write($socket, $send, strlen($send));
}
if($commands_enabled){
if(stristr($message, "banme")){
$send = "<c p=\"Autobanning user for no reason\" u=\"" . $senduid[0] . "\" t=\"/g3600\" />" . chr(0);
trace("Auto banning user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "kickme")){
$send = "<c p=\"Automatically kicking user for no reason\" u=\"" . $senduid[0] . "\" t=\"/k\" />" . chr(0);
trace("Kicking user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "guestme")){
$send = "<c u=\"" . $senduid[0] . "\" t=\"/r\" />" . chr(0);
trace("Guesting user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "memberme")){
$send = "<c u=\"" . $senduid[0] . "\" t=\"/e\" />" . chr(0);
trace("Membering user");
socket_write($socket, $send, strlen($send));
}
}
} else if(stripos($out, "<p") > -1){
if($commands_enabled){
$message = stribet($out, "t=\"", "\"");
$uid_part = stribet($out, "u=\"", "\"");
$senduid = explode("_", $uid_part);
if(filter($message)){
$send = "<c p=\"Autobanning user for swearing\" u=\"" . $senduid[0] . "\" t=\"/g3600\" />" . chr(0);
trace("Auto banning user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "banme")){
$send = "<c p=\"Autobanning user for no reason\" u=\"" . $senduid[0] . "\" t=\"/g3600\" />" . chr(0);
trace("Auto banning user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "kickme")){
$send = "<c p=\"Automatically kicking user for no reason\" u=\"" . $senduid[0] . "\" t=\"/k\" />" . chr(0);
trace("Kicking user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "guestme")){
$send = "<c u=\"" . $senduid[0] . "\" t=\"/r\" />" . chr(0);
trace("Guesting user");
socket_write($socket, $send, strlen($send));
}
if(stristr($message, "memberme")){
$send = "<c u=\"" . $senduid[0] . "\" t=\"/e\" />" . chr(0);
trace("Membering user");
socket_write($socket, $send, strlen($send));
}
}
trace($senduid[0]);
if(in_array($senduid[0], $owners)){
if(strtolower($message) == "bot enable commands"){
$commands_enabled = true;
}
if(strtolower($message) == "bot disable commands"){
$commands_enabled = false;
}
$spl = explode(" ", $message);
if($spl[0] == "ban"){
$banuid = $spl[1];
$length = $spl[2] * 60 * 60;
$send = "<c p=\"Banning for no reason\" u=\"" . $banuid . "\" t=\"/g" . $length . "\" />" . chr(0);
trace("Force banning user");
socket_write($socket, $send, strlen($send));
}
$spl = explode(" ", $message);
if($spl[0] == "say"){
trace("Forced to speak");
$msg = str_ireplace("say ", "", $message);
$send = "<m t=\"" . $msg . "\" u=\"" . $uid . "\" />" . chr(0);
socket_write($socket, $send, strlen($send));
}
}
} else if(stripos($out, "<idle />")){
exec("C:\\www\\xatbot.bat");
trace("Socket closed");
exit();
} else if(stripos($out, "<c")){
exec("C:\\www\\xatbot.bat");
trace("Socket closed");
exit();
}
}
if($i == 100){
$i = 0;
$send = "<m t=\"" . $smilies[array_rand($smilies)] ."\" u=\"" . $uid . "\" />" . chr(0);
socket_write($socket, $send, strlen($send));
}
$i = $i + 1;
}

// Close html tags
socket_close($socket);
}

function trace($msg)
{
echo "--> " . $msg . "\n";
}
function stribet($inputstr, $delimiterLeft, $delimiterRight) {
$posLeft = stripos($inputstr, $delimiterLeft) + strlen($delimiterLeft);
$posRight = stripos($inputstr, $delimiterRight, $posLeft);
return substr($inputstr, $posLeft, $posRight - $posLeft);
}
function strbet($inputstr, $delimiterLeft, $delimiterRight) {
$posLeft = strpos($inputstr, $delimiterLeft) + strlen($delimiterLeft);
$posRight = strpos($inputstr, $delimiterRight, $posLeft);
return substr($inputstr, $posLeft, $posRight - $posLeft);
} //Does the same as stribet but case sensitive
function parseInt($string) {
// return intval($string);
if(preg_match('/(\d+)/', $string, $array)) {
return $array[1];
} else {
return false;
}
}
function xInt($arg){
$loc1 = parseInt($arg);
if ($loc1 === false){
return(0);
} // end if
return($loc1);
} // End of the function

function filter($text){
$badWordsArray = explode("\r\n", file_get_contents("swears.txt"));
foreach($badWordsArray as $badWord) {
if(stristr($text, $badWord) !== false){
trace("BAD WORD FOUND: " . $badWord);
return true;
}
}
return false;
}


?>

Took out the IP for security reasons.

Error:

 Spoiler

[25-Oct-2015 21:02:17 Europe/Berlin] PHP Warning: socket_connect(): unable to connect [10061]: No connection could be made because the target machine actively refused it.
in C:\xampp\php\bot.php on line 27
[25-Oct-2015 21:02:17 Europe/Berlin] PHP Warning: socket_write(): unable to write to socket [10057]: A request to send or receive data was disallowed because the socket is not connected and (when sending on a datagram socket using a sendto call) no address was supplied.
in C:\xampp\php\bot.php on line 41
[25-Oct-2015 21:02:17 Europe/Berlin] PHP Warning: socket_read(): unable to read from socket [10057]: A request to send or receive data was disallowed because the socket is not connected and (when sending on a datagram socket using a sendto call) no address was supplied.
in C:\xampp\php\bot.php on line 47

Any help is appreciated on why the bot won't connect. Thanks in advance.

[Menan]

I guess the problem is the firewall..

[Master_Tro[SH]]

That can't be the issue - I've had firewall disabled for as long as I can remember. Could there be another reason? Perhaps something wrong with the code where I put the IP/Port in?

[snow]

#moved…