📄 dvcode.asp
字号:
<%
Rem 动网论坛验证码程序改进版
Rem 使用时，请将 Call CreatValidCode("CSName") 中的CSName更改为实际的名称
Rem 改动：captchio http://www.captchio.com qq:58978386
Rem 2006-3-9 修正了一个可能除0的错误
Rem 2006-7-31 字符个数随机，宽度、高度、位置随机，加入干扰线
Rem 2007-7-16 修正图像宽度非4整数倍时的错误，干扰线可设置加粗，加入字符粘连
Rem 2007-7-18 来路判断，允许多页面同时产生验证码而不冲突
Rem ---------------------
Option Explicit
Rem 设置部分
Const nCodeCount = 5 ' 允许保存的验证码数量 (原始值 5)
Const nSaturation = 100 ' 色彩饱和度 (100)
Const nBlankNoisyDotOdds = 0.0 ' 空白处噪点率 (0.0)
Const nColorNoisyDotOdds = 0.0 ' 有色处噪点率 (0.0)
Const bNoisyLineBold = False ' 干扰线是否加粗 (False)
Const nNoisyLineCount = 1 ' 噪音线条数 (1)
Const nJoinOdds = 0.5 ' 字符粘连的几率 (0.5)
Const nCharMin = 3 ' 产生的最小字符个数 (3)
Const nCharMax = 4 ' 产生的最大字符个数 (4)
Const nSpaceX = 2 ' 左右两边的空白宽度 (2)
Const nSpaceY = 2 ' 上下两边的空白宽度 (2)
Const nImgWidth = 60 ' 数据区宽度 (60)
Const nImgHeight = 16 ' 数据区高度 (16)
Const nCharWidthRandom = 16 ' 字符宽度随机量 (16)
Const nCharHeightRandom = 16 ' 字符高度随机量 (16)
Const nPositionXRandom = 10 ' 横向位置随机量 (10)
Const nPositionYRandom = 10 ' 纵向位置随机量 (10)
Const nAngleRandom = 6 ' 笔画角度随机量 (6)
Const nLengthRandom = 6 ' 笔画长度随机量(百分比) (6)
Const nColorHue = -2 ' 显示验证码的色调(-1表示随机色调, -2表示灰度色调) (-2)
Const cCharSet = "0123456789"
' 构成验证码的字符集
' 如果扩充了下边的字母矢量库，则可以相应扩充这个字符集
Rem ---------------------
Randomize
Dim Buf(), DigtalStr, Lasts()
Dim Lines(), LineCount
Dim CursorX, CursorY, DirX, DirY, nCharCount, nPixelWidth, nPixelHeight, PicWidth, PicHeight
nCharCount = nCharMin + CInt(Rnd * (nCharMax - nCharMin))
PicWidth = nImgWidth + nSpaceX + nSpaceX
DirX = PicWidth Mod 4
If DirX <> 0 Then PicWidth = PicWidth + (4-DirX)
PicHeight = nImgHeight + nSpaceY + nSpaceY
Call CreatValidCode("CSName")
Sub CDGen_Reset()
' 复位矢量笔和环境变量
LineCount = 0
CursorX = 0
CursorY = 0
' 初始的光笔方向是垂直向下
DirX = 0
DirY = 1
End Sub
Sub CDGen_Clear()
' 清空位图阵列
Dim i, j
ReDim Buf(PicHeight - 1, PicWidth - 1)
ReDim Lasts(PicHeight - 1)
For j = 0 To PicHeight - 1
For i = 0 To PicWidth - 1
Buf(j, i) = 0
Next
Next
For j = 0 To PicHeight - 1
Lasts(j) = 0
Next
End Sub
Sub CDGen_PSet(X, Y)
' 在位图阵列上画点
If X >= 0 And X < PicWidth And Y >= 0 And Y < PicHeight Then
Buf(Y, X) = 1
If X > Lasts(Y) Then Lasts(Y) = X
End If
End Sub
Sub CDGen_Line(X1, Y1, X2, Y2)
' 在位图阵列上画线
Dim DX, DY, DeltaT, i
DX = X2 - X1
DY = Y2 - Y1
If Abs(DX) > Abs(DY) Then DeltaT = Abs(DX) Else DeltaT = Abs(DY)
If DeltaT = 0 Then
CDGen_PSet CInt(X1),CInt(Y1)
Else
For i = 0 To DeltaT
CDGen_PSet CInt(X1 + DX * i / DeltaT), CInt(Y1 + DY * i / DeltaT)
Next
End If
End Sub
Function CDGen_LineCheck(X1, Y1, X2, Y2)
' 在位图阵列上进行检测，返回距离最小值
Dim DX, DY, DeltaT, x, y, i, n, j, v
v = 0
DX = X2 - X1
DY = Y2 - Y1
If Abs(DX) > Abs(DY) Then DeltaT = Abs(DX) Else DeltaT = Abs(DY)
If DeltaT = 0 Then
x = CInt(X1)
y = CInt(Y1)
If x >= 0 And x < PicWidth And y >= 0 And y < PicHeight Then
v = x - Lasts(y)
End If
Else
j = PicWidth
For i = 0 To DeltaT
x = CInt(X1 + DX * i / DeltaT)
y = CInt(Y1 + DY * i / DeltaT)
If x >= 0 And x < PicWidth And y >= 0 And y < PicHeight Then
n = x - Lasts(y)
If n < j Then
j = n
If n <= 2 Then Exit For
End If
End If
Next
v = j
End If
CDGen_LineCheck = v
End Function
Sub CDGen_FowardDraw(nLength)
' 按当前光笔方向绘制指定长度并移动光笔，正数表示从左向右/从上向下绘制，负数表示从右向左/从下向上绘制
nLength = nLength * (1 + (Rnd * 2 - 1) * nLengthRandom / 100)
ReDim Preserve Lines(3, LineCount)
Lines(0, LineCount) = CursorX
Lines(1, LineCount) = CursorY
CursorX = CursorX + DirX * nLength
CursorY = CursorY + DirY * nLength
Lines(2, LineCount) = CursorX
Lines(3, LineCount) = CursorY
LineCount = LineCount + 1
End Sub
Sub CDGen_SetDirection(nAngle)
' 按指定角度设定画笔方向, 正数表示相对当前方向顺时针改变方向，负数表示相对当前方向逆时针改变方向
Dim DX, DY
nAngle = (nAngle + (Rnd * 2 - 1) * nAngleRandom) / 180 * 3.1415926
DX = DirX
DY = DirY
DirX = DX * Cos(nAngle) - DY * Sin(nAngle)
DirY = DX * Sin(nAngle) + DY * Cos(nAngle)
End Sub
Sub CDGen_MoveToMiddle(nActionIndex, nPercent)
' 将画笔光标移动到指定动作的中间点上，nPercent为中间位置的百分比
Dim DeltaX, DeltaY
DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
CursorX = Lines(0, nActionIndex) + DeltaX * nPercent / 100
CursorY = Lines(1, nActionIndex) + DeltaY * Abs(DeltaY) * nPercent / 100
End Sub
Sub CDGen_MoveCursor(nActionIndex)
' 将画笔光标移动到指定动作的起始点上
CursorX = Lines(0, nActionIndex)
CursorY = Lines(1, nActionIndex)
End Sub
Sub CDGen_Close(nActionIndex)
' 将当前光笔位置与指定动作的起始点闭合并移动光笔
ReDim Preserve Lines(3, LineCount)
Lines(0, LineCount) = CursorX
Lines(1, LineCount) = CursorY
CursorX = Lines(0, nActionIndex)
CursorY = Lines(1, nActionIndex)
Lines(2, LineCount) = CursorX
Lines(3, LineCount) = CursorY
LineCount = LineCount + 1
End Sub
Sub CDGen_CloseToMiddle(nActionIndex, nPercent)
' 将当前光笔位置与指定动作的中间点闭合并移动光笔，nPercent为中间位置的百分比
Dim DeltaX, DeltaY
ReDim Preserve Lines(3, LineCount)
Lines(0, LineCount) = CursorX
Lines(1, LineCount) = CursorY
DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
CursorX = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100
CursorY = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100
Lines(2, LineCount) = CursorX
Lines(3, LineCount) = CursorY
LineCount = LineCount + 1
End Sub
Sub CDGen_Flush(X0, Y0)
' 按照当前的画笔动作序列绘制位图点阵
Dim MaxX, MinX, MaxY, MinY
Dim DeltaX, DeltaY, StepX, StepY, OffsetX, OffsetY
Dim i, n, joinX
MaxX = MinX = MaxY = MinY = 0
For i = 0 To LineCount - 1
If MaxX < Lines(0, i) Then MaxX = Lines(0, i)
If MaxX < Lines(2, i) Then MaxX = Lines(2, i)
If MinX > Lines(0, i) Then MinX = Lines(0, i)
If MinX > Lines(2, i) Then MinX = Lines(2, i)
If MaxY < Lines(1, i) Then MaxY = Lines(1, i)
If MaxY < Lines(3, i) Then MaxY = Lines(3, i)
If MinY > Lines(1, i) Then MinY = Lines(1, i)
If MinY > Lines(3, i) Then MinY = Lines(3, i)
Next
DeltaX = MaxX - MinX
DeltaY = MaxY - MinY
If DeltaX = 0 Then DeltaX = 1
If DeltaY = 0 Then DeltaY = 1
MaxX = MinX
MaxY = MinY
If DeltaX > DeltaY Then
StepX = (nPixelWidth - 2) / DeltaX
StepY = (nPixelHeight - 2) / DeltaX
OffsetX = 0
OffsetY = (DeltaX - DeltaY) / 2
Else
StepX = (nPixelWidth - 2) / DeltaY
StepY = (nPixelHeight - 2) / DeltaY
OffsetX = (DeltaY - DeltaX) / 2
OffsetY = 0
End If
For i = 0 To LineCount - 1
Lines(0, i) = Round((Lines(0, i) - MaxX + OffsetX) * StepX, 0)
Lines(1, i) = Round((Lines(1, i) - MaxY + OffsetY) * StepY, 0)
Lines(2, i) = Round((Lines(2, i) - MinX + OffsetX) * StepX, 0)
Lines(3, i) = Round((Lines(3, i) - MinY + OffsetY) * StepY, 0)
Next
If (Rnd >= nJoinOdds) or (Len(DigtalStr)<2) Then
joinX = 0
Else
joinX = PicWidth
For i = 0 To LineCount - 1
n = CDGen_LineCheck(Lines(0, i) + X0 + 1, Lines(1, i) + Y0 + 1, Lines(2, i) + X0 + 1, Lines(3, i) + Y0 + 1)
If n < joinX Then
joinX = n
If n <= 2 Then Exit For
End If
Next
If (joinX <= 2) or (joinX = PicWidth) Then
joinX = 0
Else
joinX = joinX - 2
End If
End If
X0 = X0 + 1 - joinX
For i = 0 To LineCount - 1
CDGen_Line Lines(0, i) + X0, Lines(1, i) + Y0 + 1, Lines(2, i) + X0, Lines(3, i) + Y0 + 1
Next
End Sub
Sub CDGen_Char(cChar, X0, Y0)
' 在指定坐标处生成指定字符的位图阵列
CDGen_Reset
Select Case cChar
Case "0"
CDGen_SetDirection -60 ' 逆时针60度(相对于垂直线)
CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位
CDGen_SetDirection -60 ' 逆时针60度
CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位
CDGen_SetDirection 120 ' 顺时针120度
CDGen_FowardDraw 1.5 ' 绘制1.5个单位
CDGen_SetDirection -60 ' 逆时针60度
CDGen_FowardDraw 0.7 ' 绘制0.7个单位
CDGen_SetDirection -60 ' 顺时针120度
CDGen_FowardDraw 0.7 ' 绘制0.7个单位
CDGen_Close 0 ' 封闭当前笔与第0笔(0开始)
Case "1"
CDGen_SetDirection -90 ' 逆时针90度(相对于垂直线)
CDGen_FowardDraw 0.5 ' 绘制0.5个单位
CDGen_MoveToMiddle 0, 50 ' 移动画笔的位置到第0笔(0开始)的50%处
CDGen_SetDirection 90 ' 逆时针90度
CDGen_FowardDraw -1.4 ' 反方向绘制1.4个单位
CDGen_SetDirection 30 ' 逆时针30度
CDGen_FowardDraw 0.4 ' 绘制0.4个单位
Case "2"
CDGen_SetDirection 45 ' 顺时针45度(相对于垂直线)
CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位
CDGen_SetDirection -120 ' 逆时针120度
CDGen_FowardDraw 0.4 ' 绘制0.4个单位
CDGen_SetDirection 60 ' 顺时针60度
CDGen_FowardDraw 0.6 ' 绘制0.6个单位
CDGen_SetDirection 60 ' 顺时针60度
CDGen_FowardDraw 1.6 ' 绘制1.6个单位
CDGen_SetDirection -135 ' 逆时针135度
CDGen_FowardDraw 1.0 ' 绘制1.0个单位
Case "3"
CDGen_SetDirection -90 ' 逆时针90度(相对于垂直线)
CDGen_FowardDraw 0.8 ' 绘制0.8个单位
CDGen_SetDirection 135 ' 顺时针135度
CDGen_FowardDraw 0.8 ' 绘制0.8个单位
CDGen_SetDirection -120 ' 逆时针120度
CDGen_FowardDraw 0.6 ' 绘制0.6个单位
CDGen_SetDirection 80 ' 顺时针80度
CDGen_FowardDraw 0.5 ' 绘制0.5个单位
CDGen_SetDirection 60 ' 顺时针60度
CDGen_FowardDraw 0.5 ' 绘制0.5个单位
CDGen_SetDirection 60 ' 顺时针60度
CDGen_FowardDraw 0.5 ' 绘制0.5个单位
Case "4"
CDGen_SetDirection 20 ' 顺时针20度(相对于垂直线)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -