Yet Another Vkontakte Sender

Давно ничего не писал в блог, поэтому решил набросать скрипт рассылки по ВКонтакту.

Возможности:
[+] Многопоточность
[+] Рассылка по друзьям и диапазону
[+] Отправка сообщений на стену, в ПМ, заявку в друзья
[+] Установка лимита сообщений с одного аккаунта (при работе с диапазоном)
[+] Смена статуса
[+] Подстановка имени получателя
[+] Рандомизация сообщений (замена символов, добавление мусора, замена имен)
[+] Антикапча

Скрипт: скачать

Update 13.11.09:
[+] Исправил некоторые недочеты
[+] Добавил возможность рассылки статичных граффити по стенам

Скрипт: скачать

Update 26.12.09:
[~] Для работы необходим модуль JavaScript

Скрипт: скачать

Update 28.12.09:
С наступающим Новым Годом.
Скрипт: скачать

Update 07.01.10:
Скрипт: скачать

Оптимизация в Perl

Очевидные вещи

Ищите лучшие алгоритмы

Допустим, код выполняется с максимальной эффективность с Вашей точки зрения. Но, может быть, кто-то подошел к данной проблеме с совершенно другой стороны и нашел алгоритм, работающий в сотни раз быстрее. Вы уверены, что используете лучший алгоритм? Воспользуйтесь поисковиком, возможно, вам удастся найти лучшее решение.

mod_perl

Использование mod_perl может ускорить выполнение скрипта в 10 раз. Если Ваш скрипт по каким-либо причинам не работает под ним, то существует fastcgi. Или, возможно, Вам подойдет модуль PPerl, позволяющий превратить скрипт в практически полноценный “демон”.
Читать далее «Оптимизация в Perl»

Сервис «Мои поклонники»

Недавно на ВКонтакте появился новый сервис - "Мои поклонники". Суть сервиса сводится к возможности стать поклонником определенного человека, за что ему добавляется 1% рейтинга (у него должен быть включен данный сервис, и аккаунт "фаната" должен быть подтвержденным по номеру сотового). Т.е. люди с id от ~ 50 000 000 могут голосовать сразу, так как при регистрации они вводили номер мобильного и подтверждали регистрацию таким образом, а люди с меньшими id должны подтвердить свой аккаунт по мобильному, чтобы воспользоваться этим сервисом.
В общем, набросал скрипт, который логинится по списку аккаунтов и "фанатеет" от указанного Вами id, если, конечно, аккаунт активирован.

Скрипт: скачать

И напоследок несколько свежих сигнатур для патчера: скачать

Perl, Tk и немного реверсинга

Недавно немного заинтересовался реверсом, после беглого изучения попавшегося под руку софта набросал небольшой скрипт на перле с интерфейсом, убирающий привязку к железу по сигнатурам.
Скрипт не делает резервной копии файла, поэтому советую делать бэкап заранее, особенно при использовании опции 'Игнорировать MD5'.

Perl Tk script

Скрипт: скачать

Update: Новые сигнатуры от 15.09.09 скачать

Скрипт рассылки по otvet.mail.ru

Что то в последнее время сплошной софт на ассемблере, надо немного разнообразить репертуар.
Итак, простой скрипт на perl'е для рассылки комментариев к ответам. Трафик оттуда раньше шел неплохо (по крайней мере при ручной рекламе), как сейчас - не знаю, пробуйте.

Сам скрипт: Скачать

Пример работы с Anti-Captcha на Perl

Очередной пример на Perl (используется специально написанный модуль):

Параметры:

phrase => 0 или 1 (0 по умолчанию, 1 помечает, что у капчи 2-4 слова)
regsense => 0 или 1 (0 по умолчанию, 1 помечает, что текст капчи чувствителен к регистру)
numeric => 0 или 1 или 2 (0 по умолчанию, 1 помечает, что текст капчи состоит только из цифр, 2 помечает, что на капче нет цифр)
min_len => 0..20 (0 по умолчанию, помечает минимальную длину текста капчи)
max_len => 0..20 (0 - без ограничений, помечает максимальную длину капчи)
is_russian => 0..2
is_fatal => 0 или 1 (0 по умолчанию, прекращать ли работу при фатальных ошибках со стороны антигейта)
verbose => 0 или 1 (1 по умолчанию, отвечает за вывод информации о возможных ошибках и статусе распознавания)

Задаются следующим образом:

Скачать модуль и исходники можно тут: ZIP

GUI в Perl (Tk)

Интерфейсы в перл (Tk)

Решил немного попрактиковаться в написании скриптов с интерфейсом на perl.
Начать решил с базового модуля - Tk (да я знаю про Qt, но решил использовать Tk).
В качестве примера реализовал скрипт, который скачивает композиции из пользовательской библиотеки Last.fm

В итоге скрипт будет выглядеть примерно так:
lastfm downloader
Читать далее «GUI в Perl (Tk)»

Веб брутфорс mail.ru

Брутит по списку логинов и паролей.

[+]Многопоточный
[+]Нормально работает с большими файлами
[+]Отсутствие бана при переборе (на данный момент)

Скачать: архивом,
текстовиком.

Парсер+брутфорс (часть №2)

Теперь напишем брутфорс (исходники одним файлом в конце статьи). Запрос авторизации и какие переменные в него входят были рассмотренны в предыдущей части. Если с помощью сниффера сравнить пакеты сервера при удачной и неудачной авторизации, то можно заметить, что сервер возвращает 302 редирект при удачной авторизации, от этого и будем отталкиваться.

Подключим базовые компоненты Читать далее «Парсер+брутфорс (часть №2)»

Парсер+брутфорс (часть №1)

Часто замечаю на форумах просьбы дать инвайт/аккаунт к какому-нибудь ресурсу, причем многие ресурсы не обладают никакой защитой от перебора пароля. Скрипт для сбора логинов с ресурса (если это возможно) и последующего перебора пишется минут за 10. Непонятно что людям мешает взять и самостоятельно набрать аккаунтов к необходимому ресурсу, ибо в гугле встречается довольно много простых примеров использования потоков и выполнения запросов к серверу.

Парсер (в качестве примера для сайта torrents.ru, полный код парсера приведен в конце статьи):
Для начала разберемся откуда можно набрать список логинов.
Читать далее «Парсер+брутфорс (часть №1)»