fork download 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use LWP::UserAgent;
  5.  
  6. my $using_proxy = 1;
  7.  
  8. # Get random proxy from file
  9. sub get_proxy
  10. {
  11. 	open (FILE, 'proxy');
  12. 	chomp (my @text = <FILE>);
  13. 	close FILE;
  14.  
  15. 	return 'http://' . $text[int(rand scalar @text)] . '/';
  16. }
  17.  
  18. sub send_shit{
  19. 	my $agent = 'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/533.2 (KHTML, like Gecko) Chrome/5.0.342.3 Safari/533.2';
  20. 	my $ua = LWP::UserAgent->new (max_size => 1024, agent => $agent, timeout => 15);
  21.  
  22. 	if ($using_proxy)
  23. 	{
  24. 		my $proxy = get_proxy;
  25. 		$ua->proxy ('http', $proxy);
  26. 		print "[~] Using proxy: " . "$proxy\n";
  27. 	}
  28.  
  29. 	my $sec_token  = shift;
  30. 	my $auth_token = shift;
  31.  
  32. 	my $req = HTTP::Request->new (POST => 'http://w...content-available-to-author-only...l.me/10542707');
  33. 	$req->content_type('application/x-www-form-urlencoded');
  34. #	$req->content ("options=112247751&security-token=$sec_token&$auth_token=");
  35. 	$req->content('security-token=18efd8138651e591a4bb5ef0690a05d9&f9e806fe456aca3e21d57973411a54848=&options=112247751');
  36. 	$req->referer('http://w...content-available-to-author-only...l.me/10542707');
  37.  
  38. 	my $res = $ua->request($req);
  39.  
  40. 	print $res->as_string . "\n";
  41. }
  42.  
  43. while (1)
  44. {
  45. 	my $field_sec_token = "18efd8138651e591a4bb5ef0690a05d9";
  46. 	my $field_auth_token = "f9e806fe456aca3e21d57973411a54848";
  47. 	send_shit ($field_sec_token, $field_auth_token);
  48. }
Runtime error #stdin #stdout #stderr 0s 6132KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Can't locate LWP/UserAgent.pm in @INC (you may need to install the LWP::UserAgent module) (@INC contains: /etc/perl /usr/local/lib/i386-linux-gnu/perl/5.20.1 /usr/local/share/perl/5.20.1 /usr/lib/i386-linux-gnu/perl5/5.20 /usr/share/perl5 /usr/lib/i386-linux-gnu/perl/5.20 /usr/share/perl/5.20 /usr/local/lib/site_perl .) at prog.pl line 4.
BEGIN failed--compilation aborted at prog.pl line 4.
https://ideone.com/TWhs6S
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!