一 : ASP实例：使用ASP生成图片彩色校验码
使用ASP生成图片彩色校验码
49行代码,三个文件
Asp文件：Code.Asp
数据文件：body.Fix , Head.Fix
用法：<img src="code.asp">
| 以下为引用的内容： <%Option ExplicitResponse.buffer=trueNumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim zNum,i,j dim Ados,Ados1 Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum dim zimg(4),NStr NStr=cstr(zNum) For i=0 to 3 zimg(i)=cint(mid(NStr,i+1,1)) Next dim Pos set Ados=Server.CreateObject("Adodb.Stream") Ados.Mode=3 Ados.Type=1 Ados.Open set Ados1=Server.CreateObject("Adodb.Stream") Ados1.Mode=3 Ados1.Type=1 Ados1.Open Ados.LoadFromFile(Server.mappath("body.Fix")) Ados1.write Ados.read(1280) for i=0 to 3 Ados.Position=(9-zimg(i))*320 Ados1.Position=i*320 Ados1.write ados.read(320) next Ados.LoadFromFile(Server.mappath("head.fix")) Pos=lenb(Ados.read()) Ados.Position=Pos for i=0 to 9 step 1 for j=0 to 3 Ados1.Position=i*32+j*320 Ados.Position=Pos+30*j+i*120 Ados.write ados1.read(30) next next Response.ContentType = "image/BMP" Ados.Position=0 Response.BinaryWrite Ados.read() Ados.Close:set Ados=nothing Ados1.Close:set Ados1=nothingEnd Function' Asp code Created by BlueIdea.COM Web Team V37 2003-7-25%> |
| 以下为引用的内容： Response.buffer=true NumCode Function NumCode() ? Response.Expires = -1 ? Response.AddHeader "Pragma","no-cache" ? Response.AddHeader "cache-ctrol","no-cache" ? dim zNum,i,j ? dim Ados,Ados1 ? Randomize timer |
生成随机四位数字：
| 以下为引用的内容： zNum = cint(8999*Rnd+1000) 传递给session Session("GetCode") = zNum |
该for循环是将随机数字放入一个下标3的数组，便于提供给后面的阵列变换
| 以下为引用的内容： dim zimg(3),NStr ??? NStr=cstr(zNum) ??? For i=0 to 3 ????? zimg(i)=cint(mid(NStr,i+1,1)) ??? Next ? dim Pos |
'定义二个 ADODB.Stream binary对象,作图像数据操作之用:
| 以下为引用的内容： ? set Ados=Server.CreateObject("Adodb.Stream") ??? Ados.Mode=3 ??? Ados.Type=1 ??? Ados.Open ? set Ados1=Server.CreateObject("Adodb.Stream") ??? Ados1.Mode=3 ??? Ados1.Type=1 ??? Ados1.Open |
'载入0~9的数字数据10x100的，Gbr的阵列数据,每个320字节,10个数字3200byte
'BGR一个点,10x10个点一个数字，一个点三个字节(二进制8位，16进制 00~FF)
'一行10个点 30字节 + 行结束标记 00 00 二字节 32字节，所以一个10x100宽小于长的图像每个数字10x10是320字节
'长大于宽的则无行结束标记 0000,直接是300字节
这些就是BMP 24bit的数据详细信息了
‘至于头部，也很简单，包含长宽，图像开始标记等等~~才54字节，远没jpg什么的复杂
| 以下为引用的内容： Ados.LoadFromFile(Server.mappath("body.Fix")) Ados1.write Ados.read(1280) |
'第一个for循环,按生成的随机数字顺序从 10X100的数字阵列中提取出相应的四个数字
但是竖排的数字阵列
| 以下为引用的内容： for i=0 to 3 ??Ados.Position=(9-zimg(i))*320 ??Ados1.Position=i*320 ??Ados1.write ados.read(320) next |
'清空已经用完的ADOS的数据，调入替换新的图像头54字节的头文件?
| 以下为引用的内容： Ados.LoadFromFile(Server.mappath("head.fix")) Pos=lenb(Ados.read()) Ados.Position=Pos |
'指定Pos位置,即可再偏移54字节的位置添加图形数据
第二个for循环，进行数字的阵列变换，由竖排的块转换为横排的数字块
方法是隔320字节抽取4次30字节写入ados对象，再抽取偏移第二行的图像数据
30字节是因为bmp 宽大于长时无00 00的行结束标记
| 以下为引用的内容： for i=0 to 9 step 1 ??for j=0 to 3 ????Ados1.Position=i*32+j*320 ????Ados.Position=Pos+30*j+i*120 ????Ados.write ados1.read(30) ??next next Ados.Position=0 response.BinaryWrite直接向客户端发送图像数据 Response.ContentType = "image/BMP" Response.BinaryWrite Ados.read() Ados.Close:set Ados=nothing Ados1.Close:set Ados1=nothing End Function |
二 : PHP图片验证码的实现
文章重点对如何使用PHP实现图片验证码的过程进行了详细阐述。［www.61k.com］
关键词: PHP; 验证码; 会话
1 验证码介绍
验证码(CAPTCHA)最早是在2002年由卡内基梅隆大学的LuisvonAhn、ManuelBlum、NicholasJ.Hopper以及IBM的JohnLangford所提出。
CAP2TCHA是“CompletelyAutomatedPublicTuringtesttotellComputersandHumansApart”(全自动区分计算机和人类的图灵测试)的缩写,是一种区分用户是计算机和人的公共全自动程序。问题可以由计算机生成并评判,但只能由人才能解答。由于计算机无法解答验证码的问题,所以回答出问题的用户就可以被认为是人而非机器。
验证码是将一串随机产生的数字或符号以图片的形式展现在页面上,由用户肉眼识别其中的验证码信息,在进行提交操作的同时,需将图片上的字符同时提交,输入提交验证成功后才能使用某项功能。如果提交的字符与服务器session保存的不同,则认为提交信息无效。为了避免自动程序分析解析图片,通常会在3收稿日期:2009-11-11作者简介:贾默然(1982-)
图片上随机生成一些干扰素或者将字符进行扭曲,增加自动识别难度。用户提交后将用户输入的验证码与会话session中保存的字符串进行比对,达到验证的效果。用户提交表单的时候,接收表单的页面检查服务端产生的session和客户端提交的表单值是否一致,不一致则不读或写入数据库。会话session允许在服务器上储存小部分用户信息;这类信息是临时性的,当用户
离开网站时会被自动删除。2PHP实现过程PHP是一种通过在服务器端执行的嵌入HTML文档从而生成动态网页的脚本语言。PHP网页文件被当作一般HTML网页文件来处理,并且在编辑时,可以用编辑HTML的常规方法来编写。由于PHP在使用时消耗相当少的系统资源,并且有着开放的源代码,而且是免费的[2],如今PHP已经被更多的网站应用,
下面是PHP实现验证码的过程:
2.1 生成随机数
①定义用来显示在图片上的数字和字母;
②循环随机抽取四位定义好的字母和数字;
③将通过数字得来的字符连起来一共是四位;
④保存生成的数字和字母,把生成好的随机数
放到session变量中,将来跟用户提交的内容比较。
<?php
$authnum_session=’’;
$str=’abcdefghijklmnopqrstuvwxyz1234567890’;
$l=strlen($str);
for(i=1;i<=4;i++){
$num=rand(0,$l-1);
$authnum_session.=$str[$num];
}
$_SESSION["$authnum_session"];
?>
2.2 创建图片
用图片创建函数确定所创建的图片大小。
<?php
$im=imagecreate(60,20);
?>
2.3 设置颜色
①使用函数创建背景色;②使用函数创建字体色。
<?php
$black=ImageColorAllocate($im,0,0,0);
$white=ImageColorAllocate($im,255,255,255);
$gray=ImageColorAllocate($im,200,200,200);
imagefill($im,68,30, $gray);
$li=ImageColorAllocate($im,220,220,220);
?>
2.4 加入干扰素
在不影响用户输入的条件下,加入若干干扰线、干扰象素。
<?php
for(i=0;$i<3;$i++){
imageline($im,rand(0,30),rand(0,21),rand(20,40),rand(0,21),$li);
}
for($i=0;$i<90;$i++){
imagesetpixel($im,rand()%70,rand()%30,$gray);
}
?>
2.5 把字符写在图像左上角
使用函数imagestring把字符写在图像上。
<?php
imagestring($im,5,12,5,$authnum_ses2sion,$white);
?>
2.6 输出图像
①开启session功能;
②使用函数输出图像。
<?php
Header("Content-type:image/png");
session_start();
ImagePNG($im);
?>
扩展：php实现验证码的识别 / php实现验证码 / php实现短信验证码
三 : ASP实现加法验证码
将验证码改为加法运算，比如验证码显示“25+64等于？”，那么输入“91”就能通过验证。
来看看效果图对比：字符验证码： → 加法验证码：
优点：
①与纯字符验证码相比，本程序效防止了绝大部分(99%以上)广告机的自动识别。即使是中文验证码， 也能被市面上的部分广告机识别。
②与中文验证码相比，避免了用户输入用户名密码验证码的时候需要切换输入法的麻烦。
说明：该程序需要网站空间支持ASPJpeg组件、楷体_GB2312字体。
代码如下：
<% Const FontColor = &H000000 ' 字体颜色 Const BgColor = &HFFCCFF ' 背景颜色 Call CreatValidCode("GetCode") Sub CreatValidCode(pSN) Dim x, Jpeg Randomize x = Array(1+Int(Rnd()*9), Int(Rnd()*10), 1+Int(Rnd()*9), Int(Rnd()*10), 0, 0, "+") x(4) = x(0)*10 + x(1) x(5) = x(2)*10 + x(3) 'Session(pSN) = CStr(Eval(x(4) & x(6) & x(5))) Session(pSN) = CStr(x(4) + x(5)) Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.New 100,20,BgColor Jpeg.Quality=100 With Jpeg.Canvas .Font.Bold = True .Font.Size = 16 .Font.Rotation = 0 .Font.Family = "楷体_GB2312" .Font.Color = FontColor .PrintText 4, 3, CStr(x(0)) .PrintText 14, 3, CStr(x(1)) .PrintText 26, 3, x(6) .PrintText 38, 3, CStr(x(2)) .PrintText 48, 3, CStr(x(3)) .Font.Rotation = 15 .PrintText 55, 3, "等" .PrintText 70, 3, "于" .PrintText 85, 3, "？" End With '禁止缓存 Response.ContentType = "image/jpeg" Response.Expires = -9999 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-ctrol", "no-cache" Response.AddHeader "Content-Disposition","inline; filename=vcode.jpg" Jpeg.SendBinary Jpeg.Close Set Jpeg = Nothing End Sub %> 以上就是关于asp实现加法验证码的关键代码，有兴趣的朋友，还可以扩展为其他的运算，比如乘法，减法，乘方等，希望本文对大家的学习有所帮助。
61阅读| 精彩专题| 最新文章| 热门文章| 苏ICP备13036349号-1