| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → [求助]验证码
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 564 人关注过本帖
标题：[求助]验证码
只看楼主 加入收藏
S虫
Rank: 1
等　级：新手上路
帖　子：26
专家分：0
注　册：2006-12-13
楼主
收藏
 问题点数：0 回复次数：5 
[求助]验证码
在写数字验证码时,会出现像 Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(54) & ChrB(9) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(4) & ChrB(0) & ChrB(0)的东西
其中ChrB()中的数字是什么意思啊!!!
搜索更多相关主题的帖子: 验证　
2006-12-28 00:05
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17
第 2 楼
收藏
 得分:0 
ChrB应该是把ASCII码转换为字符的一个函数。
2006-12-28 14:47
S虫
Rank: 1
等　级：新手上路
帖　子：26
专家分：0
注　册：2006-12-13
第 3 楼
收藏
 得分:0 

<%
Call CreateSafeCode() '调用CreateSafeCode 过程
Sub CreateSafeCode () '定义CreateSafeCode 过程
'AddHeader 方法用于增加带有一个要发送到客户应用程序的特殊的HTTP头
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'指定响应的HTTP 内容类型为"Image/BMP"
Response.ContentType = "Image/BMP"
'生成随机数，因为Rnd 生成一个小于1但大于或等于0的数，所以8999*Rnd +1000 得到的
'随机数为一个四位数
Randomize timer
SafeCode = cint(8999*Rnd+1000)
'将SafeCode 保存在SessionCode("SafeCode")中
Session("SafeCode") = SafeCode
' 定义一个二维数组，保存字符数据
Dim Letter(10,20)
'要显示的字符“0”
Letter(0,0) = "0000000000000000"
Letter(0,1) = "0000111110000000"
Letter(0,2) = "0001111111000000"
Letter(0,3) = "0011100011100000"
Letter(0,4) = "0011000001110000"
Letter(0,5) = "0111000000110000"
Letter(0,6) = "0110000000111000"
Letter(0,7) = "0110000000111000"
Letter(0,8) = "1110000000111000"
Letter(0,9) = "1100000000111000"
Letter(0,10) = "1100000000111000"
Letter(0,11) = "1110000000111000"
Letter(0,12) = "1110000000110000"
Letter(0,13) = "1110000000110000"
Letter(0,14) = "0110000000110000"
Letter(0,15) = "0111000001110000"
Letter(0,15) = "0011100001100000"
Letter(0,16) = "0001111111000000"
Letter(0,17) = "0000111110000000"
Letter(0,18) = "0000000000000000"
Letter(0,19) = "0000000000000000"

'要显示的字符“1”
Letter(1,0) = "0000000000000000"
Letter(1,1) = "0000000111000000"
Letter(1,2) = "0000000111000000"
Letter(1,3) = "0000001110000000"
Letter(1,4) = "0000001100000000"
Letter(1,5) = "0000001100000000"
Letter(1,6) = "0000001100000000"
Letter(1,7) = "0000011100000000"
Letter(1,8) = "0000011100000000"
Letter(1,9) = "0000011100000000"
Letter(1,10) = "0000011000000000"
Letter(1,11) = "0000011000000000"
Letter(1,12) = "0000011000000000"
Letter(1,13) = "0000011000000000"
Letter(1,14) = "0000011000000000"
Letter(1,15) = "0000011000000000"
Letter(1,16) = "0000011000000000"
Letter(1,17) = "0000001000000000"
Letter(1,18) = "0000000000000000"
Letter(1,19) = "0000000000000000"


'要显示的字符“2”
Letter(2,0) = "0000000000000000"
Letter(2,1) = "0000111111000000"
Letter(2,2) = "0001111111100000"
Letter(2,3) = "0011100001110000"
Letter(2,4) = "0111000001110000"
Letter(2,5) = "0111000001100000"
Letter(2,6) = "0110000001100000"
Letter(2,7) = "0000000011100000"
Letter(2,8) = "0000000111000000"
Letter(2,9) = "0000000111000000"
Letter(2,10) = "0000001100000000"
Letter(2,11) = "0000011100000000"
Letter(2,12) = "0000111000000000"
Letter(2,13) = "0001100000000000"
Letter(2,14) = "0001100000000000"
Letter(2,15) = "0011000001110000"
Letter(2,16) = "0110111111110000"
Letter(2,17) = "0111111111111000"
Letter(2,18) = "0111110000000000"
Letter(2,19) = "0000000000000000"



