需要帮助Vb6异或大号

Question

Dim Key As Long 
Packet = txtSend.Text 
PacketLength = Len(txtSend.Text) 
key = &H82381AC + PacketLength * "17" 
For ix = 1 To PacketLength - 1 
OneCharacter = Mid$(Packet, ix, 1) 
NewCharacter = Asc(OneCharacter) Xor key And &H1F 
key = key * "13" Xor &H43B 
Next ix 

循环将运行大约3次然后溢出。我想不管你做什么异或会导致字节，整数或长。 CDec（Key）将无法工作我需要一种方法来绕过这个，所以我可以Xor大数字。

Answer 1

您只能XOR整数，而不是字符串。如果要使用XOR对字符串进行加密，请通过将字符逐个字符应用于字符代码

Public Function Encrypt(ByVal s As String) As String 
    Const key As String = "r5^245ADh3%^ywftGY53Gsdr245^Tsfdgw45^fGqw4%6243TefgH563&ot7y" 
    Dim i As Integer 

    For i = 1 To Len(s) 
     Mid(s, i, 1) = Chr(Asc(Mid(s, i, 1)) Xor Asc(Mid(key, i, 1))) 
    Next i 
    Return s 
End Function