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 Новости с фронта

Пятница, 3. Июль 2009
Раздел: Assembler, PHP, автор:

Давно не было статей, но не подумайте ничего плохого, мы помним читателей и заботимся о них.
Итак, данный пост посвящен исследованию dx'а в области создания плагинов для Winamp. Вообще, сначала хотелось сделать полезный нам плагин (с функциями сокс бота например), но из-за благочестивости главного и единственного разработчика от данной затеи пришлось отказаться. Плагин был написан и отлажен за несколько дней, об особенностях создания которого dx потом расскажет, если захочет. И вместе с данным плагином мы представляем вам сервис - http://musicsign.ru, ведущий удобную статистику ваших предпочтений в музыке и генерирующий настраиваемую подпись для форумов, которая отображает текущий трек в винампе. Сервис только-только создан и ещё не обладает широкими функциональными возможностями, но со временем они будут расширены. Пользуйтесь, комментируйте, предлагайте идеи по улучшению сервиса.
За сим прощаюсь с вами от себя и dx'a на несколько недель, ибо отпуск. Желаю всем поменьше сидеть в интернете и побольше времени проводить на улице. Искренне ваши Kaimi и пожелавший остаться инкогнито dx.

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

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

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

use warnings;
use AntiCaptcha;
 
#Отключаем буферизацию вывода
$| = 1;
 
#Создаем объект
#antigate.com - адрес сервера антикапчи
#123 - ключ
my $ac = AntiCaptcha->new('antigate.com', '123');
 
#Все последующие методы возвращают число отличное от 0 в случае успеха
 
#Отправляем изображение на распознавание
#Второй параметр задает тип передаваемых данных:
#0 - путь к файлу, 1 - бинарные данные
my $id = $ac->recognize('image.jpg', 0) or die 'error';
 
#Объявляем переменную для хранения результата
my $answ;
#Опрашиваем сервер антикапчи
until($answ = $ac->get_status($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 - без ограничений, помечает максимальную длину капчи)
is_russian => 0..2
is_fatal => 0 или 1 (0 по умолчанию, прекращать ли работу при фатальных ошибках со стороны антигейта)
verbose => 0 или 1 (1 по умолчанию, отвечает за вывод информации о возможных ошибках и статусе распознавания)

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

$ac->{phrase} = 0; 
$ac->{regsense} = 1;
...

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

Print This Post GUI в Perl (Tk)

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

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

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

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

Print This Post MRA Sender [Perl]

Понедельник, 20. Апрель 2009
Раздел: Perl, автор:

Простой скрипт для рассылки по контакт листу Mail.Ru Agent.
Скрипт особо не тестировался.

Update: Поправил получение контакт листа.

Скачать архивом

Print This Post VKontakte sender

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

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

Update: Поправил и обновил
Скачать:
архивом

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

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

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

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

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

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

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

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

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

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

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

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

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