VB6 Code: Function decrypt(ByVal H$) As String. Dim i As Integer, J$. pass$ = "THEFELDGROUP". H$ = Mid$(H$, 3, Val(Left$(H$, 2))).
確定! 回上一頁