validate.asp

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Sub CreateValidCode(ByVal pSN)
    Const CODE_SIZE = 4 '验证码位数
    Const MIXED_ODDS = 4 '杂点出现的机率
    Const DISTURB_TIMES = 1 '干扰次数（安全考虑，最好不要小于2）
    
    Const STR_COUNT = 85 '字库数量
    Const STR_LIST = "好一路阳光子无开月了的比小山古天中石头井火大西木开人也叶九七六五合文只个鱼羊哈么点四生件格不步布各你田红蓝来很春下画京左百白东关工共足方尺才梦见查着去区曲寻早可上丰爱呵刘"'字库对应的字符
    Const UNIT_WIDTH = 28'字宽(要为4的倍数)
    Const UNIT_HEIGHT = 24'字高
    Const DOTS_LIMIT = 2'每次删除有效点的上限(避免无法人为识别)
    Const TAY_COUNT = 2'避免删除有效点超过上限的尝试次数限制

    '-----------
    
    Dim i, k, j
    
    ' 颜色的数据(字符，背景)
    Dim vColorData(1)
    vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) ' 蓝0，绿0，红0（黑色）
    vColorData(1) = ChrB(255) & ChrB(203) & ChrB(151) ' 蓝250，绿236，红211（浅蓝色）
    
    ' 字符的数据(可以自己修改，如果修改了尺寸，记得把前面的设定也改了)
    Dim vNumberData(85)
    vNumberData(0) = "1111111111111111111111111111111111101111111111111111111111111100011111000000000000111111110001111100000000000011111111001111111111111100001111111100111111111111100001111100000000001111111100011111110000000000011111100011111111111001111001111100011111111111100111100111110001111111111110011110011111100011111111111001111001111111001111111111001111001100000000000011111100111100110000000000000111110011110011100000000000111110001111001111111111001111111000111001111111111100011111110000100111111111110001111111100000111111111111000111111111100011111111111100011111111100000011111111110001111111100011000111111111000111111000011110110001111000111110000111111111000000000011111100111111111111000000111111111111111111111111001111111111111111111111111111111111111111111111111111111111111111"
    vNumberData(1) = "1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111000000000000000000000000111000000000000000000000000001110000000000000000000000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"