给你一段加密明文的代码，高手来写个解密的代码！

帮你看了一下,很明显这个加密是不可逆的....原因从这段开始: For i = 1 To Len(strPass) strTmp = Asc(Mid(strPass, i, 1)) '取每个字符的ascii码值 theStr = theStr & Abs(strTmp) '把每个字符的ascii码值取绝对值再串在一起组成一个新的字符串 Next 这样处理之后,只能得到一串无规律的数字组成的字符,从这里开始,你想算回去已经不可能了,所以你也不用求什么