Categorias

Sistema de CAPTCHA sem componentes e várias configurações

Imagem do avatar de
Publicado por Thiago Borges Vieira

Sistema que gera caracteres para validação de formulários, também conhecido como CAPTCHA.

Sua utilização é bem simples e com diversas configurações no arquivo captcha.asp, confira:
1 – Largura e Altura da imagem
2 – Tamanho do código de segurança
3 – Tipo de código (Numeros aleatórios, Caracteres aleatórios ou Palavras Falsas
4 – Margin entre os caracteres
5 – Randomiza a margin superior entre cada caracter
6 – Efeito Noise
7 – Números de linhas de fundo
8 – Tamanho da linha de fundo
9 – Chave de segurança para “descriptografar” os caracreres

Veja este código em funcionamento

<%@LANGUAGE="VBSCRIPT"%>
<%
function TestCaptcha(byval valSession, byval valCaptcha)
	dim tmpSession
	valSession = Trim(valSession)
	valCaptcha = Trim(valCaptcha)
	if (valSession = vbNullString) or (valCaptcha = vbNullString) then
		TestCaptcha = false
	else
		tmpSession = valSession
		valSession = Trim(Session(valSession))
		Session(tmpSession) = vbNullString
		if valSession = vbNullString then
			TestCaptcha = false
		else
			valCaptcha = Replace(valCaptcha,"i","I")
			if StrComp(valSession,valCaptcha,1) = 0 then
				TestCaptcha = true
			else
				TestCaptcha = false
			end if
		end if		
	end if
end function
%>





CAPTCHA Example






  
    <%
	if not IsEmpty(Request.Form("btnTest")) then
		Response.Write("" & vbCrLf)
	end if
	%>
  

    

      CAPTCHA Example
    

    

      CAPTCHA Image
      
Change Image		
    

    

      Write the characters in the image above
      
    

    

       
      
    
")
		if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
			Response.Write("The code you enter verified.")
		else
			Response.Write("You entered the wrong code.")
		end if
		Response.Write("

Arquivos para Download:

captcha_numchar.zip

Tags: