Option Explicit Private Const strEncryption As String = "Wa7kao19Oh54My256God!" 'XOR加密/解密函数Public Function XOREncryption(strDataIn As String, Optional ByVal strCodeKey As String = "") As String   Dim lonDataPtr As Long   Dim intXORValue1 As Integer   Dim intXORValue2 As Integer   Dim strDataOut As String      If Len(strCodeKey) < 2 Then      strCodeKey = strEncryption   End If      Mid(strCodeKey, 2, 1) = Asc(Chr(1))      For lonDataPtr = 1 To Len(strDataIn)         '第一个XOR的值来自加密字符串      intXORValue1 = Asc(Mid$(strDataIn, lonDataPtr, 1))            '第二个XOR的值来自需要加密的数据（字符串）      intXORValue2 = Asc(Mid$(strCodeKey, ((lonDataPtr Mod Len(strCodeKey)) + 1), 1))            '两个值被XOR后成为一个需要被解密的字符      strDataOut = strDataOut + Chr(intXORValue1 Xor intXORValue2)         Next lonDataPtr      '返回被加密/解密后的数据（是一个字符串）   XOREncryption = strDataOut   End Function

评论