'要显示的字符“3”
Letter(3,0) = "0000000000000000"
Letter(3,1) = "0000111111100000"
Letter(3,2) = "0011111111100000"
Letter(3,3) = "0111000011110000"
Letter(3,4) = "0110000001100000"
Letter(3,5) = "0100000011100000"
Letter(3,6) = "0000000011100000"
Letter(3,7) = "0000000111000000"
Letter(3,8) = "0000001100000000"
Letter(3,9) = "0000011111000000"
Letter(3,10) = "0000010011100000"
Letter(3,11) = "0000000001110000"
Letter(3,12) = "0000000001110000"
Letter(3,13) = "0000000001110000"
Letter(3,14) = "0000000001110000"
Letter(3,15) = "0000000001100000"
Letter(3,16) = "1110000011100000"
Letter(3,17) = "1111111111000000"
Letter(3,18) = "0111111110000000"
Letter(3,19) = "0000000000000000"


'要显示的字符“4”
Letter(4,0) = "0000000000000000"
Letter(4,1) = "0000000011100000"
Letter(4,2) = "0000000111100000"
Letter(4,3) = "0000001110000000"
Letter(4,4) = "0000011101110000"
Letter(4,5) = "0000111001110000"
Letter(4,6) = "0000110001100000"
Letter(4,7) = "0001100011100000"
Letter(4,8) = "0011100011000000"
Letter(4,9) = "0111000011000000"
Letter(4,10) = "0110000011000000"
Letter(4,11) = "0110000011000000"
Letter(4,12) = "1100011111111000"
Letter(4,13) = "1111111111110000"
Letter(4,14) = "1111111110000000"
Letter(4,15) = "1110000110000000"
Letter(4,16) = "0000000111000000"
Letter(4,17) = "0000000011000000"
Letter(4,18) = "0000000011000000"
Letter(4,19) = "0000000010000000"


'要显示的字符“5”
Letter(5,0) = "0000000000000000"
Letter(5,1) = "0000110000010000"
Letter(5,2) = "0001111111111000"
Letter(5,3) = "0001111111110000"
Letter(5,4) = "0001111000000000"
Letter(5,5) = "0001100000000000"
Letter(5,6) = "0011100000000000"
Letter(5,7) = "0011100000000000"
Letter(5,8) = "0011111111000000"
Letter(5,9) = "0011111111100000"
Letter(5,10) = "0000000001100000"
Letter(5,11) = "0000000001100000"
Letter(5,12) = "0000000001100000"
Letter(5,13) = "0000000001100000"
Letter(5,14) = "0000000001100000"
Letter(5,15) = "0000000001100000"
Letter(5,16) = "0000000111100000"
Letter(5,17) = "0111111111000000"
Letter(5,18) = "0011111100000000"
Letter(5,19) = "0000000010000000"


'要显示的字符“6”
Letter(6,0) = "0000000000000000"
Letter(6,1) = "0000001111000000"
Letter(6,2) = "0000011110000000"
Letter(6,3) = "0000111000000000"
Letter(6,4) = "0001110000000000"
Letter(6,5) = "0011100000000000"
Letter(6,6) = "0011000000000000"
Letter(6,7) = "0011000000000000"
Letter(6,8) = "0111111111000000"
Letter(6,9) = "0111111111100000"
Letter(6,10) = "0111000001110000"
Letter(6,11) = "0110000000110000"
Letter(6,12) = "0110000000110000"
Letter(6,13) = "0110000000110000"
Letter(6,14) = "0110000000110000"
Letter(6,15) = "0111000001110000"
Letter(6,16) = "0011000001110000"
Letter(6,17) = "0011111111100000"
Letter(6,18) = "0001111111000000"
Letter(6,19) = "0000000000000000"

'要显示的字符“7”
Letter(7,0) = "0000000000000000"
Letter(7,1) = "0010011111111000"
Letter(7,2) = "0111111111110000"
Letter(7,3) = "0111111001110000"
Letter(7,4) = "0000000001100000"
Letter(7,5) = "0000000011100000"
Letter(7,6) = "0000000011000000"
Letter(7,7) = "0000000011000000"
Letter(7,8) = "0000000011000000"
Letter(7,9) = "0000000111000000"
Letter(7,10) = "0000000110000000"
Letter(7,11) = "0000000110000000"
Letter(7,12) = "0000000110000000"
Letter(7,13) = "0000000110000000"
Letter(7,14) = "0000001110000000"
Letter(7,15) = "0000001110000000"
Letter(7,16) = "0000001110000000"
Letter(7,17) = "0000000100000000"
Letter(7,18) = "0000000100000000"
Letter(7,19) = "0000000000000000"

