Segurança com captcha

Outro dia vi em site americano uma idéia muito boa, a qual se baseia em uma instrução matemática para o usuário responder.

Trata-se de um padrão de checagem captcha, porém mais dinâmico desta forma o seu usuário precisa ler a pergunta formulada e responder.

Fica ai mais uma sugestão, caso desejem comentem este post.

<%

'** Montando Operador
Private Function GetOperador()
Operadores = Array ("+","-","*","/")
Randomize()
GetOperador = Operadores(cInt(Ubound(Operadores) * Rnd))
End Function

'** Pegando um valor qualquer 
Private Function GetNum()
Numeros = Array (0,1,2,3,4,5,6,7,8,9)
Randomize()
GetNum = Numeros(cInt(Ubound(Numeros) * Rnd))
End Function

'** Realizando Calculo
Private Function CalcResult(Num1,Oper,Num2)
CalcResult = eval(Num1 & Oper & Num2)
End Function

Dim Num1 : Num1 = GetNum()
Dim Num2 : Num2 = GetNum()
Dim Oper : Oper = GetOperador()
%>

Qual o resultado da equação abaixo: 




<%=Num1 &" "& Oper &" "& Num2%>