Génération de code de vérification sans composant - Format GIF
La copie de code est la suivante:
<%
Instruction d'affichage d'option Explicite
Classcom_gifcode_class
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Auteur: [email protected] (QQ)
'Merci: Laomi, Laomiao, Netrube
'2006-01-02
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
PublicNoisy, Count, largeur, hauteur, angle, décalage, bordure
Privategraph (), marge (3)
PRIVATESUBCLASS_INITIALIZE ()
Randomiser
Bruyant = 16 'Probabilité d'occurrence du point d'interférence
Count = 4 'caractères
Largeur = 80 'Largeur d'image
Hauteur = 20'picture hauteur
Angle = 2 'changement d'angle aléatoire
Offset = 20 'Offset Random Change Quantité
Border = 1'border Taille
Fin
PublicFunctionCreate ()
Constccharset = "123456789"
Dimi, x, y
Dimvvalidcode: vValidCode = ""
Dimvindex
Redimgraph (largeur-1, hauteur-1)
Fori = 0ToCount-1
Vindex = int (rnd * len (cCharset))
vValidCode = VValidCode + MID (CCharset, Vindex + 1,1)
SetDrawvindex, je
Suivant
Créer = vvalidcode
Finition de fin
Sous-ensemble (PX, PY)
Ifpx * (width-px-1)> = 0andpy * (height-py-1)> = 0Then
Graphique (px, py) = 1
Endire
Fin
Publicsubsetdraw (Pindex, PNumber)
'Données de caractère
Dimdotdata (8)
Dotdata (0) = tableau (30,15,50,1,50,100)
Dotdata (1) = tableau (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = tableau (1,1,100,1,42,42,100,70,50,100,1,70)
Dotdata (3) = tableau (100,73,6,73,75,6,75,100)
Dotdata (4) = tableau (100,1,1,1,1,1,50,50,35,100,55,100,80,50,100,1,95)
Dotdata (5) = tableau (100,20,70,1,20,1,1,30,1,80,30,100,70,100,100,80,100,60,70,50,30,50,100,60)
Dotdata (6) = tableau (6,26,6,6,100,6,53,100)
DotData (7) = Array (100,30,100,20,70,1,30,1,1,20,1,30,100,70,100,80,70,100,30,100,1,80,1,70,100,30)