已知加密函数，求一个相应解密函数，ASP高手帮助

[ruihuo]

加密函数如下
function Epass(pass)
temppass=StrReverse(left(pass&"zxcvbnm,./",10))
templen=len(pass)
mmpassword=""
for j=1 to 10
mmpassword=mmpassword+chr(asc(mid(temppass,j,1))-templen+int(j*1.1))
next
Epass=replace(mmpassword,"'","B")
end function

[zhanshanhu]

我觉得这个算法有问题
pass&"zxcvbnm,./" 这个地方得到的值是什么?如果pass=123456,那么这里应该是:123456zxcvbnm,./ 然后left 之后是: 123456zxcv StrReverse之后: vcxz654321 下面的我没注意看.但如果pass=abcdefghijklmn,大于十位呢?那不是以前的密码都丢失了?既然这样解密就不存在了.

[zhanshanhu]

解密函数如下
function ReEpass(pass)
repass=replace(pass,"B","'")
mmpassword=""
for j=1 to 10
mmpassword=mmpassword+chr(asc(mid(temppass,j,1))+templen-int(j*1.1))
next
repass=StrReverse(mmpassword)
到这步我就不知道怎么判断了,因为密码长度不同.
end function

[ruihuo]

继续等到解密函数~~

[wtogether]

没有解密的，这是不可逆的加密，它不是按每个字符加密的，而是只取10个字符，不足10个字符的补zxcvbnm,./，