Attribute VB_Name = "EncryptDecrypt"
Function Crypt_A(x)  '加密
For i = 1 To Len(x)
    TempNum = Hex(Asc(Mid(x, i, 1)))
   
    If Len(TempNum) = 4 Then
       encode = encode & CStr(TempNum)
    Else
       encode = encode & "00" & CStr(TempNum)
    End If
Next
Crypt_A = encode
End Function

Function DeCrypt_A(x)  '解密
For i = 1 To Len(x) Step 4
    decode = decode & Chr(Int("&H" & Mid(x, i, 4)))
Next
DeCrypt_A = decode
End Function