#!/usr/bin/perl
########################################################################
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
########################################################################
#cfg: сколько раз:
my $postcount=1000;
########################################################################
my(@HF);
open(HF, "<bl.txt");
chomp(@HF=<HF>);
close(HF);
my(@PL);
open(PL, "<pl.txt");
chomp(@PL=<PL>);
close(PL);
my($req, $page, $post, @ns_headers, $agent, $proxy, $ua, $cookie_jar);
my($a,$b,$back,$id);
for (my $i=0;$i<$postcount;$i++){
$agent = $HF[rand((scalar @HF))];
$agent =~ s/^(\S+)?\s+(\S+)?\s+(.+?)$/$3/im;
$proxy = $PL[rand((scalar @PL))];
@ns_headers = (
'User-Agent: '.$agent,
'Accept: text/html,application/xhtml+xml,application/xml;*/*;',
'Accept-Language: ru-RU,ru;en-US;en;',
'Accept-Encoding: deflate',
'Accept-Charset: KOI8-R,utf-8;q=0.7,*;q=0.7'
);
$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new(autosave => 1,);
$ua->cookie_jar($cookie_jar);
push @{ $ua->requests_redirectable }, 'POST';
#$ua->proxy('http', 'http://'.$proxy.'/');
$req = $ua->get('http://www.nameofrussia.ru/person.html?id=87', @ns_headers);
if ($req->is_success) {
$page = $req->content;
if ($page =~ m/<input\s+type="hidden"\s+name="a"\s+id="a"\s+value="(.+?)">/){$a = $1};
if ($page =~ m/<input\s+type="hidden"\s+name="b"\s+id="b"\s+value="(.+?)">/){$b = $1};
if ($page =~ m/<input type="hidden" name="back"\s+id="back"\s+value="(.+?)">/){$back = $1};
if ($page =~ m/<input\s+type="hidden"\s+name="id"\s+id="id"\s+value="(.+?)">/){$id = $1};
$post = $ua->post('http://www.nameofrussia.ru/submit.html',
{'a' => $a,
'b' => $b,
'back' => $back,
'id' => $id,}
);
if ($post->is_success) {
print "OK\n";
}
else {
die $post->status_line . " (2) \n";
}
}
else {
print $req->status_line . " (1) \n";
}
}
exit;
само оно с внешними файликами:
http://fedya.spb.su/uploads/irf.pl.tar.gz
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум Хорошая документация c примерами по LWP::UserAgent (2006)
- Форум объясните идиоту, отчего не подгружает. с веба же вручную подгружает (2006)
- Форум lwp не хавает кукисы после редиректа (2009)
- Форум sbcl hunchentoot - проблема с set-cookie (2010)
- Форум [ЖЖ] Велосипед не мой. (2009)
- Форум Не работает метод post в PHP7 на Ubuntu (2017)
- Форум [python]Отправка http-запроса на upload-файла на Yandex.narod2 (2011)
- Форум Теоретическая SQL-уязвимость (2013)
- Форум [ASP.Net][Ъ][Ынтерпрайз][еще глобальнее и надежнее] ViewState (2008)
- Форум Content-Length меняет размер для одного и того же файла (2015)