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 %><% 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 %>