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

Суббота, 3. Октябрь 2009
Раздел: Perl, Социальные сети, автор:

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

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

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

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

Понедельник, 7. Сентябрь 2009
Раздел: Perl, автор:

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

Perl Tk script

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

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

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

Воскресенье, 2. Август 2009
Раздел: Perl, автор:

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

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

Print This Post Пример работы с anti-captcha на perl

Четверг, 14. Май 2009
Раздел: Perl, автор:

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

use warnings;
use AntiCaptcha;
$|=1;
 
#Создаем объект
my $ac = AntiCaptcha->new('ac-service.info', 'ключ антикапчи');
#Отправляем изображение на распознавание
my $id = $ac->Recognize('Файл с изображением');
 
my $answ = undef;
 
#Опрашиваем сервер
until($answ = $ac->GetStatus($id))
	{
	 sleep 3;
	}
 
#Выводим распознанный текст
print $answ;

Параметры:
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 - без ограничений, помечает максимальную длину капчи)

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

$ac->{'phrase'} = 0; 
$ac->{'regsense'} = 0;
$ac->{'numeric'} = 0;
$ac->{'max_len'} = 0;
$ac->{'max_len'} = 0;

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

Print This Post GUI в Perl (Tk)

Пятница, 8. Май 2009
Раздел: Perl, автор:

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

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

В итоге скрипт будет выглядеть примерно так:
lastfm downloader
Читать дальше »

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

Среда, 28. Январь 2009
Раздел: Perl, автор:

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

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

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

Print This Post Чекер одноклассников

Вторник, 20. Январь 2009
Раздел: Perl, Социальные сети, автор:

Странно, но почему то не валяется толковых паблик чекеров для Одноклассников...
Качайте кому нужно:
архивом,
текстовиком.

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

Воскресенье, 18. Январь 2009
Раздел: Perl, автор:

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

Подключим базовые компоненты Читать дальше »

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

Воскресенье, 18. Январь 2009
Раздел: Perl, автор:

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

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

Print This Post Спаммер geometria.ru

Суббота, 17. Январь 2009
Раздел: Perl, Социальные сети, автор:

Простенький спаммер под сайт geometria.ru, вроде до сих пор работает. Рассылка по диапазону одним аккаунтом.
Скачать:
текстовиком.

Страница 3 из 41234