一级棒(Eachfun)
一级棒 - 编程园地 - 源码放送 - 动网7.1验证码字母矢量库的扩展
RSS订阅
动网7.1验证码字母矢量库的扩展
发表时间：2006-05-15 02:16:28　关键词：编程,源码,下载,ASP,动网
(点击：)　把这篇文章告诉我的QQ或MSN朋友

　　动网7.1与7.0相比，在验证码上作了大改动。7.0使用的是一个现成的MBP图库，内含0-9十个数字的图形信息（每个图形都是10*10像数）。因为这十个数字毫无变化，破解的起来还是比较容易的。
　　到了7.1，至少在以下方面有了变化：一是用失量库代替点阵库，这样可以产生任意尺寸的验证码图片；二是字符串长度不仅局限于4个字节，可以使用任意长度，三是增加了变形和噪点处理，即使同一个字符重复出现，也可以产生不同的图片，四是字符集不仅仅局限在十个数字，而可以扩展到其它字符，甚至连汉字也不在话下。
　　但是，动网的程序中只提供了10个数字和“ABC”三个字母的失量图库，并在字母“A”失量库开始前留下这样一句注释：“以下为字母的矢量动作，有兴趣的可以继续”，也就是说如果你不动手扩展，就只能使用由这13个字符组成的字符集。
　　本人怀着对动网的无限敬仰和浓厚兴趣，动手扩展了这个失量库，将26个大写字母弄全了。
　　在动手之前，有个问题必须先说明：一旦引入字母，就必须正视数字“0”与字母“O”、数字“6”与字母“G”因为字形相近而产生的影响。字母“G”我可以设计得跟“6”不一致，但是字母“O”怎么设计都是一个圆圈，于是只好改它的数字“0”了——给它加上一条右上至左下的斜线。于是，数字“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开始)
'添加一条斜线，以免与字母O混淆（偷猫修改于2005-05-14 23:26）
CDGen_MoveToMiddle 2, 100'移动画笔的位置到第3笔(0开始)的结尾处
CDGen_CloseToMiddle 0, 0'将当前画笔位置与第1笔(0开始)的开端封闭
'==========代码结束==========
　　在设计字母“E”的时候，考虑到三条水平线，要给它加上角度随机量，随机量很容易计算，如我要产生“正负20度”只要“20 - Rnd * 40”即可。但是原有的“CDGen_SetDirection”函数都是在以往的角度基础上旋转的，这样在画第二、三条水平线的时候角度会受前面的影响，比如如果三次都是正20，那最后一条线将产生60度的随机量，于是我增加了一个函数“CDGen_SetDirectionFormZero”，它的作用是以0度为基准进行随机量的设定，代码如下：
'==========代码开始==========
Sub CDGen_SetDirectionFormZero(nAngle)
　'按指定角度设定画笔方向，与CDGen_SetDirection的区别是以0度为基准
　nAngle = Sgn(nAngle) * (Abs(nAngle) - nAngleRandom + Rnd * nAngleRandom * 2) / 180 * 3.1415926
　DirX = - Sin(nAngle)
　DirY = Cos(nAngle)
End Sub
'==========代码结束==========
　　下面就可以去补充其它字母的失量库了，代码如下：
'==========代码开始==========
Case "D"
　CDGen_SetDirection -(Rnd * 40 - 20)
　CDGen_FowardDraw 1
　CDGen_SetDirection -120
　CDGen_FowardDraw 0.4
　CDGen_SetDirection -45
　CDGen_FowardDraw 0.5
　CDGen_Close 0
Case "E"
　CDGen_SetDirection -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 0
　CDGen_SetDirectionFormZero -(110 - Rnd * 40)
　CDGen_FowardDraw 0.7
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirectionFormZero -(110 - Rnd * 40)
　CDGen_FowardDraw 0.5
　CDGen_MoveToMiddle 0, 100
　CDGen_SetDirectionFormZero -(110 - Rnd * 40)
　CDGen_FowardDraw 0.9
Case "F"
　CDGen_SetDirection -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 0
　CDGen_SetDirectionFormZero -(110 - Rnd * 40)
　CDGen_FowardDraw 0.7
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirectionFormZero -(110 - Rnd * 40)
　CDGen_FowardDraw 0.5
Case "G"
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection 120
　CDGen_FowardDraw 1.5
　CDGen_SetDirection 120
　CDGen_FowardDraw -0.7
　CDGen_SetDirection 120
　CDGen_FowardDraw 0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 90
　CDGen_FowardDraw 0.4
　CDGen_MoveToMiddle 6, 0
　CDGen_SetDirection 180
　CDGen_FowardDraw 0.4
Case "H"
　CDGen_SetDirection -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection -90
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 1, 100
　CDGen_SetDirection -90
　CDGen_FowardDraw 0.5
　CDGen_MoveToMiddle 1, 100
　CDGen_SetDirection 180
　CDGen_FowardDraw 0.5
Case "I"
　CDGen_SetDirection -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 0
　CDGen_SetDirection -90
　CDGen_FowardDraw 0.2
　CDGen_MoveToMiddle 0, 0
　CDGen_SetDirection 180
　CDGen_FowardDraw 0.2
　CDGen_MoveToMiddle 0, 100
　CDGen_FowardDraw 0.2
　CDGen_MoveToMiddle 0, 100
　CDGen_SetDirection 180
　CDGen_FowardDraw 0.2
Case "J"
　CDGen_SetDirection -90
　CDGen_FowardDraw 0.4
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection 90
　CDGen_FowardDraw 0.6
　CDGen_SetDirection 60
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 120
　CDGen_FowardDraw 0.5
Case "K"
　CDGen_SetDirection -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.6
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.6
Case "L"
　CDGen_SetDirection -90
　CDGen_FowardDraw 0.2
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirectionFormZero -(Rnd * 20 - 10)
　CDGen_FowardDraw 1
　CDGen_SetDirection -(110 - Rnd * 40)
　CDGen_FowardDraw 0.8
　CDGen_SetDirectionFormZero 0
　CDGen_FowardDraw -0.3
Case "M"
　CDGen_SetDirection 0
　CDGen_FowardDraw -1
　CDGen_SetDirection -30
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 60
　CDGen_FowardDraw -0.5
　CDGen_SetDirection -30
　CDGen_FowardDraw 1
Case "N"
　CDGen_SetDirection 0
　CDGen_FowardDraw -1
　CDGen_SetDirection -45
　CDGen_FowardDraw 1.4
　CDGen_SetDirection 45
　CDGen_FowardDraw -1
Case "O"
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection 120
　CDGen_FowardDraw 1.5
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.7
　CDGen_Close 0
Case "P"
　CDGen_SetDirection 0
　CDGen_FowardDraw -1
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 60
　CDGen_FowardDraw 0.5
　CDGen_CloseToMiddle 0, 50
Case "Q"
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw -0.7
　CDGen_SetDirection 120
　CDGen_FowardDraw 1.5
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.7
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.7
　CDGen_Close 0
　CDGen_MoveToMiddle 4, 100
　CDGen_SetDirectionFormZero -45
　CDGen_FowardDraw 0.7
　CDGen_MoveToMiddle 4, 100
　CDGen_SetDirection 180
　CDGen_FowardDraw 0.7
Case "R"
　CDGen_SetDirection 0
　CDGen_FowardDraw -1
　CDGen_SetDirection -80
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 60
　CDGen_FowardDraw 0.5
　CDGen_CloseToMiddle 0, 50
　CDGen_SetDirectionFormZero -45
　CDGen_FowardDraw 0.7
Case "S"
　CDGen_SetDirection -45
　CDGen_FowardDraw -0.5
　CDGen_SetDirection -90
　CDGen_FowardDraw -0.5
　CDGen_SetDirection 90
　CDGen_FowardDraw 1
　CDGen_SetDirection 90
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 90
　CDGen_FowardDraw 0.5
Case "T"
　CDGen_SetDirection -90
　CDGen_FowardDraw 0.8
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection 90
　CDGen_FowardDraw 1
　CDGen_MoveToMiddle 0, 0
　CDGen_SetDirection 30
　CDGen_FowardDraw 0.5
　CDGen_MoveToMiddle 0, 100
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.5
Case "U"
　CDGen_FowardDraw 1
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.6
　CDGen_SetDirection -60
　CDGen_FowardDraw 0.6
　CDGen_SetDirection -60
　CDGen_FowardDraw 1
Case "V"
　CDGen_SetDirection -30
　CDGen_FowardDraw 1.5
　CDGen_SetDirection 60
　CDGen_FowardDraw -1.5
Case "W"
　CDGen_SetDirection -30
　CDGen_FowardDraw 1.5
　CDGen_SetDirection 60
　CDGen_FowardDraw -1
　CDGen_SetDirection -60
　CDGen_FowardDraw 1
　CDGen_SetDirection 60
　CDGen_FowardDraw -1.5
Case "X"
　CDGen_SetDirection -45
　CDGen_FowardDraw 1.4
　CDGen_MoveToMiddle 0, 50
　CDGen_SetDirection 90
　CDGen_FowardDraw 0.7
　CDGen_MoveToMiddle 0, 50
　CDGen_FowardDraw -0.7
Case "Y"
　CDGen_SetDirection -30
　CDGen_FowardDraw 0.5
　CDGen_SetDirection 60
　CDGen_FowardDraw -0.5
　CDGen_MoveToMiddle 0, 100
　CDGen_SetDirection -30
　CDGen_FowardDraw 0.5
Case "Z"
　CDGen_SetDirection -90
　CDGen_FowardDraw 1
　CDGen_SetDirection -45
　CDGen_FowardDraw -1.4
　CDGen_SetDirection 45
　CDGen_FowardDraw 1
'==========代码结束==========
　　顺便说一下，这个版本的验证码还有一个问题没有解决：即如果同一台机同时打开多个窗口，则只有最后打开的那个验证码有效，像我这样的网民喜欢同时点出十来个网页，然后一个一个看，同时挑几个回帖。要解决这个问题，只要给“Dv_GetCode.asp”加一个QueryString参数即可，详细内容以后再谈。

