这个函数不能实现两次异或得到原字符串，数据库里存储的是一个16进制字符串
这个加密算法比较简单，我的思路就是把登陆的密码和一个密钥进行异或，异或的结果转换为16进制串保存到数据库中，在程序登陆的时候把用户输入的登陆密码进行同样的处理，和数据库中保存的结果对比，如果相同则正确，不同则提示错误。
'加密函数
Public Function Encrypt(StrEncrypt As String) As String
    Dim x, y As Integer
    Dim C1, C2,C3 As String
    Dim CodeWord As String'密钥
    Dim KeyLen As Integer'密钥长度
    Dim strEncryptLen As Integer‘需要加密的字符串的长度
    Dim Num As Integer 'xor后的值
    Dim HexNum As String '16进制字符串
    Dim HexNumLen As Integer
On Error GoTo err
    strEncryptLen = Len(StrEncrypt) '字符串长度
    CodeWord = "zhaojiaming"
    KeyLen = Len(CodeWord)
    Encrypt = ""
    For x = 1 To strEncryptLen
        C1 = Mid(StrEncrypt, x, 1) '按顺序取字符串一个字符
        C2 = left(CodeWord, 1) '取密钥第一个字符
        Num = Asc(C1) Xor Asc(C2) ' 异或一次
        For y = 2 To KeyLen
            C3 = Mid(CodeWord, y, 1) '按顺序取密钥一个字符
            Num = Asc(C3) Xor Num '连续异或
        Next y
        HexNum = Hex(Num)'转换为16进制串
        HexNumLen = Len(HexNum)
        If HexNumLen <> 2 Then
           HexNum = Format(CStr(Hex(Num)), "00") '格式化16进制串长度
        End If
        Encrypt = Encrypt + HexNum '连接成16进制字符串
    Next x
    Exit Function
err:
    MsgBox err.Description, vbInformation, "提示信息"
End Function

评论