ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу Perl (Накрутка hotlog или Rambler)
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Perl (Накрутка hotlog или Rambler)
  #1  
Старый 21.12.2005, 18:31
Utochka
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
С нами: 10729766

Репутация: 268


Post Perl (Накрутка hotlog или Rambler)
Чуваки помогите написать на perl накрутчик hotlog или top100.rambler.ru. Плиз. Если можно чтобы еще и через proxy пахала.
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 21.12.2005, 18:35
nerezus
Флудер
Регистрация: 12.08.2004
Сообщений: 3,793
С нами: 11444066

Репутация: 2290


По умолчанию
perldoc LWP::UserAgent
 
Ответить с цитированием

  #3  
Старый 21.12.2005, 18:46
Utochka
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
С нами: 10729766

Репутация: 268


По умолчанию
А мона исходник. А?
 
Ответить с цитированием

  #4  
Старый 22.12.2005, 07:12
Otaku
Познавший АНТИЧАТ
Регистрация: 24.07.2005
Сообщений: 1,057
С нами: 10946149

Репутация: 116


По умолчанию
Вроде что то похожее.
http://forum.codenet.ru/showthread.php?threadid=9298
 
Ответить с цитированием

  #5  
Старый 22.12.2005, 11:43
Utochka
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
С нами: 10729766

Репутация: 268


По умолчанию
Угу пасибки за исходник! Еще одна просьба: А как это дело можно заставить работать через proxy? Ну это в основном для того чтобы можно было накрутить уникальных посетителей. Заранее пасибо! =)
 
Ответить с цитированием

  #6  
Старый 22.12.2005, 12:15
TANZWUT
Крёстный отец :)
Регистрация: 22.06.2005
Сообщений: 1,330
С нами: 10991846

Репутация: 2054


Exclamation
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
__________________
Лучший способ защиты - это нападение!!!
 
Ответить с цитированием

  #7  
Старый 23.12.2005, 02:04
Utochka
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
С нами: 10729766

Репутация: 268


По умолчанию
Огромное пасибо!!! =) Уважил =)
 
Ответить с цитированием

  #8  
Старый 23.12.2005, 17:30
qBiN
Постоянный
Регистрация: 20.01.2005
Сообщений: 899
С нами: 11212166

Репутация: 182


По умолчанию
Цитата:
Чуваки помогите написать
помогите написать тут некоректно,правельнее "сделайте за меня"
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск Perl скрипта из командной строки Prince_Dark Windows 10 20.07.2007 12:37
Опасность ошибок Perl недооценивалась? 1251soldier Мировые новости. Обсуждения. 0 01.12.2005 20:56
Чем занятся php perl java Vandal Болталка 25 30.10.2005 18:13
Books Perl FRAGNATIC PHP 0 11.08.2005 16:58



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.