Pembuatan kode verifikasi tanpa komponen - format GIF
Salinan kode adalah sebagai berikut:
<%
Pernyataan tampilan OptionExplicit
Classcom_gifcode_class
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”” yang ”'' ''
'Penulis: [email protected] (qq)
'Terima kasih: Laomi, Laomiao, Netrube
'2006-01-02
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”” yang ”'' ''
PublicNoisy, Count, Width, Height, Angle, Offset, Border
PrivateGraph (), margin (3)
Privatesubclass_initialize ()
Mengacak
Berisik = 16 'probabilitas kejadian titik interferensi
Hitung = 4 'karakter
Lebar = lebar gambar 80 '
Tinggi = 20'picture tinggi
Sudut = 2 'perubahan sudut acak
Offset = 20 'Offset Kuantitas Perubahan Acak
Perbatasan = ukuran 1'BORDER
Endsub
PublicFunctionCreate ()
Constccharset = "123456789"
Dimi, x, y
DIMVVALIDCODE: VVALIDCODE = ""
DIMVINDEX
RediMgraph (lebar-1, tinggi-1)
Fori = 0tocount-1
vindex = int (rnd*len (ccharset))
VVALIDCODE = VVALIDCODE+MID (CCHARSET, VINDEX+1,1)
SetDrawvindex, i
Berikutnya
Create = vValidCode
Fungsi endfungsi
SubsetDot (PX, PY)
Ifpx*(lebar-px-1)> = 0andpy*(Height-py-1)> = 0then
Grafik (px, py) = 1
Endif
Endsub
PublicSubsetDraw (Pindex, Pnumber)
'Data karakter
Dimdotdata (8)
Dotdata (0) = array (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,50,1,60)
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)