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 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 Чекер одноклассников

Вторник, 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, вроде до сих пор работает. Рассылка по диапазону одним аккаунтом.
Скачать:
текстовиком.

Print This Post Спаммер емейлов

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

Спаммер емейлов через веб интерфейс рамблера. Для рассылки необходимы аккаунты в раме.
Где то слышал, что если отправлять раз в минуту с одного аккаунта, то проблем с отправкой не возникает, соответственно задержка рассчитывается исходя из этого правила.

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

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