
10.04.2007, 21:19
|
|
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,187
С нами:
10495046
Репутация:
2642
|
|
Обновление
Обновлён бот на PHP. Теперь он может отправлять сообщения на мыло. Просто отправляем ему письмо в таком формате otkogo@mail.ru::komy@mail.ru::Тема письма::Содержание письма.
PHP код:
<?php
/*Created by Scorpion */
error_reporting (E_ALL);
set_time_limit(0);
ini_set ('max_execution_time', "0");
require_once('WebIcqLite.class.php');
define('UIN', '?????????');// Ваш номер icq
define('PASSWORD', 'pass');//Ваш пароль
$icq = new WebIcqLite();
if(!$icq->connect(UIN, PASSWORD))
{
echo $icq->error;
exit();
}
while($icq->is_connected()){
$msg = $icq->read_message();
if (eregi('admin', $msg['message']))
{
$pass=split(':',$msg['message']);
if(md5($pass[1])=='21232f297a57a5a743894a0e4a801fc3')
{
define('ADMIN', $msg['from']);
$icq->send_message($msg['from'], 'Welcome admin');
}
else
{
$icq->send_message($msg['from'], 'У вас осталось x попыток' );
}
}
if (preg_match('/^\S+@+\S+::\S+@+\S+::[^:]*::/', $msg['message']))
{
$email=split('::',$msg['message']);
@mail($email[1], $email[2], $email[3], 'From:'.$email[0]);
$icq->send_message($msg['from'], 'Ваше письмо для '.$email[1].' отправлено.');
}
else
switch (strtolower($msg['message'])) {
case 'привет':
$icq->send_message($msg['from'], 'Привет Познакомимся?');
break;
case'да':
$icq->send_message($msg['from'], 'Я ICQ BOT Scorpion');
break;
case'floodme':
for($i==0;$i<50;$i++)
$icq->send_message($msg['from'],'Ненавижу флудеров'); //при использовании номер будет забанене на некоторое время
exit;
break;
case'quit':
$icq->disconnect();
exit;
break;
default:
$icq->send_message($msg['from'], 'Ты хочешь от меня слишком много, я только учусь?');
}
flush();
sleep(1);
}
?>
Если кому надо, могу попросить автора сделать некоторые функции.
|
|
|