вторник, 20 декабря 2016 г.

Модуль для anti-captcha и rucaptcha

Йо-хо-хо! Решил сделать подарок кодерам - модуль для разгадывания обычной и гугл каптчи сразу через 2 сервиса: anti-captcha.com и rucaptcha.com на основе синапса!




Последний параметр в обеих функциях отвечает за сервис, если TRUE то рукаптча, если FALSE то антикаптча.

Пример для рекаптчи вк:

Result:=RecognizeRC('6Le00B8TAAAAACHiybbHy8tMOiJhM5vh88JVtP4c', 'http://vk.com/', 'ваш_API_ключ', TRUE);

Пример для обычной каптчи вк:

procedure Captcha(sid: string; var Answer: string);
var fm:TmemoryStream; HTTP:THTTPSend;
begin
  fm:=TMemoryStream.Create;
  HTTP:=THTTPSend.Create;
  HTTP.AddPortNumberToHost:=false;
  HTTP.UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:28.0) Gecko/20100101 Firefox/58.0';
  HTTP.Protocol:='1.1';
  HTTP.HTTPMethod('GET', 'https://vk.com/captcha.php?sid='+sid);
  fm.LoadFromStream(HTTP.Document);
  fm.Position:=0;
  Answer:=Recognize(fm, 'ваш_API_ключ', TRUE);
  HTTP.Free;
  fm.Free;
end;

Кстати, код выше используется в моём модуле для ВК, который я опубликую после исправления всех багов.

Исходный код модуля: http://pastebin.com/kxE54LYU
Старая версия: тут

Если будут вопросы - задавайте в комментариях, постараюсь ответить.

6 комментариев:

  1. но я паскаль в школе бросил. Пишу на Qt

    ОтветитьУдалить
    Ответы
    1. когда планируется библиотека для вк?

      Удалить
    2. Пишите мне по контактам - предоставлю тестовую версию.

      Удалить
  2. Анонимный9 июля 2017 г., 18:46

    Можете пожалуйста подробней объяснить как это подключить в софт уже неделю не могу разобраться

    ОтветитьУдалить
    Ответы
    1. Создаёте *.pas файл с кодом и подключаете его в uses.

      Удалить