Йо-хо-хо! Решил сделать подарок кодерам - модуль для разгадывания обычной и гугл каптчи сразу через 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
Старая версия: тут
Если будут вопросы - задавайте в комментариях, постараюсь ответить.
Последний параметр в обеих функциях отвечает за сервис, если 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
Старая версия: тут
Если будут вопросы - задавайте в комментариях, постараюсь ответить.
Сочувствую.
ОтветитьУдалитькогда планируется библиотека для вк?
ОтветитьУдалитьПишите мне по контактам - предоставлю тестовую версию.
ОтветитьУдалитьМожете пожалуйста подробней объяснить как это подключить в софт уже неделю не могу разобраться
ОтветитьУдалитьСоздаёте *.pas файл с кодом и подключаете его в uses.
Удалить