ASP复古随机验证码
<%
Call Com_CreatValidCode("ValidCode")
Sub Com_CreatValidCode(pSN)
Response.Expires = -
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = '杂点出现的机率
Const cAmount = '文字数量
Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'颜色的数据(字符，背景)
Dim vColorData()
vColorData() = ChrB() & ChrB() & ChrB() '蓝0，绿0，红0（黑色）
vColorData() = ChrB() & ChrB() & ChrB() '蓝250，绿236，红211（浅蓝色）
'随机产生字符
Dim vCode(), vCodes
For i = To
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes & Mid(cCode, vCode(i) + , )
Next
session("identifyingCode")=vCodes '记录入Session
'字符的数据
Dim vNumberData()
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
vNumberData() = ""
'输出图像文件头
Response.BinaryWrite ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB()
'输出图像信息头
Response.BinaryWrite ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB()
For i = To Step - '历经所有行
For ii = To '历经所有字
For iii = To '历经所有像素
'逐行、逐字、逐像素地输出图像数据
If Rnd * + < cOdds Then '随机生成杂点
Response.BinaryWrite vColorData()
Else Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * + iii, ))
End If
Next
Next
Next
End Sub%>
ASP复古随机验证码的更多相关文章
- ASP.Net Jquery 随机验证码 文本框判断
// 登陆验证 $(function () { var chars = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'a', 'B' ...
- 【转载】Asp.Net生成图片验证码工具类
在Asp.Net应用程序中,很多时候登陆页面以及其他安全重要操作的页面需要输入验证码,本文提供一个生成验证码图片的工具类,该工具类通过随机数生成验证码文本后,再通过C#中的图片处理类位图类,字体类,一 ...
- PYTHON 随机验证码生成
# 生成一个六位随机验证码 import random # random 生成随机数 temp = '' for i in range(6): num = random.randrange(0,6) ...
- Java生成随机验证码
package com.tg.snail.core.util; import java.awt.Color; import java.awt.Font; import java.awt.Graphic ...
- js用正则表达式验证用户和密码的安全性，生成随机验证码
制作了一个表单,表单验证用户.密码.随机验证码 html页面
- php学习笔记：利用gd库生成图片，并实现随机验证码
说明:一些基本的代码我都进行了注释,这里实现的验证码位数.需要用的字符串都可以再设置.有我的注释,大家应该很容易能看得懂. 基本思路: 1.用mt_rand()随机生成数字确定需要获取的字符串,对字符 ...
- python_way,day4 内置函数（callable，chr，随机验证码，ord），装饰器
python_way,day4 1.内置函数 - 下 制作一个随机验证码 2.装饰器 1.内置函数 - 下 callable() #对象能否被调用 chr() #10进制数字对应的ascii码表中的内 ...
- ASP.NET网页验证码常用方法
验证码生产类 using System; using System.Data; using System.Configuration; using System.Web; using System.W ...
- iOS生成本地随机验证码
原文链接:http://www.cnblogs.com/jerehedu/p/4527707.html 效果图:
随机推荐
- mysql数据库的安装和连接测试并给root用户赋密码
一.mysql数据库的安装 Windows下MySQL的配置 以 MySQL 5.1 免安装版为例, 下载 mysql-noinstall-5.1.69-win32.zip ( 官方下载页: http ...
- MPAndroid 的学习
1.MPAndroid 的github的地址: https://github.com/PhilJay/MPAndroidChart#documentation 2.使用步骤: 在build.gradl ...
- Vue父子，子父，非父子组件之间传值
Vue组件基础 纯属随笔记录,具体详细教程,请查阅vue.js网站 子组件给父组件传值: <body> <div id="app"> <my-app& ...
- Code Clean读书笔记
代码整洁之道读书笔记 by fangpc 序言部分 "神在细节之中" - 建筑师路德维希 5S哲学(精益) 整理(Seiri):搞清楚事物之所在--通过恰当地命名之类的手段--至关 ...
- Python类的__new__()
本篇主要想要详细的介绍一下关于类的魔法方法__new__()方法. 在学习之前我们看一下Python3中关于object基类的__new__() 方法: @staticmethod # known c ...
- ondblclick和dblclick区别
1.ondblclick是一个HTML DOM Event 对象,没有jquery也可以触发这个事件的,使用方法例如 1 <button ondblclick="xxx"&g ...
- Linux指令（时间日期类）
date指令-显示当前日期 基本语法: 1)date (功能描述:显示当前时间) 2)date +%Y (功能描述:显示当前年份) 3)date +%m (功能描述:显示当前月份) 4)date +% ...
- 【转】高性能网络编程6--reactor反应堆与定时器管理
反应堆开发模型被绝大多数高性能服务器所选择,上一篇所介绍的IO多路复用是它的实现基础.定时触发功能通常是服务器必备组件,反应堆模型往往还不得不将定时器的管理囊括在内.本篇将介绍反应堆模型的特点和用法. ...
- video基础介绍&封装react-video基础组件，ES6
好几个月没有写博客了,人都赖了,今天抽了一点时间把最近项目react中video整理了一下(感觉这个以后用的活比较多) 1.前三部部分详细归纳了video的基础知识,属性和功能: 2.第四部分是封装了 ...
- Linux centos通过安装lszrz用CRT实现与Windows互相传文件
本经验均在CentOSrelease6.7(Final)下操作,如知识有欠缺之处 欢迎批评指正: lrzsz是一个搭配SecureCRT使用的在linux和windows之间上传下载工具. 1 2 3 ...