Камрады! Поддержите нашего кореша Фишмана!!!

[speedy]

чет опускается комрад. видать посетители - онанюги злостные, раз ТОП2 - девки

[3axapoB]

ИИопт... Спидер!!! это правТа жиСни...
на свою аватарку глянь, и нет вопросов. это наша мужицкая сЫлабая сторона. АтсюТа Фсе горе нашей сильнАй пАлАвины пилять...

только Джену люблю, а больше НИКАВО наах!!!

[Lamer]

везет мне на закрытие десятков )))) отметился 870-м

[Shadow]

+1

[Toff]

Едем дальше +1

[3axapoB]

+1

[Lamer]

+1

[speedy]

каждый день по +2

[Shadow]

+1 ^)

[GoRiNiCH]

проголосовал..могу скинуть линк на hide ip platinum..)пусть сам се голоса набивает)

[3axapoB]

+1
честная борьба - чистая победа
именно поэтому наша страна такая большая.

[Psixo]

Через прокси и скрипт самопис подниму челу рейт по выше
Если это еще актуально,то смогу набить в течении нескольких дней достаточно много... Perl рулит

[Psixo]

Эх, публичные прокси не рулят. 1 из 20 принимается в расчет
Код скрипта:

Code: Select all

#!perl
#use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use IO::Socket;

print "-" x 70 . "\n\n";

###############################################################
#Настройки скрипта
###############################################################
my $file_proxy = "proxy.txt";#Список прокси серверов
my $timeout    = 3;          #Время задержки между кликами,максимальное в сек.
       

###############################################################
#загрузка проксей
open(F1, $file_proxy) or die("Error: Can't open file $file_proxy");
my @proxy = <F1>;
close(F1);
chomp($_) foreach(@proxy);

#инициализация и настройка клиента



#Подключение чере прокси
my $k = 0;
foreach my $pr(@proxy)
	{
	 my $agent = LWP::UserAgent->new;
	 $agent->agent("Mozilla/5.0");
	 $agent->proxy(['http'],"http://$pr/");

	 my $respon = $agent->request(
	 				GET 'http://www.surfingindonesia.ru/index.php',
		 			type   => 'contest',
		 			action => 'vote',
		 			id     => '425'
	 			     );
	 
	 print "\n$pr \t == " . $respon->status_line;
	}


###############################################################
print "\n\n" ."-" x 70 . "\nPress Entre to exit... ";
my $end1 = <STDIN>;