![](../004.gif)
Кликер своими руками
Спецвыпуск Хакер, номер #004, стр. 004-104-1
MOOF ( MOOF@xakep.ru ; http://MOOF.da.ru)
Эй, перец, ты читал второй спецвыпуск Х, ну тот, что про Инет? Нет? Плохо дело... Прыжками дуй в Олимпийский за спецом и не забудь прикупить книженцию по Перлу, она тебе пригодится. Ну что, сбегал? Прочитал? Вот так-то лучше. Теперь засунь его куда-нибудь подальше и слухай меня. Все что там написано про раскрутку это, конечно, круто, но какой же ты хакер, если собираешься играть по общим правилам? Хватит твоему хомяку плестись в самом конце, ведь он же у тебя крут как яйца! Сейчас мы с тобой напишем кликер, который поможет тебе прочно обосноваться в первых местах любого топа :).
Подготовка рабочего места
Писать кликер мы будем, естественно, на Perl. Перед началом работы тебе было бы неплохо найти халявный шелл, на котором можно будет запускать фоновые процессы. Это самое сложное, так как халявных шеллов и так мало, а тех, которые дают такое богатство возможностей, вообще единицы. Но отсюда есть один выход: познакомься с каким-нибудь западным лохом, любителем Старкрафта или Квейка. У буржуев есть такая дурацкая привычка - иметь выделенную линию и личный сервак в подвале. Чуешь, в чем прикол? Ты подваливаешь к пацану, узнаешь, какая у него любимая игруха, и говоришь, что очень любишь эту гаму и как здорово, что у этого пацана есть свой сервак. Неплохо было бы забацать пагу на нем... И все в том же духе. В итоге, кроме халявного шелла ты получишь халявный хостинг :).
Еще тебе понадобится список анонимных проксей. Его найти не очень сложно, но желательно, чтобы они были рабочие :).
Для написания самого скрипта рекомендую использовать PerlBuilder. Это довольно удобная софтина, которая умеет выделять программу цветом, проверять синтаксис и многие другие вещи. Найти ее можно где-то на листсофте, (www.listsoft.ru), а крак к ней - на асталависте (www.astalavista.box.sk). Чтобы PerlBuilder нормально понимал русский, в каталоге windows найди файл "pbuilder.ini". В нем есть строчка: "Font Face=Courier New". Замени ее на "Font Face=Courier New Cyr" и перезапусти PerlBuilder.
Пробовать наш кликер мы будем на популярном рейтинге "Топ 69". (http://fomenko.ru)
Скальпель, сестра...
Что ж, приступим, друг мой :). Первая строка скрипта - это путь к перлу на шелле. Чаще всего это:
#!/usr/bin/perl.
Ее и напишем. Потом к скрипту подключаем дополнительные модули:
use HTTP::Request::Common;
require LWP::UserAgent;
Инициализируем генератор случайных чисел и уменьшим буфер до единицы:
srand($$ & time ^ $$);
$|=1;
Теперь откроем файл, в котором хранится список твоих проксей:
open(PROXY, "proxy.lst");
@proxies=<PROXY>;
chomp(@proxies);
close(PROXY);
Все адреса проксей должны храниться в текстовом файле с именем "proxy.lst". В следующем формате:
адрес.сервера:порт
адрес.сервера:порт
и т.д.
Инициализируем переменную "$suc", а в "$pr" записываем адрес прокси, случайно выбранного из всего списка.
$suc=1;
$pr = splice(@proxies, int rand @proxies, 1);
Теперь самое интересное. Создадим виртуальный браузер, который будет заходить по ссылке, тем самым кликая по баннеру. Наш скрипт будет изображать собой IE5 и Windows98.