Форум АНТИЧАТ - Simple Icq Bot 0.2

Simple Icq Bot 0.2

12.04.2007, 05:49

~~zl0y~~

Banned

Регистрация: 13.09.2006

Сообщений: 523

Провел на форуме:
2869410

Репутация: 925

Отправить сообщение для zl0y с помощью ICQ

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

Вот вобщем дерзайте !

Может кто напишет бота и получше меня или усовершенствует этого