Размер файла: 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>© <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>© <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>© <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;
}
?>