ASP可逆算法

unction encrypt(ecode)
　　dim texts
　　dim i

for i=1 to len(ecode)
　　texts=texts & chr(asc(mid(ecode,i,1))+i)
　　next
　　      encrypt = texts
　　end function
　　function decrypt(dcode)
　　 dim texts
　　dim i
　　for i=1 to len(dcode)
　　texts=texts & chr(asc(mid(dcode,i,1))-i)
　　next
　　decrypt=texts
　　end function
　　function mistake(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
　　   mistake = dist
　　end function

（）

返回顶部

下一篇：轻松实现将上传图片到数据库 >>