Geração de código de verificação sem componente - formato GIF
A cópia do código é a seguinte:
<%
Declaração de exibição OptionExplicic '
ClassCom_gifcode_class
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '“
'Autor: [email protected] (qq)
'Obrigado: Laomi, Laomiao, Netrube
'2006-01-02
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '“
Publicnoisy, contagem, largura, altura, ângulo, deslocamento, borda
PrivateGraph (), margem (3)
Privatesubclass_initialize ()
Randomizar
Noisy = 16 'Probabilidade de ocorrência de ponto de interferência
Count = 4 'caracteres
Largura = 80 'Largura da imagem
Altura = 20'icture altura
Ângulo = 2 'de mudança de ângulo aleatório
Deslocamento = 20 'de deslocamento de mudança aleatória quantidade
Border = 1'border Tamanho
Endsub
PublicFunctionCreate ()
Constccharset = "123456789"
Dimi, x, y
DIMVVALIDCODE: vValidCode = ""
Dimvindex
Redimgraph (largura-1, altura-1)
Fori = 0Tocount-1
vindex = int (rnd*len (ccharset))
vValidCode = vValidCode+MID (Ccharset, Vindex+1,1)
SetDrawvindex, i
Próximo
Create = vValidCode
Função final
SubsetDot (PX, PY)
Ifpx*(width-px-1)> = 0andpy*(altura-py-1)> = 0hen
Gráfico (px, py) = 1
Endif
Endsub
PublicsubsetDraw (Pindex, Pnumber)
Dados dos caracteres
Dimdotdata (8)
Dotdata (0) = Matriz (30,15,50,1,50,100)
Dotdata (1) = Array (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = Array (1,1,100,1,42,42,100,70,50,100,1,70)
Dotdata (3) = Array (100,73,6,73,75,6,75,100)
Dotdata (4) = Array (100,1,1,1,1,1,50,50,35,100,55,100,80,50,100,1,95)
Dotdata (5) = Array (100,20,70,1,20,1,1,30,1,80,30,100,70,100,100,80,100,60,70,50,30,50,10,10)
Dotdata (6) = Array (6,26,6,6,100,6,53,100)
Dotdata (7) = Array (100,30.100,20,70,1,30,1,10,10,30,100,70,100,80,70,100,30,100,1,80,1,70,100,30)