一共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 timerintkey = round((rnd * 1000000) + 1000000) ´##### key bitsize
intoffset = round((rnd * 1000000) + 1000000) ´##### keyoffset bitsizeif 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... 下一页