VB加密解密算法实现_hawkol_新浪博客

'解密

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