<%
'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
%>
<script>
function Comparar()
{
	if (document.all.codigo.value == "")
	{
		document.all.codigo.focus();
		return false;
	}
	else
	{
		if (document.all.codigoseguranca.value == document.all.codigo.value)
		{
			alert("Ok! " + document.all.codigoseguranca.value + " = " + document.all.codigo.value);			
			return true;
			document.all.submit();
		}
		else
		{
			alert("Código incorreto!");
			document.all.codigo.focus();
			return false;
		}
	}
}
</script>
<form name="form" method="post" action="?">
	<center>
	<img src="seguranca.jpg" border="0" alt=""><br>
	<input type="hidden" name="codigoseguranca" value="<%=Session("seguranca")%>"><br>
	Código: <input type="text" name="codigo" value=""><br>
	<input type="button" onclick="Comparar()" value="Verificar">
	</center>
</form>
<%
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
%>