正 文

XBM验证图片


www.7dspace.com  更新日期:2006-3-1 6:37:55  七度空间


一般,你可以看到一些验证码图片即是如此/

为什么需要验证码

有效防止某个黑客对某一个特定注册用户,用特定程序暴力破解方式进行不断的登陆尝试,即防止暴力注册/穷取密码/服务器拒绝等可能影响网站正常运行的行为。

验证码的运行机制是什么

在随机产生验证码的同时生成了一Session,然后通过表单递交数据与Session中保存的验证码进行比较,正确即验证码通过,否则出错提示。

1,XBM文件

这是一个很简单的显示XBM图片的例子,数字掩码是主要。

<%@ Language=javascript %>
<%
//一个最简单的例子
//可广泛应用于计数器、时钟等任何需要动态生成图形的地方
//通过改变ContentType的值,比如改为 "image/gif"可以作出更漂亮的图形

Response.ContentType ="image/x-xbitmap";
Response.Write ("#define counter_width 8\r\n");  //图形宽
Response.Write ("#define counter_height 10\r\n");//图形高
Response.Write ("static unsigned char counter_bits[]={\r\n");
Response.Write ("0x3c,0x66,0x60,0x60,0x30,0x18,0x0c,0x06,0x06,0x7e");//2的掩码
Response.Write ("};\r\n");

%>

2,黑白XBM随机验证码(原作者:张三疯)

xbm.asp:主要作用,随机显示四位验证码,同时产生Session("validateCode")

<!--#include file="numcode.asp"-->
<%
Response.Buffer = True
With Response
    .Expires = -1
    .AddHeader "Pragma","no-cache"
    .AddHeader "cache-ctrol","no-cache"
End With

Dim num
Randomize
num = Int(7999 * Rnd + 2000)
Session("validateCode") = num

Dim Image
Dim Width, Height
Dim digtal
Dim Length
Dim sort
Dim hc
Length = 4
hc = chr(13) & chr(10)

Redim sort(Length)

digital = ""
For I = 1 To Length - Len(num)
    digital = digital & "0"
Next
For I = 1 To Len(num)
    digital = digital & Mid(num, I, 1)
Next
For I = 1 To Len(digital)
    sort(I) = Mid(digital, I, 1)
Next
Width = 8 * Len(digital)
Height = 10

Response.ContentType = "image/x-xbitmap"

Image = "#define counter_width " & Width & hc
Image = Image & "#define counter_height " & Height & hc
Image = Image & "static unsigned char counter_bits[] = {" & hc

For I = 1 To Height
    For J = 1 To Length
        Image = Image & a(sort(J),I) & ","
    Next
Next

Image = Left(Image, Len(Image) - 1)
Image = Image & "};" & hc

Response.Write Image
%>

其中包含文件<!--#include file="numcode.asp"-->的主要内容就是数字的掩码

2页,页码:[1] [2] 

上一篇:ASP和CLASS
下一篇:无需去照相馆 1寸照片自己做
XBM验证图片 作者:cnbruce 来源:blog
收藏此页】【打印】【关闭
站 内 搜 索
 

热 点 导 读
特 别 推 荐