初学者的简单问题，还望赐教，谢谢！
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
这是一个字符传变换的函数，本人由于从没接触过asp，不只所云，希望
知道的热心之士解释一下这个函数如何对字符传转换的。也就是算法是什么
非常感谢~！
问题点数：100、回复次数：4Top
1 楼chenyu5188（来自东方的狼）回复于 2002-12-04 06:09:36 得分 100
UPTop
2 楼mqphk（蔬菜鸟）回复于 2002-12-04 07:59:26 得分 0
upTop
3 楼peiji（吉(爱一个人好难)）回复于 2002-12-04 12:02:59 得分 0
我想MSDN说的比我更明白，清楚，你看看MSDN吧Top
4 楼skoin007（孤独一剑）回复于 2002-12-04 12:53:17 得分 0
upTop
