我个人现用的加密方法

用时如下

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

http://www.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：ASP中巧用Response属性(转)
• 下一篇文章：利用ASP实现三个强大功能（三） （转，强烈推荐）