ASP实现无组件生成验证码-GIF格式

最新推荐文章于 2021-03-19 10:29:06 发布
最新推荐文章于 2021-03-19 10:29:06 发布
阅读量1.2k 收藏
点赞数
分类专栏： ASP 文章标签： asp border graph class qq
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
  1. <% 
  2. Option Explicit ' 显示声明 
  4. Class Com_GifCode_Class 
  5. ''''''''''''''''''''''''''''''''''''''''''''' 
  6. ' Author: Layen support@ssaw.net 84815733(QQ) 
  7. ' Thanks: Laomi, Laomiao, NetRube 
  8. ' 2006-01-02 
  9. ''''''''''''''''''''''''''''''''''''''''''''' 
  10. Public Noisy, Count, Width, Height, Angle, Offset, Border 
  12. Private Graph(), Margin(3) 
  14. Private Sub Class_Initialize() 
  15. Randomize 
  16. Noisy = 16 ' 干扰点出现的概率 
  17. Count = 4 ' 字符数量 
  18. Width = 80 ' 图片宽度 
  19. Height = 20 ' 图片高度 
  20. Angle = 2 ' 角度随机变化量 
  21. Offset = 20 ' 偏移随机变化量 
  22. Border = 1 ' 边框大小 
  23. End Sub 
  25. Public Function Create() 
  27. Const cCharSet = "123456789" 
  29. Dim i, x, y 
  31. Dim vValidCode : vValidCode = "" 
  32. Dim vIndex 
  34. ReDim Graph(Width-1, Height-1) 
  36. For i = 0 To Count - 1 
  37. vIndex = Int(Rnd * Len(cCharSet)) 
  38. vValidCodevValidCode = vValidCode + Mid(cCharSet, vIndex+1 , 1) 
  39. SetDraw vIndex, i 
  40. Next 
  42. Create = vValidCode 
  44. End Function 
  46. Sub SetDot(pX, pY) 
  47. If pX * (Width-pX-1) >= 0 And pY * (Height-pY-1) >= 0 Then 
  48. Graph(pX, pY) = 1 
  49. End If 
  50. End Sub 
  52. Public Sub SetDraw(pIndex, pNumber) 
  54. ' 字符数据 
  55. Dim DotData(8) 
  56. DotData(0) = Array(30, 15, 50, 1, 50, 100) 
  57. DotData(1) = Array(1 ,34 ,30 ,1 ,71, 1, 100, 34, 1, 100, 93, 100, 100, 86) 
  58. DotData(2) = Array(1, 1, 100, 1, 42, 42, 100, 70, 50, 100, 1, 70) 
  59. DotData(3) = Array(100, 73, 6, 73, 75, 6, 75, 100) 
  60. DotData(4) = Array(100, 1, 1, 1, 1, 50, 50, 35, 100, 55, 100, 80, 50, 100, 1, 95) 
  61. DotData(5) = Array(100, 20, 70, 1, 20, 1, 1, 30, 1, 80, 30, 100, 70, 100, 100, 80, 100, 60, 70, 50, 30, 50, 1, 60) 
  62. DotData(6) = Array(6, 26, 6, 6, 100, 6, 53, 100) 
  63. DotData(7) = Array(100, 30, 100, 20, 70, 1, 30, 1, 1, 20, 1, 30, 100, 70, 100, 80, 70, 100, 30, 100, 1, 80, 1, 70, 100, 30) 
  64. DotData(8) = Array(1, 80, 30, 100, 80, 100, 100, 70, 100, 20, 70, 1, 30, 1, 1, 20, 1, 40, 30, 50, 70, 50, 100, 40) 
  66. Dim vExtent : vExtent = Width / Count 
  67. Margin(0) = Border + vExtent * (Rnd * Offset) / 100 + Margin(1) 
  68. Margin(1) = vExtent * (pNumber + 1) - Border - vExtent * (Rnd * Offset) / 100 
  69. Margin(2) = Border + Height * (Rnd * Offset) / 100 
  70. Margin(3) = Height - Border - Height * (Rnd * Offset) / 100 
  72. Dim vStartX, vEndX, vStartY, vEndY 
  73. Dim vWidth, vHeight, vDX, vDY, vDeltaT 
  75. Dim vAngle, vLength 
  77. vWidth = Int(Margin(1) - Margin(0)) 
  79. vHeight = Int(Margin(3) - Margin(2)) 
  81. ' 起始坐标 
  82. vStartX = Int((DotData(pIndex)(0)-1) * vWidth / 100) 
  84. vStartY = Int((DotData(pIndex)(1)-1) * vHeight / 100) 
  86. Dim i, j 
  87. For i = 1 To UBound(DotData(pIndex), 1)/2 
  89. If DotData(pIndex)(2*i-2) <> 0 And DotData(pIndex)(2*i) <> 0 Then 
  91. ' 终点坐标 
  92. vEndX = (DotData(pIndex)(2*i)-1) * vWidth / 100 
  94. vEndY = (DotData(pIndex)(2*i+1)-1) * vHeight / 100 
  96. ' 横向差距 
  97. vDX = vEndX - vStartX 
  98. ' 纵向差距 
  99. vDY = vEndY - vStartY 
  101. ' 倾斜角度 
  102. If vDX = 0 Then 
  103. vAngle = Sgn(vDY) * 3.14/2 
  104. Else 
  105. vAngle = Atn(vDY / vDX) 
  106. End If 
  108. ' 两坐标距离 
  109. If Sin(vAngle) = 0 Then 
  110. vLength = vDX 
  111. Else 
  112. vLength = vDY / Sin(vAngle) 
  113. End If 
  115. ' 随机转动角度 
  116. vAnglevAngle = vAngle + (Rnd - 0.5) * 2 * Angle * 3.14 * 2 / 100 
  118. vDX = Int(Cos(vAngle) * vLength) 
  120. vDY = Int(Sin(vAngle) * vLength) 
  122. If Abs(vDX) > Abs(vDY) Then vDeltaT = Abs(vDX) Else vDeltaT = Abs(vDY) 
  124. For j = 1 To vDeltaT 
  125. SetDot Margin(0) + vStartX + j * vDX / vDeltaT, Margin(2) + vStartY + j * vDY / vDeltaT 
  126. Next 
  128. vStartXvStartX = vStartX + vDX 
  130. vStartYvStartY = vStartY + vDY 
  131. End If 
  132. Next 
  133. End Sub 
  135. Public Sub Output() 
  137. Response.Expires = -9999 
  138. Response.AddHeader "pragma", "no-cache" 
  139. Response.AddHeader "cache-ctrol", "no-cache" 
  140. Response.ContentType = "image/gif" 
  142. ' 文件类型 
  143. Response.BinaryWrite ChrB(Asc("G")) & ChrB(Asc("I")) & ChrB(Asc("F")) 
  144. ' 版本信息 
  145. Response.BinaryWrite ChrB(Asc("8")) & ChrB(Asc("9")) & ChrB(Asc("a")) 
  146. ' 逻辑屏幕宽度 
  147. Response.BinaryWrite ChrB(Width Mod 256) & ChrB((Width / 256) Mod 256) 
  148. ' 逻辑屏幕高度 
  149. Response.BinaryWrite ChrB(Height Mod 256) & ChrB((Height / 256) Mod 256) 
  151. Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(0) 
  152. ' 全局颜色列表 
  153. Response.BinaryWrite ChrB(255) & ChrB(255) & ChrB(255) 
  155. Response.BinaryWrite ChrB(0) & ChrB(85) & ChrB(255) 
  157. ' 图象标识符 
  158. Response.BinaryWrite ChrB(Asc(",")) 
  160. Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) 
  161. ' 图象宽度 
  162. Response.BinaryWrite ChrB(Width Mod 256) & ChrB((Width / 256) Mod 256) 
  163. ' 图象高度 
  164. Response.BinaryWrite ChrB(Height Mod 256) & ChrB((Height / 256) Mod 256) 
  166. Response.BinaryWrite ChrB(0) & ChrB(7) & ChrB(255) 
  168. Dim x, y, i : i = 0 
  169. For y = 0 To Height - 1 
  170. For x = 0 To Width - 1 
  171. If Rnd < Noisy / 100 Then 
  172. Response.BinaryWrite ChrB(1-Graph(x, y)) 
  173. Else 
  174. If x * (x-Width) = 0 Or y * (y-Height) = 0 Then 
  175. Response.BinaryWrite ChrB(Graph(x, y)) 
  176. Else 
  177. If Graph(x-1, y) = 1 Or Graph(x, y) Or Graph(x, y-1) = 1 Then 
  178. Response.BinaryWrite ChrB(1) 
  179. Else 
  180. Response.BinaryWrite ChrB(0) 
  181. End If 
  182. End If 
  183. End If 
  184. If (y * Width + x + 1) Mod 126 = 0 Then 
  185. Response.BinaryWrite ChrB(128) 
  186. ii = i + 1 
  187. End If 
  188. If (y * Width + x + i + 1) Mod 255 = 0 Then 
  189. If (Width*Height - y * Width - x - 1) > 255 Then 
  190. Response.BinaryWrite ChrB(255) 
  191. Else 
  192. Response.BinaryWrite ChrB(Width * Height Mod 255) 
  193. End If 
  194. End If 
  195. Next 
  196. Next 
  197. Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(129) & ChrB(0) & ChrB(59) 
  198. End Sub 
  199. End Class 
  201. Dim mCode 
  202. Set mCode = New Com_GifCode_Class 
  203. Session("GetCode") = mCode.Create() 
  204. mCode.Output() 
  205. Set mCode = Nothing 
  207. %> 
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
piperzero
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
PHP无组件上传类
07-19
PHP无组件上传文件处理函数，有注释，带演示页代码及使用方法说明
asp无组件生成验证码 GIF图片格式
10-28
ASP实现无组件生成验证码-GIF格式，需要asp验证码的朋友可以参考下。
java aspx 验证码,asp 动态生成验证码
weixin_29291573的博客
03-19 56
Const nMaxSaturation = 100' 最大色彩饱和度Const nBlankNoisyDotOdds = 0.2 ' 空白处噪点率Const nColorNoisyDotOdds = 0.1 ' 有色处噪点率Const nCharCount = 4' 产生的字符个数Const nPixelWidth = 20' 单个字符位图的宽度Const nPix...
ASP生成验证码-BMP图片原理，GIF格式，无组件生成验证码
织网e站
05-17 1397
    Option Explicit  显示声明Class Com_GifCode_ClassPublic Noisy, Count, Width, Height, Angle, Offset, BorderPrivate Graph(), Margin(3)Private Sub Class_Initialize()RandomizeNoisy = 16  干扰点出现的概率Coun
