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

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

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

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

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

Print This Post Скрипт рассылки по last.fm

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

Скрипт для рассылки сообщений по известному ресурсу Last.fm.

  • Многопоточность
  • Ротация сообщений, аккаунтов
  • Подстановка названия группы (см. ниже)
  • Настраиваемая задержка

Рассылка идет по списку слушателей заданных групп. Проблем при рассылке по стенам нет (при рассылке личных сообщений нужно ставить большую задержку), капча при авторизации не наблюдается.
При тестировании было разослано ~10000 сообщений, в течении суток на сайт пришло ~1000 уникальных посетителей (микс из сша и европы).
Насчет конверта ничего сказать не могу, ибо не знаю куда такое сливать.

Собственно сам скрипт: скачать

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 Максимум-К (Выпуск №2)

Четверг, 25. Июнь 2009
Раздел: Perl, Социальные сети, автор:

Добрый вечер, в эфире программа “Максимум-К” и её постоянный ведущий Unresolved.
В последнее время наблюдается наплыв тем с продажей багов всевозможных flash приложений ВКонтакте. Эксперт А снова проведет расследование и узнает что за быдлоотличный способ продается на форуме в этот раз. Итак:

Ведущий: A, здравствуйте. Какую конкретно тему Вы выберете для своих исследований?

A: Здравствуйте, U, первой на глаза мне попалась тема
https://forum.antichat.ru/thread126311.html , с неё и начнем.

Ведущий: Расскажите, в чем состоит тема, и что продает автор.

А: Автор темы продает "отличный баг", позволяющий накручивать монеты в приложении "Подводный мир" (647544).

Ведущий: Вам удалось разобраться в сути данного "бага"?

А: Конечно, он сводится к элементарной отправке GET-запроса по адресу http://fishbowlru.2fishes.com/stealprod.do?sk=АААААА&prodid=ББББББ&prodtype=2&targetid=ВВВВВВ , где АААААА - ваш id в ВКонтакте, ББББББ - произвольное число (эксперименты показывают, что лучше брать числа от 47153555 и выше), ВВВВВВ - произвольный id игрока в этой игре (можно взять id друга например). При накрутке следует менять число ББББББ, чем больше GET-запросов - тем больше монет в итоге. В конце передачи я предоставлю пример скрипта, реализующего данный способ накрутки. За пару минут мне удалось накрутить ~20000 монет.

монеты

Ведущий: Спасибо, А. Очередная "тайна" раскрыта.

Программа автора: скачать
Скачать скрипт

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

Четверг, 14. Май 2009
Раздел: 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

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, автор:

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

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

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