ASP图形数字验证码

最新推荐文章于 2024-02-20 23:57:02 发布
最新推荐文章于 2024-02-20 23:57:02 发布
阅读量928 收藏
点赞数
分类专栏： ASP 文章标签： 图形 asp

 图形生成文件checkcode.asp：

 

<%
	'调用CreateSafeCode 过程
	Call CreateSafeCode()		

	'定义CreateSafeCode 过程
	Sub 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

					'5为随机生成杂点的概率，可以修改
					If Rnd*99 + 1<5 Then
						'随机生成杂点的颜色
						'这样就产生了位置和颜色都随机的像素点
						color = Rnd*255
						Response.BinaryWrite ChrB(color)   
					Else
						Response.BinaryWrite ChrB(Pixel)
					End If
				Next
			Next
		Next
	End Sub 
%>

 

 

调用文件test.asp：

 

<%
	Sub GetSafeCode	
		Dim test,Result

		'忽视产生的错误
		On Error Resume Next	

		'产生Adodb.Stream对象
		Set test=Server.CreateObject("Adodb.Stream")	
		Set test=Nothing

		'如果无法产生Adodb.Stream对象
		'也就是无法获得对客户端的输入输出流
		'则无法直接相客户端浏览器写入图片数据
		'因此直接产生字符随机码，并返回
		If Err Then
			Dim zNum
			Randomize timer
			zNum = cint(8999*Rnd+1000)
			Session("SafeCode") = CStr(zNum)
			Result = Session("SafeCode")		
		Else
			'可以读写客户端输入输出流
			'调用checkcode.asp来产生图片
			Result = ""		
		End If

		Response.Write Result
	End Sub
	
	call GetSafeCode
%>
小鸿叔
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP.NET生成图形验证码的方法详解
10-22
ASP.NET生成图形验证码是一种常见的安全措施，用于防止自动机器人或者恶意程序进行非法操作，例如注册、登录等。本文将深入探讨在ASP.NET中创建图形验证码的详细步骤和技术。 首先，生成图形验证码的核心在于生成...
asp.net生成图形验证码
09-04
在ASP.NET中，生成图形验证码是一项常见的安全功能，用于防止自动化程序（如机器人）进行恶意操作，例如批量注册、频繁登录尝试等。图形验证码通常由一串随机字符组成，显示在一个图片上，用户需要在输入框中正确...
ASP与验证码
三叠纪
07-19 4374
    如今你要申请一个QQ号，需要输入很复杂的验证码：验证码由若干个汉字组成，还加上了花哩唬哨的背景，使得有些汉字实在难以辨认。腾讯这么做，是为了防止有人利用软件批量获取QQ号码----每次提交都要输入随机生成的验证码，这是软件难以做到的。    最初的验证码，只是几个随机生成的数字。但是道高一尺魔高一丈，很快就有能识别数字的软件了，“收藏家”们利用这种软件批量获取帐号，或是探测密码，因为软件可
