§ ITPOW >> 文档 >> ASP >> ASP应用

作者：不详 来源： 日期：2002-5-30

<%
function encrypt(preString)
      Dim texts, seed, 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
      encrypt = texts
end function
%>