【扩展篇】非常实用的Asp图片验证码

保存下面代码到code.asp,在需要显示验证码的地方使用
<img? src=”code.asp”? alt=”验证码”? />来显示,使用session(“GetCode”)
来提取验证码
<%
Option? Explicit
Response.buffer=true
Call? Com_CreatValidCode(“GetCode”)
Sub? Com_CreatValidCode(pSN)
Response.Expires? =? -1
Response.AddHeader? “Pragma”,”no-cache”
Response.AddHeader? “cache-ctrol”,”no-cache”
Response.ContentType? =? “Image/bmp”
Randomize
Dim? i,? ii,? iii
Const? cOdds? =? 6? ‘? 杂点出现的机率
Const? cAmount? =? 10? ‘? 文字数量
Const? cCode? =? “0123456789abcd”
‘? 颜色的数据(字符,背景)
Dim? vColorData(1)
vColorData(0)? =? ChrB(0)? &? ChrB(0)? &? ChrB(255)? ‘? 蓝0,绿0,红0(黑色)
vColorData(1)? =? ChrB(255)? &? ChrB(255)? &? ChrB(255)? ‘? 蓝250,绿236,红211(浅蓝色)
‘? 随机产生字符
Dim? vCode(4),? vCodes
For? i? =? 0? To? 3
vCode(i)? =? Int(Rnd? *? cAmount)
vCodes? =? vCodes? &? Mid(cCode,? vCode(i)? +? 1,? 1)
Next
Session(pSN)? =? vCodes? ‘记录入Session
‘? 字符的数据
Dim? vNumberData(9)
vNumberData(0)? =? “1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111”
vNumberData(1)? =? “1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111”
vNumberData(2)? =? “1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011”
vNumberData(3)? =? “1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111”
vNumberData(4)? =? “1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011”
vNumberData(5)? =? “1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111”
vNumberData(6)? =? “1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111”
vNumberData(7)? =? “1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111”
vNumberData(8)? =? “1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111”
vNumberData(9)? =? “1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111”
‘? 输出图像文件头

“【扩展篇】非常实用的Asp图片验证码”的一个回复

  1. 验证码要用专业的皕应HCaptcha,你这个不安全也不专业,比如该站的评论拉动滚动条,只是看起来好看,其实一点都不安全,对破解软件而已,这个拉动后才能评论看起来是有特色的类似验证码功能,其实对破解的人来说,一点效果都没有

评论已关闭。