无组件生成验证码：GIF格式的asp代码
编辑：admin 来源： 更新：2006-12-29 点击：
【字体：小 大】
摘要： 无组件生成验证码：GIF格式的asp代码：第一版使用了数字+字母，但是第二版的安全性已经大大提高，已经不需要再使用字母，因为数字“0”和字母“o”容易混杂，所以也把数字“0”取消了，总之一句话，一切为了用户。关键字： 验证码 GIF 正文： nd * Offset) / 100 Margin(2) = Border + Height * (Rnd * Offset) / 100 Margin(3) = Height - Border - Height * (Rnd * Offset) / 100 Dim vStartX, vEndX, vStartY, vEndY
Dim vWidth, vHeight, vDX, vDY, vDeltaT Dim vAngle, vLength vWidth = Int(Margin(1) - Margin(0)) vHeight = Int(Margin(3) - Margin(2)) ' 起始坐标
vStartX = Int((DotData(pIndex)(0)-1) * vWidth / 100) vStartY = Int((DotData(pIndex)(1)-1) * vHeight / 100) Dim i, j
For i = 1 To UBound(DotData(pIndex), 1)/2 If DotData(pIndex)(2*i-2) <> 0 And DotData(pIndex)(2*i) <> 0 Then ' 终点坐标
vEndX = (DotData(pIndex)(2*i)-1) * vWidth / 100 vEndY = (DotData(pIndex)(2*i+1)-1) * vHeight / 100 ' 横向差距
vDX = vEndX - vStartX
' 纵向差距
vDY = vEndY - vStartY ' 倾斜角度
If vDX = 0 Then
vAngle = Sgn(vDY) * 3.14/2
Else
vAngle = Atn(vDY / vDX)
End If ' 两坐标距离
If Sin(vAngle) = 0 Then
vLength = vDX
Else
vLength = vDY / Sin(vAngle)
End If ' 随机转动角度
vAngle = vAngle + (Rnd - 0.5) * 2 * Angle * 3.14 * 2 / 100 vDX = Int(Cos(vAngle) * vLength) vDY = Int(Sin(vAngle) * vLength) If Abs(vDX) > Abs(vDY) Then vDeltaT = Abs(vDX) Else vDeltaT = Abs(vDY) For j = 1 To vDeltaT
SetDot Margin(0) + vStartX + j * vDX / vDeltaT, Margin(2) + vStartY + j * vDY / vDeltaT
Next vStartX = vStartX + vDX vStartY = vStartY + vDY
End If
Next
End Sub Public Sub Output() Response.Expires = -9999
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Response.ContentType = "image/gif" ' 文件类型
Response.BinaryWrite ChrB(Asc("G")) & ChrB(Asc("I")) & ChrB(Asc("F"))
' 版本信息
Response.BinaryWrite ChrB(Asc("8")) & ChrB(Asc("9")) & ChrB(Asc("a"))
' 逻辑屏幕宽度
Response.BinaryWrite ChrB(Width Mod 256) & ChrB((Width \ 256) Mod 256)
' 逻辑屏幕高度
Response.BinaryWrite ChrB(Height Mod 256) & ChrB((Height \ 256) Mod 256) Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(0)
' 全局颜色列表
Response.BinaryWrite ChrB(255) & ChrB(
[1][2][3]
|
|
|
|
