MSG
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
D:\Temp\找图片图标\验证码\Code_18.asp 编码GB2312 函数中有无用变量[2] <%
'************************************************************
'作者：云端
'版权：源代码公开，各种用途均可免费使用。
'创建：2013-11-16
'联系：QQ313801120 交流群35915100 邮箱313801120@qq.com
'* Powered By 云端
'************************************************************
Option Explicit '显示声明
Dim mCode
Set mCode = New Com_GifCode_Class
Session("Cnbbr_RndCode") = mCode.Create () '将验证码存到Session中
mCode.OutPut () '输出数据
Set mCode = Nothing
Class Com_GifCode_Class
'''''''''''''''''''''''''''''''''''''''''''''
'Author: Layen support@ssaw.net 84815733(QQ)
'Thanks: Laomi, Laomiao, NetRube
'2006-01-02
'''''''''''''''''''''''''''''''''''''''''''''
Public Noisy , Count, Width , Height , Angle , OffSet , Border
Private Graph (), Margin (3)
Private Sub Class_Initialize()
Randomize
Noisy = 3 '干扰点出现的概率
Count = 6 '字符数量
Width = 80 '图片宽度
Height = 18 '图片高度
Angle = 2 '角度随机变化量
OffSet = 20 '偏移随机变化量
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 * (Rnd * 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(255) & ChrB(255)
Response.BinaryWrite ChrB(0) & ChrB(85) & ChrB(255)
'图象标识符
Response.BinaryWrite ChrB(Asc(","))
Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
'图象宽度
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(0) & ChrB(7) & ChrB(255)
Dim X, Y, I : I = 0
For Y = 0 To Height - 1
For X = 0 To Width - 1
If Rnd < Noisy / 100 Then
Response.BinaryWrite ChrB(1 - Graph(X, Y))
Else
If X * (X - Width) = 0 Or Y * (Y - Height) = 0 Then
Response.BinaryWrite ChrB(Graph(X, Y))
Else
If Graph(X - 1, Y) = 1 Or Graph(X, Y) Or Graph(X, Y - 1) = 1 Then
Response.BinaryWrite ChrB(1)
Else
Response.BinaryWrite ChrB(0)
End If
End If
End If
If(Y * Width + X + 1) Mod 126 = 0 Then
Response.BinaryWrite ChrB(128)
I = I + 1
End If
If(Y * Width + X + I + 1) Mod 255 = 0 Then
If(Width * Height - Y * Width - X - 1) > 255 Then
Response.BinaryWrite ChrB(255)
Else
Response.BinaryWrite ChrB(Width * Height Mod 255)
End If
End If
Next
Next
Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(129) & ChrB(0) & ChrB(59)
End Sub
End Class
%>
|