ASP可逆算法

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航