Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Simple Icq Bot 0.2 (https://forum.antichat.xyz/showthread.php?t=37751)

zl0y 12.04.2007 05:49

Simple Icq Bot 0.2
 
Вот решил выложит может кому понадобицца :rolleyes:
Сам код бота:

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 (!
$codesleep(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(0000000099999999));
}
//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

Вот вобщем дерзайте ! ;) Может кто напишет бота и получше меня или усовершенствует этого :p :rolleyes:

Isis 12.04.2007 07:34

Мде.....легче на WebIcqPro пользоваться моим ботом......меньше кода, да и баян =)

KSURi 12.04.2007 09:06

Все это херня. Имхо протокол никто из вас даже не пытался освоить

Isis 12.04.2007 16:13

KSURi, имхо не гони:)Я пытался, но ООП я пока не знаю, да и не хочу знать в пхп...

scrat 12.04.2007 23:14

Цитата:

Сообщение от Isis
KSURi, имхо не гони:)Я пытался, но ООП я пока не знаю, да и не хочу знать в пхп...

нда в пхп по моему она тоже не особо нужна.да и не особо она мне там нравиццо.в с++ намного лучше

KSURi 12.04.2007 23:21

Я чето не догоняю... А ООП тут вообще причем? Я про протокол Icq говорил, то, что вы его скорее всего даже не пытались освоить =\

SMiX 13.04.2007 11:43

Даже если вам не нравится ООП, очень реально написать и на функциональном программирвании.

Developer 28.04.2007 13:20

Получится мясо Класс Icq так же явно нужно писать с применением ООП как и класс работы с БД.

ZiG 29.04.2007 01:53

Бот абсолютно нерабочий.


Время: 21:18