个人现用的加密方法

用时如下

例： 录入：rs.addnew

rs("password")=encrypt(request("password"))

rs.update

验证：if rs("password")=encrypt(request("password")) then ….

function encrypt(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

encrypt = dist

end function