Komponentlose Verifizierungscodegenerierung - GIF -Format
Die Codekopie lautet wie folgt:
<%
OptionExplicit 'Anzeigeanweisung
Classcom_gifcode_class
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'Autor: [email protected] (QQ)
'Danke: Laomi, Laomiao, Netrube
'2006-01-02
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Publicnoisy, Count, Breite, Höhe, Winkel, Offset, Grenze
Privategraph (), margin (3)
PrivateSubclass_initialize ()
Randomisieren
Laut = 16 'Wahrscheinlichkeit des Auftretens des Interferenzpunkts
Count = 4 'Zeichen
Breite = 80 'Bildbreite
Höhe = 20'Picture Height
Winkel = 2 'Zufallswinkeländerung
Offset = 20 'Offset Zufallsänderungsmenge
Grenze = 1'Bordergröße
Ende
PublicFunctioncreate ()
ConstCcharset = "123456789"
Dimi, x, y
Dimvvalidcode: vvalidcode = "" "
Dimvindex
Redimgraph (Breite-1, Höhe-1)
Fei = 0Tocount-1
vindex = int (rnd*len (ccharset))
vvalidcode = vvalidcode+mid (ccharset, vindex+1,1)
Setdrawvindex, ich
Nächste
Create = vValidcode
Endfunktion
SubsetDot (PX, PY)
Ifpx*(widthTH-px-1)> = 0andpy*(Höhe-py-1)> = 0Then
Graph (px, py) = 1
Endif
Ende
Publicsubsetdraw (pindex, pnumber)
'Charakterdaten
Dimdotdata (8)
Dotdata (0) = Array (30,15,50,10,100)
Dotdata (1) = Array (1,34,30,1,71,100,34,100,93,100,100,86)
Dotdata (2) = Array (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,10,50,35,100,55,100,80,50,100,1,95)
Dotdata (5) = Array (100,20,70,1,20,1,1,30,100,30,100,70,100,100,80,100,60,70,50,30,50,50,100,100,60,100,80,100,80,30,50,100,60,100,80,80,30,50,100,60,100,80,30,50,100,100,30,30,50,100,100,30,70,50,10,100,30,70,50,10,100,10,100,10,100 sich.
Dotdata (6) = Array (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)