Simple Icq Bot 0.2

Discussion in 'PHP' started by zl0y, 12 Apr 2007.

  1. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    Вот решил выложит может кому понадобицца :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:
     
    2 people like this.
  2. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,194
    Reputations:
    252
    Мде.....легче на WebIcqPro пользоваться моим ботом......меньше кода, да и баян =)
     
  3. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Все это херня. Имхо протокол никто из вас даже не пытался освоить
     
  4. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,194
    Reputations:
    252
    KSURi, имхо не гони:)Я пытался, но ООП я пока не знаю, да и не хочу знать в пхп...
     
  5. scrat

    scrat кодер

    Joined:
    8 Apr 2007
    Messages:
    625
    Likes Received:
    541
    Reputations:
    3
    нда в пхп по моему она тоже не особо нужна.да и не особо она мне там нравиццо.в с++ намного лучше
     
  6. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Я чето не догоняю... А ООП тут вообще причем? Я про протокол Icq говорил, то, что вы его скорее всего даже не пытались освоить =\
     
    1 person likes this.
  7. SMiX

    SMiX Elder - Старейшина

    Joined:
    25 Jul 2005
    Messages:
    227
    Likes Received:
    55
    Reputations:
    29
    Даже если вам не нравится ООП, очень реально написать и на функциональном программирвании.
     
  8. Developer

    Developer Elder - Старейшина

    Joined:
    3 May 2006
    Messages:
    152
    Likes Received:
    25
    Reputations:
    10
    Получится мясо Класс Icq так же явно нужно писать с применением ООП как и класс работы с БД.
     
  9. ZiG

    ZiG New Member

    Joined:
    25 Mar 2007
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Бот абсолютно нерабочий.