7
$\begingroup$

Is there a piece of Wolfram Language code out there that integrates reCAPTCHA (for human verification) into the Wolfram Cloud environment?

This is what the reCaptcha service looks like (in Swedish):

recaptcha

When you press the checkbox, metrics such as how long it took to mark the checkbox and how the mouse moved are sent to Google's server. This data is used to determine whether it was a human that marked the checkbox. It is not the same as the generic term "captcha".

$\endgroup$
  • 1
    $\begingroup$ Maybe you can use their API with the built-in functionality for APIs? $\endgroup$ – J. M. is away Apr 26 '16 at 2:59
2
$\begingroup$

As a starter: enter image description here

WolframAlpha["CAPTCHA", IncludePods -> "Result", 
AppearanceElements -> {"Pods"}, 
TimeConstraint -> {30, Automatic, Automatic, Automatic}]

enter image description here

And you can copy/paste the Image easy

enter image description here

If you are looking to do your own challenge-response test, then you can create a key phrase using two random dictionary words,

With[{key = 
   StringJoin@
    Riffle[RandomChoice[WordList["CommonWords"], 2], " "]}, {key, 
  WolframAlpha["CAPTCHA " <> key, IncludePods -> "Result", 
   AppearanceElements -> {"Pods"}, 
   TimeConstraint -> {30, Automatic, Automatic, Automatic}]}]

enter image description here

The call to WolframAlpha is slow (takes about 2+ seconds on my machine), so this might not be the best way to generate captchas for a high-use app.

$\endgroup$
  • $\begingroup$ reCaptcha (a product from Google) is not the same as the generic term Captcha, also having the image is no good for validation unless you also know what it says. $\endgroup$ – C. E. Apr 26 '16 at 8:23
  • $\begingroup$ @Louis, you could have it do 2 dictionary words in the captcha style, and then you will have the key and the image: With[{key = StringJoin@Riffle[RandomChoice[WordList["CommonWords"], 2], " "]}, {key, WolframAlpha["CAPTCHA " <> key, IncludePods -> "Result", AppearanceElements -> {"Pods"}, TimeConstraint -> {30, Automatic, Automatic, Automatic}]} ] $\endgroup$ – Jason B. Apr 26 '16 at 8:59
  • $\begingroup$ As with the popular captchas out there, you get some humorous results: i.stack.imgur.com/1lBfT.png , $\endgroup$ – Jason B. Apr 26 '16 at 9:02
  • $\begingroup$ @JasonB, nice humor :)), make it an answer or edit mine. $\endgroup$ – user9660 Apr 26 '16 at 9:04
  • 2
    $\begingroup$ You are most certainly right, I sometimes talk about things I don't know anything about... $\endgroup$ – Jason B. Apr 26 '16 at 13:10

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.