#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $using_proxy = 1;

# Get random proxy from file
sub get_proxy
{
	open (FILE, 'proxy');
	chomp (my @text = <FILE>);
	close FILE;

	return 'http://' . $text[int(rand scalar @text)] . '/';
}

sub send_shit{
	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';
	my $ua = LWP::UserAgent->new (max_size => 1024, agent => $agent, timeout => 15);

	if ($using_proxy)
	{
		my $proxy = get_proxy;
		$ua->proxy ('http', $proxy);
		print "[~] Using proxy: " . "$proxy\n";
	}

	my $sec_token  = shift;
	my $auth_token = shift;

	my $req = HTTP::Request->new (POST => 'http://w...content-available-to-author-only...l.me/10542707');
	$req->content_type('application/x-www-form-urlencoded');
#	$req->content ("options=112247751&security-token=$sec_token&$auth_token=");
	$req->content('security-token=18efd8138651e591a4bb5ef0690a05d9&f9e806fe456aca3e21d57973411a54848=&options=112247751');
	$req->referer('http://w...content-available-to-author-only...l.me/10542707');

	my $res = $ua->request($req);

	print $res->as_string . "\n";
}

while (1)
{
	my $field_sec_token = "18efd8138651e591a4bb5ef0690a05d9";
	my $field_auth_token = "f9e806fe456aca3e21d57973411a54848";
	send_shit ($field_sec_token, $field_auth_token);
}