如何将vb的代码转成vbscript代码？

[e0421]

我在做一个聊天是的时候遇到这样一个问题,密码转换一部分是用vb写的，生成了dll文件，我想把这些代码转换成vbscript怎么做好呢？那位高手给指点指点啊！谢谢了！
'''''''''''''这是一部分
Private Function Chrnum62(u)
If u < 26 Then
u = u + 65
ElseIf u < 52 Then
u = u + 71
Else
u = u - 4
End If
Chrnum62 = Chr(u)
End Function
''''''''''''''''还有这个
Public Function Trpass(preString)
Dim texts As String
Dim seed, seed1, seed2 As Integer
Dim i, Length, j, jp As Integer
Dim ascArr
preString = Trim(preString)
Length = Len(preString)
ReDim ascArr(Length)
seed = 0
For i = 1 To Length
ascArr(i) = Asc(Mid(preString, i, 1))
seed = seed + ascArr(i)
Next
Randomize (seed)
texts = ""
For i = 1 To Length
For j = 1 To 30 \ Length
jp = Length - i - j + 2
Do While jp < 1
jp = Length + jp
Loop
seed1 = seed + ascArr(jp)
seed2 = Rnd(-seed1) * 61
seed = seed + seed2 Mod 13 + 1
texts = texts & Chrnum62(seed2)
Next
Next
For i = 1 To (30 Mod Length)
texts = texts & Chrnum62(Rnd(-seed) * 61)
seed = seed + seed2 + 1
Next
Trpass = texts
End Function

[pp4u]

基本上是一样的。