Чуваки помогите написать на perl накрутчик hotlog или top100.rambler.ru. Плиз. Если можно чтобы еще и через proxy пахала.
Угу пасибки за исходник! Еще одна просьба: А как это дело можно заставить работать через proxy? Ну это в основном для того чтобы можно было накрутить уникальных посетителей. Заранее пасибо! =)
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
