传说水吧聊天室的密码还原方法
我下了个传说水吧聊天室的数据库,但是里面的用户密码都是这样的: a7YA/6^-Lu@2:L
其实它就是: 123456
我又下了个传说水吧聊天室的源文件,其中加密代码好象是:

rem 对提交的密码进行单向加密，并做规范处理
function trpass(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
texts=replace(texts,"'","")
trpass=replace(texts,chr(34),"")
end function

sub page_errmsg() %>

请高手帮忙,看怎样能将上述加密后的数据还原!谢谢!