ASP可逆算法 - ASP教程

发布时间：2016-08-04 03:11:07 所属栏目：Asp教程来源：站长网

导读：unction encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function decryp

unction encrypt(ecode)

Dim texts

dim i



for i=1 to len(ecode)

texts=texts & chr(asc(mid(ecode,i,1))+i)

next

encrypt = texts

end function

function decrypt(dcode)

dim texts

dim i

for i=1 to len(dcode)

texts=texts & chr(asc(mid(dcode,i,1))-i)

next

decrypt=texts

end function

function mistake(preString)

Dim texts

Dim seed

Dim i,length

prestring = trim(preString)

length = len(preString)

seed = length

Randomize(length)

texts = ""

for i = 1 to length

seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)

texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))

next

dim dist

dist=""

for i = 1 to len(texts)

if mid(texts,i,1)<>"'"　then

dist=dist+mid(texts,i,1)

end if

next

mistake = dist

end function

（编辑：济南站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

ASP完成301域名重定向	12条ASP常用的有用速查
解决ASP因为编码问题出	asp依照指定目录使用f