Private Function JiaMi(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLowData As Byte Dim bHigData As Byte Dim i As Integer Dim strEncrypt As String Dim strChar As String For i = 1 To Len(strSource) '从待加(解)密字符串中取出一个字符 strChar = Mid(strSource, i, 1) '取字符的低字节和Key1进行异或运算 bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1 '取字符的高字节和K2进行异或运算 bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2 '将运算后的数据合成新的字符 If Len(Hex(bLowData)) = 1 Then strEncrypt = strEncrypt & "0" & Hex(bLowData) Else strEncrypt = strEncrypt & Hex(bLowData) End If If Len(Hex(bHigData)) = 1 Then strEncrypt = strEncrypt & "0" & Hex(bHigData) Else strEncrypt = strEncrypt & Hex(bHigData) End If Next JiaMi = strEncrypt End Function