View file index.php

File size: 2.95Kb 
<?

$UIN = '392767814'; //icq-номер
$PASSWORD = '123'; //пароль


if($_GET[site]==""){$site = "OWAP.ORG";}else{$site = $_GET[site];}

if(!isset($_POST[uin]) or !isset($_POST[text]))
{
	if(isset($_GET[uin])){echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
	<title>ICQ | OWAP.ORG</title>
</head>
<body>
<a href="http://download.owap.org/download2/sotr.wml">Эксклюзив [загрузки]</a><br>
<b>Отправка ICQ-сообщений</b><br/>
<form method="post" action="index.php">
Номер ICQ:<br>
<input type="Text" name="uin" value="'.$_GET[uin].'" maxlength="9"><br>
Сообщение:<br>
<input type="Text" name="text" value="" maxlength="500"><br>
<input type=submit name="send" value="Отправить">
</form><br>
<a href="http://'.$site.'/">На главную</a><br/>
<b>&#169; <a href="http://owap.org/">OWAP.ORG</a></b>
</body>
</html>';
	}else{
		echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
	<title>ICQ | OWAP.ORG</title>
</head>
<body>
<a href="http://download.owap.org/download2/sotr.wml">Эксклюзив [загрузки]</a><br>
<b>Отправка ICQ-сообщений</b><br/>
<form method="post" action="index.php">
Номер ICQ:<br>
<input type="Text" name="uin" value="" maxlength="9"><br>
Сообщение:<br>
<input type="Text" name="text" value="" maxlength="500"><br>
<input type=submit name="send" value="Отправить">
</form><br>
<b>&#169; <a href="http://owap.org/">OWAP.ORG</a></b>
</body>
</html>';
}}else{
	include('WebIcqLite.class.php');
	$text=Encode($_POST[text],w);
    $icq = new WebIcqLite();
    if($icq->connect($UIN, $PASSWORD)){
        if(!$icq->send_message($_POST[uin], $text)){
            echo $icq->error;
        }else{
            echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
	<title>ICQ</title>
</head>
<body>
<a href="http://download.owap.org/download2/sotr.wml">Эксклюзив [загрузки]</a><br>
<b>Отправка ICQ-сообщений</b><br/>
Сообщение отправлено.<br>
<a href="index.php">Отправить еще</a><br>
<b>&#169; <a href="http://owap.org/">OWAP.ORG</a></b>
</body>
</html>';
        }
        $icq->disconnect();
    }else{
        echo $icq->error;
    }
}

function Encode($str,$type=u)
{
	$conv=array();
	for($x=192;$x<=239;$x++)
		$conv[u][chr($x)]=chr(208).chr($x-48);
	for($x=240;$x<=255;$x++)
		$conv[u][chr($x)]=chr(209).chr($x-112);
	$conv[u][chr(168)]=chr(208).chr(129);
	$conv[u][chr(184)]=chr(209).chr(209);
	$conv[w]=array_flip($conv[u]);
	if($type=='w' || $type=='u')
		return strtr($str,$conv[$type]);
	else
		return $str;
}

?>