Форум АНТИЧАТ - mICQ Вопросы

mICQ Вопросы
01.08.2009, 20:22
cren
Участник форума
Регистрация: 05.05.2009
Сообщений: 262
Провел на форуме:
373836
Репутация: 53
Отправить сообщение для cren с помощью ICQ
mICQ Вопросы
PHP код:

		
			
<?php 



// Based on mlCQ library v0.4 by Sergey Danyushin aka I)estym 



// (c)oded by S1B [SBT] 

// 21.04.2007 

// www.secbun.info 

set_time_limit(0); 

ignore_user_abort(true); 



 $file[0] = 'fact.txt'; 



$lines[0] = file($file[0]); 













$help='Команды бота: 



!news - Наши новости

!help - вывод справки (её Вы сейчас читаете) 

!md5 <строка> - вернёт MD5 хэш переданной строки 

!b64e <строка> - кодирует переданные данные в Base64 

!b64d <строка> - декодирует переданные данные из Base64 

!len <строка> - вернёт длину переданной строки 

!tic <url сайта> - вернёт тИЦ данного сайта 

!icq <номер> <сообщение> - Отправить сообщение с номера бота (Только для VIP)

!admin <сообщение> - Отправить сообщение админу

!fakt - Интересные факты (или 5)

!info - Контакты для связи с админом 

'; 

$admin='Для связи с администратором можно использовать: 

ICQ: 6-344-344-7 

e-mail: waketwo@narod.ru 

m-agent: serega_bomber 

jabber: wake-two@jabber.ru'; 



$news='На бота добавили новые функции:

!fakt или 5 - Интересные факты (более 850щтук)

!icq - Отправка сообщений через бота



План следующего обновления обновления:

1) Добавить анекдоты

2) Добавить генератор слоганов

3) Убрать отправку сообщений через бота

4) Добавить рекламу

5) Добавить чат (_!_)



Новости нашей команды:



1) Был открыт недавно закрытый портал http://xak-zone.ru/

2) На портал http://xak-zone.ru/ проводится набор модераторов

3) Был открыт блог wake2(cren)a (админ бота) по новому адресу http://xak-zone.ru/

4) Был открыт самый дешёвый хостинг от Bestvds.co.cc



Пока это все новости! Спасибо за внимание!



(_!_) Врядли получится

'; 





function get_tic($url) { 

    if(isset($url)) { 

        $url=urlencode(str_replace("http://","",str_replace("www.","",strtolower(trim($url))))); 

        $s=fsockopen('bar-navig.yandex.ru','80'); 

        fputs($s,"GET /u?ver=2&lang=1049&url=http://$url&target=_No__Name:5&show=1&thc=0 HTTP/1.0\r\nHost: bar-navig.yandex.ru\r\n\r\n"); 

        while(!feof($s)) { 

            $get=fgets($s,128); 

            if(preg_match('!" value="(.*?)"/>!',$get,$tic)) { 

                return $tic[1]; 

            } 

        } 

    } 

} 







require_once 'lib.php'; 

require_once 'conf.php'; 



if(BOT_BIRTHDAY=='1') { $BD='BIRTHDAY'; } 



set_time_limit(0); 

ignore_user_abort(true); 



$mlCQ=new mlCQ(); 

$mlCQ->create_identity("me",UIN_BOT,PASS_BOT); 

$mlCQ->connect(); 

$mlCQ->login(); 



if(LOG_SET=='1') { $mlCQ->start_logging(LOG_FILE); } 



$mlCQ->set_status(BOT_STATUS, $BD); 



$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('me'); 



    switch($code) { 

        case 7: 



        $msg=$mlCQ->id['in_messages']['last']; 

        $from=$msg['uin']; 

        list($cmd[1])=explode(' ',$msg['text']); 

              $cmd[2]=str_replace("$cmd[1] ",'',$msg['text']); 



             switch($cmd[1]) { 



                // Функция вывода хелпа 

                case '!help': 

                $mlCQ->send_message($from,$help); 

                break; 



                case '!ui': 

                    $mlCQ->send_message($from,$mICQ->request_full_userinfo(4124477)); 

                break; 

                                // Функция вывода хелпа 

                case '!info': 

                $mlCQ->send_message($from,$admin); 

                break; 

                                case '!news': 

                $mlCQ->send_message($from,$news); 

                break; 

                                                // Функция вывода хелпа 







                // Функция создания MD5 хэшей 

                case '!md5': 

                    $mlCQ->send_message($from,md5($cmd[2])); 

                break; 



                // Функция кодирования в Base64 

                case '!b64e': 

                    $mlCQ->send_message($from,base64_encode($cmd[2])); 

                break; 



                // Функция декодирования из Base64 

                case '!b64d': 

                    $mlCQ->send_message($from,base64_decode($cmd[2])); 

                break; 



                // Функция подсчёта длины строки 

                case '!len': 

                    $mlCQ->send_message($from,strlen($cmd[2])); 

                break; 



                // Функция получения Яндекс тИЦ заданного сайта 

                case '!tic': 

                $tic=get_tic($cmd[2]); 

                    if($tic=='') { $tic='Определение тИЦ данного сайта невозможно, либо его значение меньше 10'; } 

                    $mlCQ->send_message($from,$tic); 

                break; 

                                



            // Функция остановки работы бота 

            case '!stop': 

              if($from==UIN_ADMIN) { 

                $mlCQ->send_message($from,'Работы бота завершена'); 

                $mlCQ->close(); 

               } 

        break; 

        

          case '!icq': 

          if($from==UIN_ADMIN,UIN_ADMIN2) { 

  $params = explode(' ', $msg['text']); 

  $mlCQ->send_message($params[1], $params[2]); 

  }

break; 



          case '!admin': 

  $params = explode('', $msg['text']); 

  $mlCQ->send_message(63443447, $params[2]); 

break; 



case '!fakt': 

  $mlCQ->send_message($from, $lines[0][rand(0, count($lines[0]) - 1)]); 

break;





                default: 

                    $mlCQ->send_message($from,"Гы =))) А такой каманды нет!.\nДля вывода справки по командам наберите \"!help\" (без кавычек)"); 

                break; 

            } 

    } 

} 



?>
Как в этого бота добавить:

1) Регистрацию на боте
2) Бан
3) Рекламу
4) Чтобы выводил текст из этой ссылки (http://anek.ws/anekdot/export.php?target=_blank&sign=no&cnt=1)

Всем кто поможет поставлю много плюсоВ!