无组件ASP验证码-GIF格式
翔的窝窝
12-11 629
无组件ASP验证码-GIF格式Option Explicit         显示声明 Class Com_GifCode_Class          Author: Layen support@ssaw.net 84815733(QQ)      Thanks: 
用asp实现无组件生成验证码的方法2种
01-02
无组件生成验证码-GIF格式 代码如下:<% Option Explicit ‘ 显示声明 Class Com_GifCode_Class ””””””””””””””””””””””’ ‘ Author: Layen support@ssaw.net 84815733(QQ) ...
基于ASP的迅易无组件ASP中文图形验证码 带刷新图形功能修正版.zip
07-19
"基于ASP的迅易无组件ASP中文图形验证码 带刷新图形功能修正版.zip" 这个标题表明我们正在处理一个压缩文件，其中包含一个用于Web开发的图形验证码系统。该系统是用ASP（Active Server Pages）语言编写的，ASP是一种...
ASP源码—迅易无组件ASP中文图形验证码 带刷新图形功能修正版.zip
最新发布
11-03
【ASP源码—迅易无组件ASP中文图形验证码 带刷新图形功能修正版.zip】是一个包含ASP（Active Server Pages）编程语言实现的图形验证码源代码。这个版本是经过修正的，具有图形刷新功能，旨在提供更安全的网站验证...
asp验证码-带刷新-最简洁的验证码代码
06-04
asp验证码，带刷新，代码简洁 验证源码只有55行，超简洁 引用方式： 验证码： 判断页面： <% if trim(session("validateCode")) trim(Request("txt_check")) then ErrorMessage = "请输入正确的验证码" response.write(" alert('"&ErrorMessage&"');location.href='Default.asp' ") response.end end if %>
Asp.Net动态生成验证码实例
zgh2002007的专栏
11-30 1127
<!--var theForm = document.forms[form1];if (!theForm) { theForm = document.form1;}function __doPostBack(eventTarget, eventArgument) { if (!theForm.onsubmit || (the
Asp.Net 动态生成验证码
aome1470的博客
03-19 129
我们在设计用户登录模块时，经常会用到验证码，可以有效地防止黑客软件的恶意破解，现公开我常用的验证码的源代码，生成效果如图：。 使用方法： 1、在Web项目中添加一个类，如“CreateImage.cs”，然后将我公布的源代码Copy进去； 2、再新建一个Web窗体，如“Image.aspx”，在Page_Load中加入代码 “CreateImage....
Asp无组件生成缩略图
爱生活
05-11 862
首先，我们知道在页面中显示图片是如下代码： 　　　　src是图片路径，border控制图片边缘宽度，width是图片的长度，height是图片的高度。缩略图的生成其实就是在原始尺寸上缩放。但一般为了尽量少失真，我们都会按比例缩放。于是，获取图片的长宽尺寸也就成了生成缩略图的重点。　　下面便是编写无组件生成缩略图的步骤：　　1.无组件获取图片大小　　以前刚学ASP不久时看到过一篇利用ASCII码实现
[原创]第二版无组件验证码-GIF格式
weixin_34032827的博客
02-04 78
&lt;%Option Explicit ' 显示声明Class Com_GifCode_Class'''''''''''''''''''''''''''''''''''''''''''''' Author: Layen support@ssaw.net 84815733(QQ)' Thanks: Laomi, Laomiao, NetRube' 2006-01-02'''''''''''''''...
ASP.NET：简易实现验证码生成与刷新教程
在ASP.NET编程中，实现验证码功能是一个常见的需求，它用于增强网站的安全性，防止自动化机器人或恶意用户进行非法操作。本文档提供了一个小例子，展示了如何在ASP.NET环境中构建一个简单的验证码生成器并支持验证码...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值