john_dung的博客

Public Function Encrypt(src As String) As String -----加密 Dim i As Integer Dim aStr As String Dim num1, num2 As Double For i = 1 To Len(src) aStr = aStr + CStr(Asc(Mid(src, i, 1))) Next num1 = Val(aStr...