要读懂这些代码主要是要了解ASP中操作 2进制数据
对象ADODB.Stream！本
主要用就是Adodb.Stream
如果你有这个基础就可以进
步添加更多功能如加入杂点渐变底色数字行列错位笔画短点提高被ocr识别不可能
目前还没有好识别引擎,昨天下载了个号称能识别图像验证码90%！把4321识别成 89910,所以图像码还是比较安全在网上看到有暴力破解
思路方法如果我用图像附加码+禁止外部提交+10次密码
封帐号 +50次密码琐死IP+10秒防刷新间隔注册页登陆页均要加上+禁止外部提交这样,暴力破解应该就没戏了Asp文件:Code.Asp
数据文件:body.Fix , Head.Fix
使用方法:<img src=\"code.asp\">
Response.buffer = true
NumCode
Function NumCode
Response.Expires = -1
Response.AddHeader \"Pragma\",\"no-cache\"
Response.AddHeader \"cache-ctrol\",\"no-cache\"
dim zNum,i,j
dim Ados,Ados1
Randomize timer
生成随机 4位数字:
zNum = c
(8999*Rnd+1000)传递给session
Session(\"GetCode\") = zNum
该for循环是将随机数字放入
个下标3
便于提供给后面阵列变换dim zimg(3),NStr
NStr=cstr(zNum)
For i=0 to 3
zimg(i)=c
(mid(NStr,i+1,1))Next
dim Pos
\'定义 2个 ADODB.Stream binary对象,作图像数据操作的用:
Ados=Server.CreateObject(\"Adodb.Stream\")Ados.Mode=3
Ados.Type=1
Ados.Open
Ados1=Server.CreateObject(\"Adodb.Stream\")Ados1.Mode=3
Ados1.Type=1
Ados1.Open
\'载入0~9
数字数据10x100Gbr阵列数据,每个320字节,10个数字3200
\'BGR
个点,10x10个点个数字个点 3个字节( 2进制8位16进制 00~FF)\'
行10个点 30字节 + 行结束标记 00 00 2字节 32字节所以个10x100宽小于长图像每个数字10x10是320字节\'长大于宽
则无行结束标记 0000,直接是300字节这些就是BMP 24bit
数据详细信息了‘至于头部
也很简单包含长宽图像开始标记等等~~才54字节远没jpg什么复杂Ados.LoadFromFile(Server.mappath(\"body.Fix\"))
Ados1.write Ados.read(1280)
\'第
个for循环,按生成随机数字顺序从 10X100数字阵列中提取出相应 4个数字但是竖排
数字阵列for i=0 to 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
next
\'清空已经用完
ADOS数据调入替换新图像头54字节头文件 Ados.LoadFromFile(Server.mappath(\"head.fix\"))
Pos=lenb(Ados.read
)Ados.Position=Pos \'指定Pos位置,即可再偏移54字节
位置添加图形数据第 2个for循环
进行数字阵列变换由竖排块转换为横排数字块思路方法是隔320字节抽取4次30字节写入ados对象
再抽取偏移第 2行图像数据30字节是
bmp 宽大于长时无00 00行结束标记for i=0 to 9 step 1
for j=0 to 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
next
next
Ados.Position=0
response.BinaryWrite直接向客户端发送图像数据
Response.ContentType = \"image/BMP\"
Response.BinaryWrite Ados.read
Ados.Close:
Ados=nothingAdos1.Close:
Ados1=nothingEnd Function
最新评论