การสร้างรหัสการตรวจสอบแบบไม่มีส่วนประกอบ - รูปแบบ GIF
การคัดลอกรหัสมีดังนี้:
-
คำสั่งการแสดงผล
classcom_gifcode_class
-
'ผู้แต่ง: [email protected] (QQ)
'ขอบคุณ: Laomi, Laomiao, NetRube
'2006-01-02
-
สาธารณะ
PrivateGraph (), มาร์จิ้น (3)
Privatesubclass_initialize ()
สุ่ม
Noisy = 16 'ความน่าจะเป็นของการเกิดจุดรบกวนที่เกิดขึ้น
นับ = 4 'อักขระ
ความกว้าง = 80 'ความกว้างของรูปภาพ
ความสูง = 20'Picture ความสูง
มุม = 2 'เปลี่ยนมุมสุ่ม
Offset = 20 'ปริมาณการเปลี่ยนแปลงแบบสุ่มแบบออฟเซ็ต
Border = 1'Border ขนาด
enddub
PublicFunctionCreate ()
ConstcCharset = "123456789"
dimi, x, y
dimvValidCode: vValidCode = ""
Dimvindex
Redimgraph (ความกว้าง -1, ความสูง -1)
fori = 0tocount-1
vindex = int (rnd*len (ccharset)))
VValidCode = VValidCode+Mid (CCHARSET, VINDEX+1,1)
setDrawVindex, i
ต่อไป
สร้าง = vValidCode
endfunction
SubsetDot (PX, PY)
ifpx*(width-px-1)> = 0andpy*(ความสูง py-1)> = 0 แล้ว
กราฟ (px, py) = 1
endif
enddub
PublicsubsetDraw (Pindex, Pnumber)
'ข้อมูลอักขระ
Dimdotdata (8)
Dotdata (0) = อาร์เรย์ (30,15,50,1,50,100)
Dotdata (1) = อาร์เรย์ (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = อาร์เรย์ (1,1,100,1,42,42,100,70,50,100,1,1,70)
Dotdata (3) = Array (100,73,6,73,75,6,75,100)
Dotdata (4) = อาร์เรย์ (100,1,1,1,1,1,1,50,50,35,100,55,100,80,50,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,1,60)
Dotdata (6) = อาร์เรย์ (6,26,6,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)