Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Perl (Накрутка hotlog или Rambler) |
21.12.2005, 18:31
|
|
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718
Репутация:
268
|
|
Perl (Накрутка hotlog или Rambler)
Чуваки помогите написать на perl накрутчик hotlog или top100.rambler.ru. Плиз. Если можно чтобы еще и через proxy пахала.
|
|
|
21.12.2005, 18:35
|
|
Pagan Heart
Регистрация: 12.08.2004
Сообщений: 3,791
Провел на форуме:
6490435
Репутация:
2290
|
|
perldoc LWP::UserAgent
|
|
|
|
21.12.2005, 18:46
|
|
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718
Репутация:
268
|
|
А мона исходник. А?
|
|
|
|
22.12.2005, 07:12
|
|
Познавший АНТИЧАТ
Регистрация: 24.07.2005
Сообщений: 1,057
Провел на форуме:
1864132
Репутация:
116
|
|
|
|
|
|
22.12.2005, 11:43
|
|
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718
Репутация:
268
|
|
Угу пасибки за исходник! Еще одна просьба: А как это дело можно заставить работать через proxy? Ну это в основном для того чтобы можно было накрутить уникальных посетителей. Заранее пасибо! =)
|
|
|
|
22.12.2005, 12:15
|
|
Крёстный отец :)
Регистрация: 22.06.2005
Сообщений: 1,330
Провел на форуме:
5302668
Репутация:
2054
|
|
PHP код:
#!/usr/bin/perl
$|++;
use HTTP::Request::Common;
require LWP::UserAgent;
use Getopt::Std;
usage()
if ($ARGV[0] eq "-h");
getopt("sctl");
$pageshow= $opt_s || 'http://URL/index.php';
$pageclick= $opt_c || 'http://top.list.ru/counter?id=хххххх&t=130&js=13&r=<REF>&j=true&s=<_SW>*<_SH>&d=<_SC>&rand=<RND>';
$t= $opt_t || 50;
$proxylist= $opt_l || 'proxy.txt';
$counter= 0;
open(FH,">goodproxy.txt");
print FH "";
close FH;
sub click{
($p)=@_;
$p=substr($p,0,length($p)-1);
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(30);
$ua->proxy('http',"http://".$p);
$h1 = new HTTP::Headers
Accept => 'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',
User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
Referer => $pageshow;
$req1 = new HTTP::Request ('GET', "$pageclick", $h1);
$response=$ua->request($req1);
$suc=$response->is_success;
($suc) || print " $p - :".$response->code."\n";
if ($suc) {
open(FH,">>goodproxy.txt");
print FH $p."\n";
close FH;
};
($suc) && print "$p +\n";
sleep(5);
}
print "\n
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Page, we'll show:\n $pageshow\nLink, we'll click:\n $pageclick
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n";
open(PROXY, "$proxylist");
@xproxy=<PROXY>;
chomp(@xproxy);
$suc=1;
while(1) {
for ($i=0;$i<=$t;$i++) {
if ($xproxy[$counter] == '') {
killpidz();
print "\nDone !!!\n";
exit;
}
if ($pid=fork()) {
push(@forked,$pid);
} else {
click($xproxy[$counter]);
exit;
}
$counter++;
}
killpidz();
}
sub usage {
print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Usage: perl $0 [options]...\n";
print "Options are:
-s: Page to show (page with the banner)
-c: Link to click
-t: Number of treads(def: 50)
-l: Proxy list (def: pxoxy.txt)
-h: This help
\nExample:
perl $0 -s \"site.ru\" -c \"site.ru/banner.php?id=777\" -t 250
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++";
exit;
}
sub killpidz {
foreach (@forked) {
chomp;
waitpid($_,0);
kill("TERM" => $_)
}
undef @forked;
}
exit;
вот юзай, добавь тока свежих проксей в proxy.txt
__________________
Лучший способ защиты - это нападение!!!
|
|
|
|
23.12.2005, 02:04
|
|
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718
Репутация:
268
|
|
Огромное пасибо!!! =) Уважил =)
|
|
|
|
23.12.2005, 17:30
|
|
Постоянный
Регистрация: 20.01.2005
Сообщений: 899
Провел на форуме:
1535446
Репутация:
182
|
|
помогите написать тут некоректно,правельнее "сделайте за меня"
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
