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 lack of A.I. ♦
    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.
    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.
    Apr 26, 2016 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, 2016 at 9:02
  • $\begingroup$ @JasonB, nice humor :)), make it an answer or edit mine. $\endgroup$
    – user9660
    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.
    Apr 26, 2016 at 13:10

Your Answer

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

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