Government Security
Network Security Resources

Jump to content

Photo

[PERL]Review my Code please


  • Please log in to reply
No replies to this topic

#1 f00sh

f00sh

    Private

  • Members
  • 3 posts

Posted 20 May 2008 - 04:35 PM

#!usr/bin/perl
 
 for($x=0;$x<=1000;$x++){print "Content-Type: text/html\n\n";
 
 my $url = "website to click goes here";
 
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET POST);
 
 my $agent = LWP::UserAgent->new;
 my $req = GET $url, Referer => "(http://www.google.com/search?hl=en&q=a+b+c&btnG=Google+Search&meta=)";
 
 print $agent->request($req)->as_string;}

Just wondering if there is anyway i can make this code work faster or more efficient, even better if you could help me to click on links that google cant find such as passworded forums(clearing and renewing the cookies would be a bonus). Thanks :)

f00sh




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users