'要显示的字符“8”
Letter(8,0) = "0000000000000000"
Letter(8,1) = "0000111111000000"
Letter(8,2) = "0001111111100000"
Letter(8,3) = "0011100001100000"
Letter(8,4) = "0011000001100000"
Letter(8,5) = "0111000001110000"
Letter(8,6) = "0111000001100000"
Letter(8,7) = "0011000001100000"
Letter(8,8) = "0011110111100000"
Letter(8,9) = "0001111111100000"
Letter(8,10) = "0011100011110000"
Letter(8,11) = "0111000000110000"
Letter(8,12) = "0111000000110000"
Letter(8,13) = "0110000000111000"
Letter(8,14) = "0110000000110000"
Letter(8,15) = "0110000000110000"
Letter(8,16) = "0111000001110000"
Letter(8,17) = "0011111111110000"
Letter(8,18) = "0001111111000000"
Letter(8,19) = "0000000000000000"

'要显示的字符“9”
Letter(9,0) = "0000000000000000"
Letter(9,1) = "0001111111000000"
Letter(9,2) = "0011111111100000"
Letter(9,3) = "0111000011100000"
Letter(9,4) = "0111000001110000"
Letter(9,5) = "0110000000110000"
Letter(9,6) = "0110000000110000"
Letter(9,7) = "0110000000110000"
Letter(9,8) = "0110000000110000"
Letter(9,9) = "0111000001110000"
Letter(9,10) = "0011111111110000"
Letter(9,11) = "0001111111110000"
Letter(9,12) = "0000000001100000"
Letter(9,13) = "0000000001100000"
Letter(9,14) = "0000000011100000"
Letter(9,15) = "0000000111000000"
Letter(9,16) = "0000001110000000"
Letter(9,17) = "0000011100000000"
Letter(9,18) = "0001111000000000"
Letter(9,19) = "0000000000000000"


'显示一个8位的灰度图
' 输出图像文件头
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(54) & ChrB(9) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(4) & ChrB(0) & ChrB(0)
' 输出图像信息头
Response.BinaryWrite ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(64) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(20) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0) &ChrB(8) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(5) & ChrB(0) & ChrB(0) &_
ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(0)
'输出图像调色板
for i = 0 to 255
Response.BinaryWrite ChrB(255-i) & ChrB(255-i) & ChrB(255-i) & ChrB(0)
Next
'输出图像数据
For iTemp1 = 19 to 0 step -1 '图像的每一行
For iTemp2 = 1 to 4 '图像上显示的每一个字
For iTemp3 = 1 to 16 '每个字的每一个像素
'获得SafeCode 第iTemp2 个字符，保存在SafeCodePer 中
SafeCodePer = Mid(SafeCode,iTemp2,1)
'从字符数据Letter 数组中找到SafeCodePer 对应的数组，例如1对应的数组为Letter(1,0) 到Letter(1,19),iTemp 指定具体的行
SafeCodeLetter = Letter(SafeCodePer,iTemp1)
'获得像素值
Pixel = Mid(SafeCodeLetter,iTemp3,1)*255
Response.BinaryWrite ChrB(Pixel)
next
next
next

End Sub
%>
版主能不能看懂啊!!
教教俺呗!!!



[此贴子已经被作者于2006-12-28 18:21:44编辑过]

2006-12-28 18:16
youkuwanhuo
Rank: 1
等　级：新手上路
帖　子：96
专家分：0
注　册：2007-9-21
第 4 楼
收藏
 得分:0 
我也想知道是什么意思！

对手，触及梦想的另一只手，让成功与梦想更近。而 最大的对手就是自己，不断挑战，战胜自我。
2007-09-21 13:34
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17
第 5 楼
收藏
 得分:0 
ASP的验证码原理就是写二进制码生成图片(计算机中图片存储方式为二进制),那些01是二进制码。
2007-09-21 14:06
hmhz
Rank: 7Rank: 7Rank: 7
等　级：贵宾
威　望：30
帖　子：1890
专家分：503
注　册：2006-12-17
第 6 楼
收藏
 得分:0 
ChrB(66)里的数字是经过分组 这是第66组

[编程论坛] ASP超级群：49158383  敲门暗号：ASP编程
龍艺博客 http://www.
2007-09-21 14:17
快速回复：[求助]验证码
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.022849 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved