首页 美女贴图 网络日记 重庆租房 搜索指南 网络电视 飘网音乐 飘网博客 精彩网址 友情链接 飘网地图 本站留言
飘网中国
专题:网络营销 | 网站设计 | QQ技巧 | 搜索优化 | 菜鸟进阶 | 病毒攻防 | 网络技术 | 系统应用 | 本站作品 | 常用软件 | 工具软件 |
飘网中国>>网站设计>>正文

ASP代码:生成可变长/随机彩色验证码(BMP)

编辑:admin 来源: 更新:2006-12-28 点击:
【字体:

摘要:由于验证码在如今的网络上的作用越来越大,我就从新整理出一下如何制作和使用验证码的方法。看到一位朋友贴的自己写的验证码程序,虽然他的程序是黑白有杂点,然后就写出了这些代码,随机生成各位验证码。
关键字:ASP 验证码 
正文:
   由于验证码在如今的网络上的作用越来越大,我就从新整理出一下如何制作和使用验证码的方法。记得“想当年”某天上午在这里路过,看到一位朋友贴的自己写的验证码程序,虽然他的程序是黑白有杂点,但其实很容易被破解的,但却有不少人喜欢着。

   没办法,当天下午研究了一BM 图片,然后就写出了这些代码,只是当初没有公布,眼看今天这么多坏人乱在很多论坛上注册用户来发广告,所以才贴出来共享一下。

   本验证码生成程序特点如下:

一、彩色;

二、Bmp 图像色深为 16 位,生成的图片体积更小;(4位长的验证码只有几百字节)

三、长度可自定义;(1位至25位可固定设置,也可以自己改成动态,这里已经改成动态2-5位随机验证码)

四、背景杂色深度可自定义;

具体请看代码:

本站列出具体的引用方法:

第一步:建立 getcode.asp 文件,把以下代码COPY进来:


<%
Option Explicit
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/Bmp"
Randomize Timer

Dim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2

''***** 参数配置区 *****
''验证码长度(支持1-25位)
''修改(WWW.CN-PN.COM)Flymorn
''这里采用随机长度(2-5位)
Randomize
Text_Len = Int((5-2+1)*Rnd+2)

''**********************

ReDim Int_Temp( Text_Len - 1 )

Text_Data(0)  = "00000000000001111000001100110000110111000011011100001100110000111011000011101100001100110000011110000000000000"
Text_Data(1)  = "00000000000000011000000011100000111110000000011000000001100000000110000000011000000001100000000110000000000000"
Text_Data(2)  = "00000000000001111000001100110000110011000000001100000001100000001100000001100000001100000000111111000000000000"
Text_Data(3)  = "00000000000001111000001100110000110011000000001100000011100000000011000011001100001100110000011110000000000000"
Text_Data(4)  = "00000000000001100000000110000000011011000001101100000110110000110011000011111110000000110000000011000000000000"
Text_Data(5)  = "00000000000011111100001100000000110000000011000000001111100000000011000000001100000001100000111100000000000000"
Text_Data(6)  = "00000000000000111000000011000000011000000011111000001100110000110011000011001100001100110000011110000000000000"
Text_Data(7)  = "00000000000011111100000000110000000110000000011000000011000000001100000001100000000110000000011000000000000000"
Text_Data(8)  = "0000000000000111100000110011000011001100001110110000011110000011011100001
[1][2][3]
上一篇:个人网站为什么会失败?看分析案例
下一篇:无组件生成验证码:GIF格式的asp代码
最新文章 更多
推荐文章 更多
热门文章 更多
© 2005-2010 飘网中国 版权所有
站长邮箱:①LCC-749AT163.com ②FlymornATgmail.com(AT改为@)
如转载时,请注明出处;本站部分资源来自网络,如有侵权,请来信说明;飘易文章系统 HTML版.
渝ICP备05000119号