verifycode.asp

九酷网络个人主页系统破解版

<%
Const nMaxSaturation = 100   ' 最大色彩饱和度
Const nBlankNoisyDotOdds = 0.2  ' 空白处噪点率
Const nColorNoisyDotOdds = 0.1 ' 有色处噪点率
Const nCharCount = 4      ' 产生的字符个数
Const nPixelWidth = 20     ' 单个字符位图的宽度
Const nPixelHeight = 20       ' 单个字符位图的高度
Const nColorHue = 220      ' 显示验证码的色调(-1表示随机色调, -2表示灰度色调)
Const nAngleRandom = 10         ' 角度随机量
Const nLengthRandom = 10        ' 长度随机量(百分比)
Const cCharSet = "0123456789"
                                ' 构成验证码的字符集
                                ' 如果扩充了下边的字母矢量库，则可以相应扩充这个字符集

Dim Buf(), DigtalStr
Dim Lines(), LineCount
Dim CursorX, CursorY, DirX, DirY

Randomize
Call CreatValidCode("GetCode")

Sub CDGen_Reset()
 ' 复位矢量笔和环境变量
 LineCount = 0
 CursorX = 0
 CursorY = 0
 ' 初始的光笔方向是垂直向下
 DirX = 0
 DirY = 1
End Sub

Sub CDGen_Clear()
 ' 清空位图阵列
 Dim i, j
 ReDim Buf(nPixelHeight - 1, nCharCount * nPixelWidth - 1)

 For j = 0 To nPixelHeight - 1
  For i = 0 To nCharCount * nPixelWidth - 1
   Buf(j, i) = 0
  Next
 Next
End Sub

Sub CDGen_PSet(X, Y)
 ' 在位图阵列上画点
 Buf(Y, X) = 1
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)
 For i = 0 To DeltaT
  CDGen_PSet X1 + DX * i / DeltaT, Y1 + DY * i / DeltaT
 Next
End Sub

Sub CDGen_FowardDraw(nLength)
 ' 按当前光笔方向绘制指定长度并移动光笔，正数表示从左向右/从上向下绘制，负数表示从右向左/从下向上绘制
 nLength = Sgn(nLength) * Abs(nLength) * (1 - nLengthRandom / 100 + Rnd * nLenghtRandom * 2 / 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 = Sgn(nAngle) * (Abs(nAngle) - nAngleRandom + Rnd * nAngleRandom * 2) / 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) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100
 CursorY = Lines(1, nActionIndex) + Sgn(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

 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)
  If Lines(0, i) < 0 Then Lines(0, i) = 0
  If Lines(0, i) >= nPixelWidth - 2 Then Lines(0, i) = nPixelWidth - 3
  Lines(1, i) = Round((Lines(1, i) - MaxY + OffsetY) * StepY, 0)
  If Lines(1, i) < 0 Then Lines(1, i) = 0
  If Lines(1, i) >= nPixelHeight - 2 Then Lines(1, i) = nPixelHeight - 3
  Lines(2, i) = Round((Lines(2, i) - MinX + OffsetX) * StepX, 0)
  If Lines(2, i) < 0 Then Lines(2, i) = 0
  If Lines(2, i) >= nPixelWidth - 2 Then Lines(2, i) = nPixelWidth - 3
  Lines(3, i) = Round((Lines(3, i) - MinY + OffsetY) * StepY, 0)
  If Lines(3, i) < 0 Then Lines(3, i) = 0
  If Lines(3, i) >= nPixelHeight - 2 Then Lines(3, i) = nPixelHeight - 3
  CDGen_Line Lines(0, i) + X0 + 1, Lines(1, i) + Y0 + 1, Lines(2, i) + X0 + 1, 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度(相对于垂直线)
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection -110                           ' 逆时针110度
  CDGen_FowardDraw 1.2                              ' 绘制1.2个单位
  CDGen_MoveToMiddle 1, 60                          ' 移动画笔的位置到第1笔(0开始)的60%处
  CDGen_SetDirection 90                             ' 顺时针90度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  CDGen_MoveCursor 2                                ' 移动画笔到第2笔(0开始)的开始处
  CDGen_FowardDraw -1.5                             ' 反方向绘制1.5个单位
 Case "5"
  CDGen_SetDirection 90                             ' 顺时针90度(相对于垂直线)
  CDGen_FowardDraw 1.0                              ' 绘制1.0个单位
  CDGen_SetDirection -90                            ' 逆时针90度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection -90                            ' 逆时针90度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 30                             ' 顺时针30度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  CDGen_SetDirection 30                             ' 顺时针30度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
 Case "6"
  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 120                            ' 顺时针120度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位