ASP可逆算法

2012 年 12 月 17 日4520

ASP可逆算法

日期：2007年4月27日作者：

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