asp验证码代码 (带刷新)
feiyafei2008的专栏
06-16 809
将以下代码放到一个单独的页面checkcode.asp Option Explicit Response.buffer=true Call Com_CreatValidCode("validateCode") Sub Com_CreatValidCode(pSN) ' 禁止缓存 Response.Expires = -9999 Response.AddHeader "Prag
最简单的asp验证码
weixin_30877755的博客
02-23 123
<%Public Function BornVerifyCode() Randomize '设置随机因子 BornVerifyCode=Mid((Rnd * 1000000), 1, 4) '生成6位随机数，取高4位 End Function%>调用：<%=BornVerifyCode%><%Function Che...
ASP 验证码实例
qiufengwuxiu的博客
12-26 2468
生成验证码页面 ：VerifyCode.asp Option Explicit        ' 显示声明   Class Com_GifCode_Class       Public Noisy, Count, Width, Height, Angle, Offset, Border       Private Graph(), Margin(3)       Priv
ASP.NET-实现图形验证码
踏雨歌青春，诗酒趁年华
02-20 2005
本文介绍了如何使用C#和ASP.NET创建一个简单而有效的图形验证码系统，包括生成随机验证码、绘制验证码图像以及将图像输出到客户端等步骤。ASP.NET实现图形验证码能够增强网站安全性，防止机器人攻击。通过生成随机验证码并将其绘制成图像，用户在输入验证码时增加了人机交互的难度。这种验证码系统对于保护网站免受恶意攻击和机器人恶意行为具有重要意义。
ASP生成数字相加求和的BMP图片验证码
10-30
ASP生成数字相加求和的BMP图片验证码 本资源主要介绍了使用ASP技术生成数字相加求和的BMP图片验证码的方法。这种验证码形式可以有效地防止机器人和恶意用户的攻击。 知识点1: 数字相加求和的验证码原理 ----------...
asp图片验证码
02-08
asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码asp图片验证码
ASP图形验证码程序
07-30
ASP图形验证码生成程序，有DEMO，可自行修改参数。
ASP.NET中画图形验证码的实现代码
01-02
本文给大家分享一段asp.net代码实现画图形验证码功能，代码简单易懂，具体代码如下所示： context.Response.ContentType = image/jpeg; //生成随机的中文验证码 string yzm = 人口手大小多少上中下男女天地会反清复明杨中科小宝双儿命名空间语现在明天来多个的我山东河北南固安北京南昌东海西安是沙河高教园学 + 木禾上下土个八入大天人火文六七儿九无口日中了子门月不开四五目耳头米见白田电也长山出飞马鸟云公车牛羊小少巾牙尺毛又心手水广升足 + 走方半巴业本平书自已东西回片皮生里果几用鱼今正雨两瓜衣来年左右万百
ASP20多种验证码
01-22
asp20多种验证码，包含4位数，5位数，6位数，算数，文字等20多种验证码开元实例
ASP图形验证码代码ASP图形验证码代码
01-18
ASP图形验证码代码ASP图形验证码代码ASP图形验证码代码
asp.net生成字母和数字混合图形验证码
10-22
主要介绍了asp.net生成字母和数字混合图形验证码的实现方法，感兴趣的小伙伴们可以参考一下
Asp图片验证码
dengxiaohua的专栏
03-17 555
保存下面代码到code.asp,在需要显示验证码的地方使用 来显示,使用session("GetCode") 来提取验证码 [code="ASP/VBS"]
asp.net图片验证码
dengguawei0519的博客
06-19 141
image.aspx.cs文件内容 using System; using System.Data; using System.Configuration; using System.Collections; using System.Web; using System.Web.Security; using System.Web.UI; using ...
asp 加减法验证码
最新发布
04-17
ASP是一种服务器端脚本语言，用于动态生成网页内容。在ASP中，可以使用加减法验证码来增加网站的安全性，以防止恶意机器人或自动化程序的攻击。 加减法验证码是一种常见的验证码类型，它要求用户计算一个简单的数学表达式并输入结果。通常，这个表达式会包含加法或减法运算符，并使用随机生成的数字。用户需要正确计算表达式的结果才能通过验证。 实现加减法验证码的步骤如下： 1. 生成随机的数字和运算符：使用ASP的随机数函数生成两个随机数字和一个随机的加法或减法运算符。 2. 计算表达式结果：根据生成的数字和运算符，计算出正确的表达式结果。 3. 在网页中显示验证码：将生成的表达式和结果显示在网页上，通常以图片或文本形式呈现。 4. 验证用户输入：用户在网页上输入计算结果后，将其与正确的结果进行比较。如果输入正确，则验证通过；否则，需要重新输入。 这种验证码方式简单易懂，同时能有效防止自动化程序的攻击。它可以应用于登录、注册、评论等需要用户身份验证的场景。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值