ANTICHAT — форум по информационной безопасности, OSINT и технологиям

<?php
// +----------------------------------------------------------------------+
// | PHP version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 2005 bigmir)net                                        |
// +----------------------------------------------------------------------+
// | It is the source code of ICQ Partner Server API                      |
// |                                                                      |
// +----------------------------------------------------------------------+
// | Authors: Vitalii M. Khranivs'kyi <misaret@gmail.com>                 |
// +----------------------------------------------------------------------+
/**
 * ICQ Partner Server API
 *
 * It is the source code of ICQ Partner Server API
 * @author Vitalii M. Khranivs'kyi <misaret@gmail.com>
 * @copyright Copyright © 2005, bigmir)net
 * @package Classes
 * @subpackage ICQ
 * @version 1.1
 * @filesource
 */

/**
 * @ignore
 */
require_once(INCLUDE_PATH . 'cache.class.php');
require_once(INCLUDE_PATH . 'stopwatch.class.php');
require_once(INCLUDE_PATH . 'socket.class.php');
require_once(INCLUDE_PATH . 'iconv.class.php');

/**
 * IPS
 *
 * @package Classes
 * @subpackage ICQ
 */
class IcqIPS {
	/**#@+
	 * @access private
	 */
	var $_cache;
	var $_cacheArray;
	/**#@-*/

	function IcqIPS()
	{
		$this->_cacheArray = array();
		$this->_cache = new CacheArray($this->_cacheArray);
	}

	/**#@+
	 * @access private
	 */
	function _send($command)
	{
		/* @var $_cache CacheArray */
		trigger_error($command);
		if ($this->_cache->inCache($command)) {
			trigger_error($command . '; from cache');
			return $this->_cache->get($command);
		}
		$timer = new Stopwatch();
		$data = '<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
	xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="urn:ICQServer" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
	xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	<SOAP-ENV:Body>
' . $command . '
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>';
//		trigger_error($data);

		$request = 'POST /icq.php HTTP/1.0
Host: ips.icq.com
Content-Type: text/xml; charset="utf-8"
Content-Length: ' . strlen($data) . '
SOAPAction: "https://ips.icq.com/icq.php"

' . $data . '
';

/*if (function_exists('curl_exec')):
		trigger_error('use curl & ssl proxy');

		$proxy = '10.201.0.7:3128';
		$ch = curl_init();
		curl_setopt($ch, CURLOPT_URL, 'https://ips.icq.com');
		curl_setopt($ch, CURLOPT_PROXY, $proxy);
		curl_setopt($ch, CURLOPT_HTTPPROXYTUNNEL, $proxy);
		curl_setopt($ch, CURLOPT_TIMEOUT, 15);
		curl_setopt($ch, CURLOPT_CUSTOMREQUEST, $request);
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
		$response = curl_exec($ch);
else:
*/
		trigger_error('use socket & ssl');

//		$sock = new Socket('ssl://pechkin.sputnikmedia.net', 4433, 15);
		$sock = new Socket('ssl://ips.icq.com', 443, 15);
		if (!$sock->send($request)) {
			trigger_error('Cannot send command; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}
		$response = $sock->readAll();
		$sock->close();
/*endif;*/

		if (!$response) {
			trigger_error('Empty response; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}
		$beginPos = strpos($response, '<SOAP-ENV:Body');
		if ($beginPos)
			$beginPos = strpos($response, '>', $beginPos);
		if (!$beginPos++) {
			trigger_error('Cannot find response body start ' . $response . '; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}
		$endPos = strpos($response, '</SOAP-ENV:Body', $beginPos);
		if (!$endPos) {
			trigger_error('Cannot find response body end ' . $response . '; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}
		$result = substr($response, $beginPos, $endPos - $beginPos);
		$result = trim($result);
		if (!$result) {
			trigger_error('Empty response body ' . $response . '; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}

		$xml = xml_parser_create();
		xml_parser_set_option($xml, XML_OPTION_CASE_FOLDING, 0);
		xml_parse_into_struct($xml, $result, $res);
		xml_parser_free($xml);
		if (!$res) {
			trigger_error('Not well-formed XML ' . $result . '; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}

		$return = array();
		$subTag = false;
		$skip = true;
		foreach ($res as $val) {
			if ($val['tag'] == 'return') {
				if ($val['type'] == 'open')
					$skip = false;
				elseif ($val['type'] == 'close')
					break;
			} elseif ($skip) {
			} elseif ($val['type'] == 'cdata') {
//			} elseif ($val['tag'] == 'id') {
			} elseif ($val['type'] == 'open') {
				$subTag = $val['tag'];
				$subTagContent = array();
			} elseif ($val['type'] == 'close') {
				if ($subTag) {
					$return[$subTag][] = $subTagContent;
					$subTag = false;
				}
			} else {
				if ($subTag)
					$subTagContent[$val['tag']] = $val['value'];
				else
					$return[$val['tag']] = $val['value'];
			}
		}

		if (!$return) {
			trigger_error('Empty result: ' . $result . '; ' . $timer->get(3) . 'sec.', E_USER_ERROR);
			return false;
		}

		if (isset($return['result']))
			$return['result'] = $return['result'] == 'true';

		trigger_error($result . '; ' . $timer->get(3) . 'sec.');
		$this->_cache->put($command, $result);
		return $return;
	}

	function _id()
	{
		static $id;
		return $id ? $id : $id = rand();
	}

	function _ip()
	{
		static $ip;
		if (!$ip) {
			if (isset($_SERVER['REMOTE_ADDR'])) {
//				if (isset($_SERVER['HTTP_X_FORWARDED_FOR']))
//					$ip = $_SERVER['HTTP_X_FORWARDED_FOR'] . ',' . $_SERVER['REMOTE_ADDR'];
//				else
					$ip = $_SERVER['REMOTE_ADDR'];
			} else {
				$ip = gethostbyname(php_uname('n'));
			}
		}
		return $ip;
	}
	/**#@-*/

	function status($uin)
	{
		$uin = (int) $uin;
		if ($uin < 10000)
			return false;
		$command = '<mns:icqStatus SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mns="urn:ICQServer">
	<params xsi:type="tns:StatusObject">
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<id xsi:type="xsd:string">' . rand() . '</id>
	</params>
</mns:icqStatus>';

		return IcqIPS::_send($command);
	}

	function auth_k($uin, $key){
		$uin = (int) $uin;
		if ($uin < 10000 || !$key)	return false;
		$command = '<mns:icqAuthKey xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:AuthKeyObject">
		<key xsi:type="xsd:string">' . $key . '</key>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<ip xsi:type="xsd:string">' . IcqIPS::_ip() . '</ip>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqAuthKey>';

		return IcqIPS::_send($command);
	}

	function auth($uin, $password = false, $sKey = false)
	{
//return false;
		$uin = (int) $uin;
		if ($uin < 10000 || !$password && !$sKey)
			return false;
		$command = '<mns:icqAuth xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:AuthObject">
		<password xsi:type="xsd:string">' . $password . '</password>
		<skey xsi:type="xsd:string">' . dechex($sKey) . '</skey>
		<skey_type xsi:type="xsd:string"/>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<ip xsi:type="xsd:string">' . IcqIPS::_ip() . '</ip>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqAuth>';

		return IcqIPS::_send($command);
	}

	function register($password, $email, $nickName, $firstName = false, $lastName = false, $birthDay = false, $sex = false, $country = false, $city = false, $state = false)
	{

// check bigmir mail	
	if(!strstr($email, 'bigmir.net')){
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS without bigmir mail', 'UserMail:'.$email);		
		exit();
	}else{
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS with bigmir mail', 'UserMail:'.$email);
	}
	
//return false;
		if (!$password || !$email || !$nickName)
			return false;
		$command = '<mns:icqRegister xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:RegistrationObject">
		<password xsi:type="xsd:string">' . $password . '</password>
		<email xsi:type="xsd:string">' . substr($email, 0, 60) . '</email>
		<nick xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($nickName, 0, 20)) . ']]></nick>
';
		if ($firstName)
			$command .= '		<firstname xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($firstName, 0, 20)) . ']]></firstname>
';
		if ($lastName)
			$command .= '		<lastname xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($lastName, 0, 20)) . ']]></lastname>
';
		if ($birthDay && date('Y') - date('Y', $birthDay) > 13)
			$command .= '		<birthdate xsi:type="xsd:string">' . date('d-M-Y', $birthDay) . '</birthdate>
';
		if ($sex)
			$command .= '		<gender xsi:type="xsd:string">' . $sex . '</gender>
';
		if ($country)
			$command .= '		<country xsi:type="xsd:string">' . $country . '</country>
';
		if ($city)
			$command .= '		<city xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($city, 0, 30)) . ']]></city>
';
		if ($state)
			$command .= '		<state xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', $state) . ']]></state>
';
		$command .= '		<ip xsi:type="xsd:string">' . IcqIPS::_ip() . '</ip>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqRegister>';

		return IcqIPS::_send($command);
	}

	function attach($uin, $password, $email, $newpass = false)
	{
//return false;

// check bigmir mail	
	if(!strstr($email, 'bigmir.net')){
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS atach cmd without bigmir mail', 'UserMail:'.$email);		
		exit();
	}else{
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS atach cmd. with bigmir mail', 'UserMail:'.$email);
	}

		$uin = (int) $uin;
		if ($uin < 10000 || !$password || !$email)
			return false;
		$command = '<mns:icqAttach xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:AttachObject">
		<password xsi:type="xsd:string">' . $password . '</password>
		<email xsi:type="xsd:string">' . substr($email, 0, 60) . '</email>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<newpass xsi:type="xsd:string">' . ($newpass ? $newpass : $password) . '</newpass>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqAttach>';

		return IcqIPS::_send($command);
	}

/*	function deattach($uin, $password)
	{
		$uin = (int) $uin;
		if ($uin < 10000)
			return false;
		$command = '<mns:icqDeattach xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:DeattachObject">
		<password xsi:type="xsd:string">' . $password . '</password>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqDeattach>';

		return IcqIPS::_send($command);
	}
*/
	function detach($uin, $email)
	{
		$uin = (int) $uin;
		
		// check bigmir mail	
	if(!strstr($email, 'bigmir.net')){
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS deatach cmd. without bigmir mail', 'UserMail:'.$email);		
		exit();
	}else{
		Util::mail('dbg-bigmir@sputnikmedia.net', 'dbg-bigmir@sputnikmedia.net', 'ICQ-IPS deatach. with bigmir mail', 'UserMail:'.$email);
	}
		
		if ($uin < 10000)
			return false;
		$command = '<mns:icqDetach xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:DetachObject">
		<email xsi:type="xsd:string">' . $email . '</email>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqDetach>';

		return IcqIPS::_send($command);
	}

	function alert($uins, $text, $from, $fromEmail)
	{
		$uins = (array) $uins;
		if (!$uins || !$text || !$from || !$fromEmail)
			return false;
		$command = '<mns:icqAlert xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:AlertObject">
		<pager xsi:type="tns:PagerObject">
			<message xsi:type="xsd:string">' . $text . '</message>
			<from xsi:type="xsd:string">' . $from . '</from>
			<from_email xsi:type="xsd:string">' . $fromEmail . '</from_email>
		</pager>
		<webmsg xsi:type="tns:WebMsgObject">
			<type xsi:type="xsd:integer">1</type>
			<url xsi:type="xsd:string">http://passport.bigmir.ua/test/</url>
			<width xsi:type="xsd:integer">320</width>
			<height xsi:type="xsd:integer">280</height>
			<title xsi:type="xsd:string">Test</title>
			<plugin_id xsi:type="xsd:string">Ineractive</plugin_id>
			<extra_url xsi:type="xsd:string">http://passport.bigmir.ua/test/</extra_url>
			<icid xsi:type="xsd:string">Interactive</icid>
		</webmsg>
		<uins xsi:type="tns:UINSObject">';
		$isUin = false;
		foreach ($uins as $uin) {
			$uin = (int) $uin;
			if ($uin > 9999) {
				$command .= '<uin xsi:type="xsd:string">' . $uin . '</uin>';
				$isUin = true;
			}
		}
		if (!$isUin)
			return false;
		$command .= '</uins>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqAlert>';

		return IcqIPS::_send($command);
	}

	function changePass($uin, $password, $newpass)
	{
//return false;
		$uin = (int) $uin;
		if ($uin < 10000 || !$password || !$newpass)
			return false;
		$command = '<mns:icqChangePass xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:ChangePassObject">
		<password xsi:type="xsd:string">' . $password . '</password>
		<uin xsi:type="xsd:string">' . $uin . '</uin>
		<newpass xsi:type="xsd:string">' . $newpass . '</newpass>
		<ip xsi:type="xsd:string">' . IcqIPS::_ip() . '</ip>
		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqChangePass>';

		return IcqIPS::_send($command);
	}

	function update($uin, $nickName = false, $firstName = false, $lastName = false, $birthDay = false, $sex = false, $country = false, $city = false, $state = false)
	{
		$uin = (int) $uin;
		if ($uin < 10000)
			return false;
		$command = '<mns:icqUpdate xmlns:mns="urn:ICQServer" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
	<params xsi:type="tns:UpdateObject">
		<uin xsi:type="xsd:string">' . $uin . '</uin>
';
		if ($nickName)
			$command .= '		<nickname xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($nickName, 0, 20)) . ']]></nickname>
';
		if ($firstName)
			$command .= '		<firstname xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($firstName, 0, 20)) . ']]></firstname>
';
		if ($lastName)
			$command .= '		<lastname xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($lastName, 0, 20)) . ']]></lastname>
';
		if ($birthDay && date('Y') - date('Y', $birthDay) > 13)
			$command .= '		<birthdate xsi:type="xsd:string">' . date('d-M-Y', $birthDay) . '</birthdate>
';
		if ($sex)
			$command .= '		<gender xsi:type="xsd:string">' . $sex . '</gender>
';
		if ($country)
			$command .= '		<country xsi:type="xsd:string">' . $country . '</country>
';
		if ($city)
			$command .= '		<city xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', substr($city, 0, 30)) . ']]></city>
';
		if ($state)
			$command .= '		<state xsi:type="xsd:string"><![CDATA[' . Iconv::translate('cp1251', 'utf-8', $state) . ']]></state>
';
		$command .= '		<id xsi:type="xsd:string">' . IcqIPS::_id() . '</id>
	</params>
</mns:icqUpdate>';

		return IcqIPS::_send($command);
	}
}

$GLOBALS['ICQ_IPS'] = new IcqIPS();
?>