Модуль написанный на Delphi для работы с сервисом RuCaptcha.com
- Разгадывание обычной капчи (простая картинка)
- Разгадывание текстовой капчи (простой текст или вопрос)
- Разгадывание ReCaptcha V2 (капча от Google с галочкой)
- Разгадывание hCaptcha (подобие ReCaptcha)
- Отправка отчета о неверно разгаданной капче.
- Запрос баланса.
FRuCaptcha := TRuCaptcha.Create;
Captcha := TSimpleCaptcha.Create(FileName);
try
FRuCaptcha.APIKey := 'Ваш API ключ';
FRuCaptcha.SolveCaptcha(Captcha);
Result := Captcha.Answer;
finally
Captcha.Free;
end;
FRuCaptcha.ReportBad(CaptchaId);
FRuCaptcha.ReportGood(CaptchaId);
Captcha := TTextCaptcha.Create('Текст капчи');
try
FRuCaptcha.APIKey := 'Ваш API ключ';
FRuCaptcha.SolveCaptcha(Captcha);
Result := Captcha.Answer;
finally
Captcha.Free;
end;
Captcha := TReCaptcha.Create(GoogleKey, PageURL);
try
FRuCaptcha.APIKey := 'Ваш API ключ';
FRuCaptcha.SolveCaptcha(Captcha);
Result := Captcha.Answer;
finally
Captcha.Free;
end;
Как найти GoogleKey описано тут https://rucaptcha.com/api-rucaptcha#solving_recaptchav2_new В примере есть готовый вариант поиска GoogleKey и ввода полученной капчи в проверочное поле ввода