'解密
Private Function ArrayToString(arr) As String
Dim i As Integer
Dim sOutput As String
Const b As Byte = 129
For i = LBound(arr) To UBound(arr)
sOutput = sOutput & Chr(CByte(arr(i)) Xor b)
Next
ArrayToString = sOutput
End Function
'加密
Private Function StringToArray(str As String) As String
Dim i As Integer
Dim sOutput As String
Const b As Byte = 129
sOutput = "ArrayToString(Array("
For i = 1 To Len(str)
sOutput = sOutput & CStr(Asc(Mid(str, i, 1)) Xor b) & ", "
Next
StringToArray = Left(sOutput, Len(sOutput) - 2) & "))"
End Function