[Resolvido] Verificação

[augustoclaro 2]

ae pessoal!

 

sabem quelas imagens de verificação que tem nos cadastros pra verificar se é SPAM, que você tem que digitar?

 

eu fiz uma função em asp que gera um texto com quantos você quiser.

 

porém, ele é criado em texto, o único trabalho que você teria seria colocar uma imagem transparente por cima do texto para impedir o usuário de simplesmente selecionar e copiar o código...

 

ai está a(s) função(ões):

 

<%
function estilo()
estilos = "Verdana,Times New Roman,Comic Sans MS,Arial,Arial Black,Calvin,Dayton"
estilos = split(estilos,",")
num = randomiza(lbound(estilos),ubound(estilos))
estilo = estilos(num)
end function
function fonte()
fonte = randomiza(3,8)
end function
function char()
dim chars(35)
for i=65 to 90
chars(i-65) = chr(i)
next
for i=48 to 57
chars(i-22) = chr(i)
next
num = randomiza(lbound(chars),ubound(chars))
char = chars(num)
end function
function ital(str)
num = randomiza(0,10)
if num >= 1 and num <=5 then
ital = "<i>"&str&"</i>"
else
ital = str
end if
end function
function bold(str)
num = randomiza(0,10)
if num >= 1 and num <=5 then
bold = "<b>"&str&"</b>"
else
bold = str
end if
end function
function randomiza(maior,menor)
Randomize()
randomiza = Int((maior-menor+1)*Rnd+menor)
end function
function geraCode(num)
if isnumeric(num) then
geraCode=""
for letras=1 to num
geraCode=geraCode&"<font face="""&estilo()&""" size="""&fonte()&""">"&ital(bold(char()))&"</font>"
next
end if
end function
%>

 

 

Exemplo de uso:

<%=geraCode(5)%>

 

 

Espero que seja útil...