本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
相关评论
  • dsfsdfsdfdfdfd
    作者：黑寡妇QQ213123213，emailaaaaaa@163.com，　时间：2007-10-23 13:08:12
  • 动网7.1里面的验证码模块
    的源代码名称应该是Dv_GetCode吧
    该代码段中有一个颜色系统转换函数（即Function HSBToRGB(vH, vS, vB)' 将颜色值由HSB转换为RGB）看不懂，希望你能帮忙解析一下，谢谢
    如果可以的话，能否去掉这个函数，用最简单的方式来显示验证码的颜色呢？？如果你有空的话，希望你能帮忙修改下该代码，使之能用最简单的方式实现验证码的显示，例如以下方面等：
    ' 颜色的数据(字符，背景)
    Dim vColorData(1)
    vColorData(0) = ChrB(0) & ChrB(0) & ChrB(255) ' 蓝0，绿0，红0（黑色）
    vColorData(1) = ChrB(250) & ChrB(236) & ChrB(211) ' 蓝250，绿236，红211（浅蓝色）
    谢谢你咯
    作者：ASP菜鸟　时间：2007-06-10 04:58:09
  • 问题果然得到解决了！
    26个字母和10个数字的效果果然是超爽的说！HO~~HO~~HO 谢谢偷猫咯！
    作者：ASP菜鸟　时间：2007-05-08 20:51:38
  • 本文为了排版美观，使用了全角空格“　”来对齐，请复制到程序中以后修改。
    作者：偷猫　时间：2007-05-08 19:58:57
  • 动网7.1里面的验证码模块
    的源代码名称应该是Dv_GetCode吧.

    但是把你帖子上说的代码都添加到Dv_GetCode里面，运行Dv_GetCode后，显示出语法错误。我自己也找不出其中的BUG。本人是初学菜鸟，请偷猫，帮忙解决，其中的问题。本人实在是太想把从D到Z的矢量库加到代码中了，希望偷猫可以帮忙解决一下。
    谢谢！
    作者：ASP菜鸟　时间：2007-05-08 19:03:36
1
发表评论
称呼：
ＱＱ：
邮箱：
链接：
内容：
搜索： 百度搜索 Google搜索
Copyright©2000 - 2008 Eachfun.Com， All Rights Reserved 一级棒网络
苏ICP备05080156号
一级棒建站系统 http://www.eachfun.com 一级棒版权所有，未经许可不得商用！