当前位置：首页 » 编程博文

开发技术指南» 文章正文

    引言： 动网先锋 一共4个页面：form.asp; chk.asp; num.asp; count.asp得到一个随即数字。

 

 

验证码的程序及原理

 动网先锋 

【程序编程相关:[asp.net]保留password框】

【推荐阅读:图像处理网络资源( 转载）】

一共4个页面:form.asp; chk.asp; num.asp; count.asp 【扩展信息:“计算机通信理论”问题问答 - 绝对精彩】

得到一个随即数字.加密！

解密后成成xbm图片

利用session 判断

form.asp

<%

´### to encrypt/decrypt include this code in your page

´### strmyencryptedstring = encryptstring(strstring)

´### strmydecryptedstring = decryptstring(strmyencryptedstring)

´### you are free to use this code as long as credits remain in place

´### also if you improve this code let me know.

private function encryptstring(strstring)

´####################################################################

´### crypt function (c) 2001 by slavic kozyuk grindkore@yahoo.com ###

´### arguments: strstring <--- string you wish to encrypt ###

´### output: encrypted hex string ###

´####################################################################

dim charhexset, intstringlen, strtemp, strraw, i, intkey, intoffset

randomize timer

intkey = round((rnd * 1000000) + 1000000) ´##### key bitsize

intoffset = round((rnd * 1000000) + 1000000) ´##### keyoffset bitsize

if isnull(strstring) = false then

strraw = strstring

intstringlen = len(strraw)

for i = 0 to intstringlen - 1

strtemp = left(strraw, 1)

strraw = right(strraw, len(strraw) - 1)

charhexset = charhexset & hex(asc(strtemp) * intkey)& hex(intkey)

next

encryptstring = charhexset & "|" & hex(intoffset + intkey) & "|" & hex(intoffset)

else

encryptstring = ""

end if

end function

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：