摘要：无组件生成验证码：GIF格式的asp代码：第一版使用了数字+字母，但是第二版的安全性已经大大提高，已经不需要再使用字母，因为数字“0”和字母“o”容易混杂，所以也把数字“0”取消了，总之一句话，一切为了用户。
关键字：验证码 GIF 
正文：
   出于安全问题，第一版使用了数字+字母，但是第二版的安全性已经大大提高，已经不需要再使用字母，因为数字“0”和字母“o”容易混杂，所以也把数字“0”取消了，总之一句话，一切为了用户。呵呵，像动网那是一定的，因为这个是专为动网制作的，不过其他ASP程序也同样适用。

<% 
Option Explicit ' 显示声明 

Class Com_GifCode_Class 
Public Noisy, Count, Width, Height, Angle, Offset, Border 

Private Graph(), Margin(3) 

Private Sub Class_Initialize() 
Randomize 
Noisy = 9 ' 干扰点出现的概率 
''这里采用随机长度(3-5位)
''修改WWW.CN-PN.COM(Flymorn)
Count = Int((5-3+1)*Rnd+3) ' 字符数量 
Width = 80 ' 图片宽度 
Height = 20 ' 图片高度 
Angle = 2 ' 角度随机变化量 
Offset = 8 ' 偏移随机变化量 
Border = 1 ' 边框大小 
End Sub 

Public Function Create() 

Const cCharSet = "123456789" 

Dim i, x, y 

Dim vValidCode : vValidCode = "" 
Dim vIndex 

ReDim Graph(Width-1, Height-1) 

For i = 0 To Count - 1 
vIndex = Int(Rnd * Len(cCharSet)) 
vValidCode = vValidCode + Mid(cCharSet, vIndex+1 , 1) 
SetDraw vIndex, i 
Next 

Create = vValidCode 

End Function 

Sub SetDot(pX, pY) 
If pX * (Width-pX-1) >= 0 And pY * (Height-pY-1) >= 0 Then 
Graph(pX, pY) = 1 
End If 
End Sub 

Public Sub SetDraw(pIndex, pNumber) 

' 字符数据 
Dim DotData(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, 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, 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) 
DotData(8) = Array(1, 80, 30, 100, 80, 100, 100, 70, 100, 20, 70, 1, 30, 1, 1, 20, 1, 40, 30, 50, 70, 50, 100, 40) 

Dim vExtent : vExtent = Width / Count 
Margin(0) = Border + vExtent * (Rnd * Offset) / 100 + Margin(1) 
Margin(1) = vExtent * (pNumber + 1) - Border - vExtent * (R
[1][2][3]

上一篇：ASP代码：生成可变长/随机彩色验证码(BMP) 下一篇：百度网页搜索原则，发生变化！