use 5.010;
use strict;
use warnings;
use autodie;
use LWP;
use YobaCoro;
my $url = "http://uchan.to/b/wakaba.pl";
my $referer = "http://uchan.to/b/";
my $proxylist = "10.txt";
my $timeout = 1;
my $max_errors = 0;
my @agents = (
'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36',
'Mozilla/5.0 (Windows NT 6.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36',
'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36',
'Mozilla/5.0 (Windows NT 6.2) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36',
'Mozilla/5.0 (Windows NT 6.3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36',
'Mozilla/5.0 (Windows NT 5.1; rv:26.0) Gecko/20100101 Firefox/26.0',
'Mozilla/5.0 (Windows NT 6.0; rv:26.0) Gecko/20100101 Firefox/26.0',
'Mozilla/5.0 (Windows NT 6.1; rv:26.0) Gecko/20100101 Firefox/26.0',
'Mozilla/5.0 (Windows NT 6.2; rv:26.0) Gecko/20100101 Firefox/26.0',
'Mozilla/5.0 (Windows NT 6.3; rv:26.0) Gecko/20100101 Firefox/26.0',
'Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.16',
'Opera/9.80 (Windows NT 6.0) Presto/2.12.388 Version/12.16',
'Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16',
'Opera/9.80 (Windows NT 6.2) Presto/2.12.388 Version/12.16',
'Opera/9.80 (Windows NT 6.3) Presto/2.12.388 Version/12.16');
sub read_file($)
{
my($fname) = @_;
open my $fh, "<", $fname;
read $fh, my $data, -s $fname;
return $data;
}
sub parse_proxies($)
{
my($text) = @_;
my %tmp;
my @proxies = grep { !$tmp{$_}++ } $text =~ m~((?:\w+://)?[a-z0-9\.]*?\.(?:.{2,3}|\d{1,3}):\d{2,4})~gm;
my @result;
my %ips;
for my $proxy (@proxies)
{
my($ip) = $proxy =~ m~(?:\w+://)?(.*?):\d+~;
next if length $ip < 8;
push @result, $proxy unless $ips{$ip}++;
}
return map { m~^\w+://~ ? $_ : "http://$_" } @result;
}
sub read_proxylist($)
{
my($fname) = @_;
return parse_proxies read_file $fname;
}
sub proxygo
{
my($proxy) = @_;
my $lwp = new LWP::UserAgent;
$lwp->default_header(Referer => $referer);
$lwp->agent($agents[rand @agents]);
$lwp->proxy(["http", "https"], $proxy);
my $errors = 0;
while(1)
{
#my @chars = ("A".."Z", "a".."z", "0".."9");
#my $user;
#$user .= $chars[rand @chars] for 3..30;
#my $pass = "+7901" . substr(rand, -7);
my $res = $lwp->post($url,
Content_Type => "application/x-www-form-urlencoded",
Content => "task=post&field3=Peka73Rus&field4=http://peka.cc/&nofile=on");
$errors++ unless $res->is_success;
last if $max_errors != 0 && $errors >= $max_errors;
sleep $timeout;
}
}
my @proxies = read_proxylist $proxylist;
my $pool = pool \&proxygo, \@proxies, { desc => "proxygo", debug => 1, join => 1 };