Categorias

Criando código de segurança com imagem

Veja como é fácil criar aquele código de segurança que alguns formulários possuem para que antes de finalizá-lo é preciso que você digite o código.

Para visualizar um exemplo funcional veja o seguinte link: https://www.conectebr.com/exemplos/aspjpeg/seguranca.asp

Para testar localmente em seu computador baixe o arquivo pelo site https://www.aspjpeg.com/download.html

<%
'Cria o Objeto pra manipular a nossa imagem
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Abre nossa imagem de fundo
Jpeg.Open Server.MapPath("fundoquadro.gif")

'Configuração de cor, nome e tamanho da fonte
Jpeg.Canvas.Font.Color = &H000000
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 65

'Define a variavel de sessão "seguranca"
'e guarda nela o valor de nosso código
Session("seguranca") = GerarCodigo

'Escreve na imagem o valor do código
Jpeg.Canvas.Print 0, 0, Session("seguranca")
Jpeg.Save Server.MapPath("seguranca.jpg")
'Envia ao browser, os dados binarios da imagem
'Jpeg.SendBinary
%>


">
Código:
<% Private Function GerarCodigo() Dim valores, i 'Inicia a função com valor em branco GerarCodigo = "" 'Define um vetor com os elementos de nosso código valores = Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize For i = 1 to 4 GerarCodigo = GerarCodigo & valores(Int(uBound(valores) * Rnd)) Next End Function %>