8
$\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".

Improve this question
$\endgroup$
1
  • 1
    $\begingroup$ Maybe you can use their API with the built-in functionality for APIs? $\endgroup$
    – J. M.'s missing motivation ♦
    Commented Apr 26, 2016 at 2:59

1 Answer 1

Reset to default
3
$\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.

Improve this answer
$\endgroup$
9
  • $\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. ♦
    Commented Apr 26, 2016 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.
    Commented Apr 26, 2016 at 8:59
  • $\begingroup$ As with the popular captchas out there, you get some humorous results: i.sstatic.net/1lBfT.png , $\endgroup$
    – Jason B.
    Commented Apr 26, 2016 at 9:02
  • $\begingroup$ @JasonB, nice humor :)), make it an answer or edit mine. $\endgroup$
    – user9660
    Commented Apr 26, 2016 at 9:04
  • 2
    $\begingroup$ You are most certainly right, I sometimes talk about things I don't know anything about... $\endgroup$
    – Jason B.
    Commented Apr 26, 2016 at 13:10

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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