我也来一段加密函数。

function mis(prestring)
      dim texts
      dim seed
      dim i,length
      prestring = trim(prestring)
      length = len(prestring)
      seed = 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 asc(mid(texts,i,1))>64 and asc(mid(texts,i,1))<123  then
              dist=dist+mid(texts,i,1)
              end if
        next
    mis = dist
end function