re captcha for classic asp in vbscript

admin — Fri, 23 Jan 2009 10:52:38 +0000

If you’d like to use recaptcha on your classic asp pages, you’ll likely find this post http://groups.google.com/group/recaptcha/msg/187b6f7a32f4cbe4 in google groups interesting.
Recaptcha, as you may well know, is the project by Carnegie Mellon University that is using the millions of CAPTCHA inputs on websites to digitize books. In fact, it is using human procesing power to digitize those parts that OCR software is having trouble with.
Great Idea!
So, on to making it work with asp:

Response.Write recaptcha_challenge_writer(publickey12)
If Request.ServerVariables(“CONTENT_LENGTH”) <> 0 Then
Dim strReturn
strReturn = recaptcha_confirm(privatekey12,Request.Form(“recaptcha_challenge_field”),Request.Form(“recaptcha_response_field”))
If strReturn <> TRUE Then
Response.Write strReturn
Else
Response.Write “all ok”
END IF
END If

‘ returns string the can be written where you would like the reCAPTCHA challenged placed on your page
function recaptcha_challenge_writer(publickey)
Dim str

str = ““
recaptcha_challenge_writer = str
end function

function recaptcha_confirm(privkey,rechallenge,reresponse)
‘ Test the captcha field
Dim VarString
VarString = _
“privatekey=” & privkey & _
“&remoteip=” & Request.ServerVariables(“REMOTE_ADDR”) & _
“&challenge=” & rechallenge & _
“&response=” & reresponse

Dim objXmlHttp
Set objXmlHttp = Server.CreateObject(“Msxml2.ServerXMLHTTP”)
objXmlHttp.open “POST”, “http://api-verify.recaptcha.net/verify”,False
objXmlHttp.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”
objXmlHttp.send VarString

Dim ResponseString
ResponseString = split(objXmlHttp.responseText, vblf)
Set objXmlHttp = Nothing
if ResponseString(0) = “true” then
‘They answered correctly
recaptcha_confirm = TRUE
else
‘They answered incorrectly
recaptcha_confirm = ResponseString(1)
end if
end function

leinadium » webservice

re captcha for classic asp in vbscript