Fuzzer para detectar B.O.F By pr0xxx0r

#!/usr/bin/perl  

 # By pr0xxx0r

  use IO::Socket;  
 my $host = $ARGV[0];  
 my $puerto = $ARGV[1] || die("Uso: fuzzerbof.pl [ip] [puerto]\n");  
 my $nop = "\x90";  
 for($i=1;$i<1000000;$i++) {  
 my $sock = new IO::Socket::INET ( PeerAddr => $host, PeerPort => 80, Proto => 'tcp', Timeout=>'10', ); die "No se Pudo Conectar a $host!\n" unless $sock;  
 $paquete = $nop x $i;  
 print $sock $paquete;  
 if(!$sock) {  
 print "Conexion Muerta al enviar $i bytes!\n";  
 } else { print "Conexion Viva a $i bytez\n"; close($sock);}  
 }