SHARE
TWEET

Untitled

a guest Jun 8th, 2017 99 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2. print "Content-type: text/html\n\n";
  3. use LWP::Simple;
  4. use HTTP::Cookies;
  5. use LWP::UserAgent;
  6.  
  7.  
  8. if(rand(6)>3)
  9. {
  10.     my $ua = LWP::UserAgent->new;
  11.     $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.8) Gecko/20100722 MRA 5.6 (build 03402) Firefox/3.6.8");
  12.     $ua->default_header('Referer'=>'****');
  13.     $ua->cookie_jar({});
  14.  
  15.     my $res = $ua->get('****');
  16.     $res->decoded_content=~/kodun(.*)value="(.*)">/;
  17.     $kodun=$2;
  18.     $res=$ua->post('*****',
  19.     [
  20.         'username'=>'***',
  21.         'password'=>'***',
  22.         'kodun'=>$kodun
  23.     ]
  24.     );
  25.  
  26.     $res=$ua->post('****',
  27.     [
  28.         'add_post'=>'****',
  29.         'message'=>'***'
  30.     ]
  31.     );
  32.    
  33.    
  34. } else {print "neok";}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top