asp 加密转换函数求解

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