欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

用时如下



例： 录入：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