Lo primero es hacer unas imágenes del 0 al 9 y llamarlas de forma extraña (o sea, nada de 1.gif ni uno.gif, hjree.gif es una buena solución
)
Luego, en el archivo donde queremos verlo:
Código:
<form action="getData.asp">
<%
Dim des, num_captcher, arr_captcher(9)
' Yo les he puesto estos nombres :D
arr_captcher(0) = "mk_cer.gif"
arr_captcher(1) = "mk_un.gif"
arr_captcher(2) = "mk_do.gif"
arr_captcher(3) = "mk_tre.gif"
arr_captcher(4) = "mk_cua.gif"
arr_captcher(5) = "mk_cin.gif"
arr_captcher(6) = "mk_se.gif"
arr_captcher(7) = "mk_sie.gif"
arr_captcher(8) = "mk_och.gif"
arr_captcher(9) = "mk_nue.gif"
randomize()
' Esto para sacar numeros entre 10000 y 99999
num_captcher = Cstr(Int((99999 - 10000 + 1) * Rnd + 10000))
for des = 1 to len(num_captcher)
if isNumeric(mid(num_captcher,des,1)) then
response.Write("<img src='images/" & arr_captcher(mid(num_captcher,des,1)) & "' />")
end if
next
session("captcher") = num_captcher
%>
<input type="text" name="captcher" />
</form>
En la página getData.asp, solo tendremos que comprobar si todo es ok
Código:
if request.form("captcher") = session("captcher") then
' Todo OK
else
' Marditos robots!! XD
end if
Un saludo