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 效果图:
随机推荐
- 解决Ajax前台中文传到后台出现中文乱码
遇到的问题是: 前台利用Ajax, get方式向后台发送中文数据出现乱码. 解决办法是前台两次编码, 后台一次解码即可. 前台jsp文件 1 var text = "张三"; 3 ...
- InputStream和OutputStream及相关知识汇总
https://www.jianshu.com/p/e5bc7ea5f948 最近帮学姐写爬虫的时候遇到奇怪的问题,同样的程序在Mac上可以正常运行而在Windows上返回结果错误,最后经排查发现是L ...
- java中异常的抛出:throw throws
java中异常的抛出:throw throws Java中的异常抛出 语法: public class ExceptionTest{ public void 方法名(参数列表) throws 异常列表 ...
- 数组的push()、pop()、shift()和unshift()方法
JavaScript的数组是一个拥有堆栈和队列自身优点的global对象.也就是说JavaScript数组可以表现的像栈(LIFO)和队列(FIFO)一样操作.这也是JavaScript数组强大的可操 ...
- Leetcode刷题python
Two Sum 两数==target 方法二更好 题1,对时间复杂度有要求O(n),所以维护一个字典,遍历过的数值放在字典中,直接遍历时候查找字典中有没有出现差,查找字典时间复杂度是O(1),所以O( ...
- 11g包dbms_parallel_execute在海量数据处理过程中的应用
11g包dbms_parallel_execute在海量数据处理过程中的应用 一.1 BLOG文档结构图 一.2 前言部分 一.2.1 导读 各位技术爱好者,看完本文后,你可以掌握如下的技能,也 ...
- 矩阵迹tr(AA*)的计算公式证明
与tr(AB)=tr(BA)的证明思路相同,均使用矩阵的元素表示形式进行证明.
- failed to recover intents
failed to recover intents 无法恢复意图
- springboot+Mybatis+MySql 一个update标签中执行多条update sql语句
Mysql是不支持这种骚操作的,但是不代表并不能实现,只需要在jdbc配置文件中稍微做一下修改就行. driver=com.mysql.jdbc.Driver url=jdbc:mysql://127 ...
- 洛谷：P1783 海滩防御（二分+并查集 最短路 最小生成树）
题意: 给定长度为N的海滩,然后有M做防御塔,给出每座塔的位置Xi,到海岸的距离Yi. 求防御塔上最小观测半径Ri,使得海滩被封锁. 思路:要使左边界和右边界连通. 很nice,可以二分+并查集做. ...