12.04.2007, 05:49
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Simple Icq Bot 0.2
Вот решил выложит может кому понадобицца 
Сам код бота:
PHP код:
//Simple Icq Bot v0.2
//Coded By ZloY (ICQ 8778556)
//Please Not Delete Copyright! :) Thx!
<?
require("icq2.php");
set_time_limit (0);
ignore_user_abort(true);
$mlCQ = new mlCQ();
$mlCQ->create_identity("Bot","UIN","PASSWORD");
$mlCQ->connect();
$mlCQ->login();
$mlCQ->set_status('ONLINE', 'DCDISABLED');
$mlCQ->request_offline_messages();
$mlCQ->delete_offline_messages();
$still_there = true; $code = '';
while ($still_there) {
if (!is_resource($mlCQ->sock) || feof($mlCQ->sock))
$still_there = false;
if (!$code) sleep(1);
$code = $mlCQ->dance_for('Bot');
switch ($code) {
case 7:
$msg = $mlCQ->id['in_messages']['last'];
//Текущее время
if($msg['text']== "!time"){
$mlCQ->send_message($msg['uin'],date("d-m-Y H:i:s"));
}
//Кодирование в base64
if(strncmp(strtolower($msg['text']),"!base64",7)==0){
$mlCQ->send_message($msg['uin'],base64_encode(substr($msg['text'],8,strlen($msg['text'])-8)));
}
//Декодирование из base64
if(strncmp(strtolower($msg['text']),"!dbase64",7)==0){
$mlCQ->send_message($msg['uin'],base64_decode(substr($msg['text'],8,strlen($msg['text'])-8)));
}
//MD5 Хеш
if(strncmp(strtolower($msg['text']),"!md5",4)==0){
$mlCQ->send_message($msg['uin'],md5(substr($msg['text'],5,strlen($msg['text'])-5)));
}
//SHA1 хеш
if(strncmp(strtolower($msg['text']),"!sha",4)==0){
$mlCQ->send_message($msg['uin'],sha1(substr($msg['text'],5,strlen($msg['text'])-5)));
}
//Вычисление CRC32
if(strncmp(strtolower($msg['text']),"!crc",4)==0){
$mlCQ->send_message($msg['uin'],crc32(substr($msg['text'],5,strlen($msg['text'])-5)));
}
//crypt -- Необратимое шифрование (хэширование)
if(strncmp(strtolower($msg['text']),"!crypt",6)==0){
$mlCQ->send_message($msg['uin'],crypt(substr($msg['text'],7,strlen($msg['text'])-7)));
}
//Генерирование рандом пасса
if($msg['text']== "!pass"){
$mlCQ->send_message($msg['uin'],rand(00000000, 99999999));
}
//About :)
if($msg['text']== "!about"){
$mlCQ->send_message($msg['uin'],">>ICQ BOT 0.2 By ZloY<<");
}
break;
case 8:
$msg = $mlCQ->id['in_messages']['last'];
break;
default:
break;
}
}
?>
Сама библиотека:
http://slil.ru/24222972
Вот вобщем дерзайте !  Может кто напишет бота и получше меня или усовершенствует этого  |
|
|