ASP验证码-GIF格式

最新推荐文章于 2023-08-15 10:12:13 发布
原创 最新推荐文章于 2023-08-15 10:12:13 发布 · 635 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#asp #border #graph #class #qq

  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.             vValidCode = 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.                 vAngle = 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.                 vStartX = vStartX + vDX
  130.                 vStartY = 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.                     i = 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
  206. %>
ASP动态产生图片验证码的方法
09-26
本人上网收集的有关ASP.NET中有关如何动态生成验证码的几个基本方法（附带原代码和2个工程示例）希望可以对大家有帮助，资源都是免费的哦
asp无组件生成验证码 GIF图片格式
01-02
代码如下: <% Option Explicit ‘ 显示声明 Class Com_GifCode_Class ””””””””””””...Public Noisy, Count, Width, Height, Angle, Offset, Border Private Graph(), Margin(3) Private Sub Class_
ASP生成验证码-BMP图片原理，GIF格式，无组件生成验证码
织网e站
05-17 1460
    Option Explicit  显示声明Class Com_GifCode_ClassPublic Noisy, Count, Width, Height, Angle, Offset, BorderPrivate Graph(), Margin(3)Private Sub Class_Initialize()RandomizeNoisy = 16  干扰点出现的概率Coun
[原创]第二版无组件验证码-GIF格式
weixin_34032827的博客
02-04 107
&lt;%Option Explicit ' 显示声明Class Com_GifCode_Class'''''''''''''''''''''''''''''''''''''''''''''' Author: Layen support@ssaw.net 84815733(QQ)' Thanks: Laomi, Laomiao, NetRube' 2006-01-02'''''''''''''''...
ASP实现无组件生成验证码-GIF格式
管子（zero）的杂乱空间
12-11 1272
<!--google_ad_client = "pub-4490194096475053";/* 内容页,300x250,第一屏 */google_ad_slot = "3685991503";google_ad_width = 300;google_ad_height = 250;//--><script type="text/javascript"src="
【ASP.NET编程知识】12306动态验证码启发之ASP.NET实现动态GIF验证码(附源码).docx
05-15
在本文档中，我们探讨了如何使用ASP.NET来实现一个动态GIF验证码的生成，受到了12306网站的动态验证码机制的启发。12306的验证码设计旨在增加安全性，但也因复杂性引起了一些用户的困扰。为了解决这个问题，我们可以...
12306动态验证码启发之ASP.NET实现动态GIF验证码(附源码)
10-23
在本文中，我们将探讨如何受到12306动态验证码的启发，在ASP.NET环境中实现一个动态GIF验证码。12306的验证码系统因其复杂性而广为人知，其目的是防止机器人或自动化脚本进行恶意操作，如抢票。在开发过程中，我们...
ASP.NET Core使用SkiaSharp实现验证码的示例代码
10-18
5. 实现验证码文本的绘制，即在服务器端生成验证码图片，并将其以某种格式（通常是PNG或JPEG）发送给客户端。 6. 涉及到安全性方面的知识，如HTTP安全头部的设置，以及如何安全地存储和验证用户输入的验证码。 7. ...
动态生成验证码图片
Super Sonic
01-09 2073
using System;using System.IO;using System.Collections;using System.ComponentModel;using System.Data;using System.Drawing;using System.Drawing.Imaging;using System.Web;using System.Web.SessionState;usi
asp生成图片验证码类
06-10
使用示例，请自行修改代码以适应你的页面： 提交页from.asp <% '如果验证码为空或者验证码不正确，执行 Then 内容，否则执行 else 内容 If IsEmpty(Session("GetCode")) Or Session("GetCode") UCase(Request.form("Form_Code")) Then Response.Write "alert('验证码输入错误！');history.go(-1)" Response.End Else Session("GetCode") = Empty ' 清空Session End If %> 调用页main.asp，点击图片更换验证码 document.write("");
ASP验证码-非常优秀的ASP随机验证码
03-25
看很多人都在找asp 验证码 asp 随机验证 我收集了四个非常优秀的ASP随机验证码，非常好用，分别为： Asp纯数字随机验证码程序 (5.98 kb) Asp数字及字母组合验证码程序(5.98 kb) Asp纯字母验证码程序.zip (5.98 kb GetCode(ASP验证码生成代码) 以上源码：完全免费的传统ASP的VBScript 。 安全码是完全随机的。 动态图像处理。 没有图像文件的要求。 没有组件需要。 创建一个跨浏览器兼容的动态随机captcha图像。 您可以使用自定义调色板图像。 *用户的浏览器必须支持Cookie和session会话状态必须启用
ASP20多种验证码
01-22
asp20多种验证码，包含4位数，5位数，6位数，算数，文字等20多种验证码开元实例
CSS表格边框50多种精美标签样式(边框也精彩)
07-30
CSS表格边框50多种精美标签样式(边框也精彩) 直接复制就可以用，几乎都是标签样式
ASP.NET 6 集成 LazyCaptcha v2 图形验证码
最新发布
Vico
08-15 951
在.NET 6 与.NET Core 中实现图形验证码，跨平台，支持配置参数化，美观，操作简单
ASP与验证码
三叠纪
07-19 4436
    如今你要申请一个QQ号，需要输入很复杂的验证码：验证码由若干个汉字组成，还加上了花哩唬哨的背景，使得有些汉字实在难以辨认。腾讯这么做，是为了防止有人利用软件批量获取QQ号码----每次提交都要输入随机生成的验证码，这是软件难以做到的。    最初的验证码，只是几个随机生成的数字。但是道高一尺魔高一丈，很快就有能识别数字的软件了，“收藏家”们利用这种软件批量获取帐号，或是探测密码，因为软件可
ASP英文字母加数字随机验证码(4位)
shirlly
08-10 891
charAndNum_checkCode.asp [code="java"] [/code] web页面上的引用 [code="java"] *验证码： [/code] 注意输入的验证码与产生的验证码是否相同,应该在提交处理中验证,不...
asp验证码代码 (带刷新)
feiyafei2008的专栏
06-16 888
将以下代码放到一个单独的页面checkcode.asp Option Explicit Response.buffer=true Call Com_CreatValidCode("validateCode") Sub Com_CreatValidCode(pSN) ' 禁止缓存 Response.Expires = -9999 Response.AddHeader "Prag
asp中文数字验证码的实现
知码的世界
07-23 675
知码小编为大家手机了一些大写数字验证码的实现方法，不是很难，有需要的朋友可以作为参考哦。 姓 名： 学 号： 。。。： 。。。： 验证码： asp代码： c = Request.form("c") ‘如果可以输入小写的数字，请把下面三行注释掉 for ii = 0 to 9 c = Replace(c,Cstr(ii),"") next c =
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值