vb6 - 암호화 및 암호 해독시 XOR 암호화로 다른 결과 제공

파일을 암호화하고 싶습니다. XOR을 사용하여 암호화합니다. 그러나 문제는 암호화 할 수 있지만 해독하고 싶을 때 원래 파일이 아닌 다른 결과를 제공한다는 것입니다.

내가 사용하는 코드는 다음과 같다

Public Function Encrypt(ByVal txt As String, ByVal pass As String) As String
Dim mem() As Byte
mem = StrConv(txt, vbFromUnicode)
For i = 0 To UBound(mem)
    mem(i) = Asc(mem(i)) Xor Asc(Mid(pass, (i Mod Len(pass)) + 1, 1))
Next i
Encrypt = StrConv(mem, vbUnicode)
Erase mem
End Function
Public Function Decrypt(ByVal txt As String, ByVal pass As String) As String
Dim mem() As Byte
mem = StrConv(txt, vbFromUnicode)
For i = 0 To UBound(mem)
    mem(i) = Asc(mem(i)) Xor Asc(Mid(pass, (i Mod Len(pass)) + 1, 1))
Next i
Decrypt = StrConv(mem, vbUnicode)
Erase mem
End Function
Private Sub Form_Load()
Enkrip = Encrypt(txt.LoadFile("C:\mom.txt"), "FROM YOUR SON")
dekrip = Decrypt(Enkrip, "FROM YOUR SON")
MsgBox Enkrip & vbCrLf & dekrip
End Sub

dekrip의 값은 C : \ mom.txt의 원래 내용이어야하지만 다른 결과를 반환합니다.

이 코드도 시도했는데 잘 작동합니다

Private Sub Form_Load()
Data = "A"
pass = "B"
enkrip = Chr(Asc(Data) Xor Asc(pass))
dekrip = Chr(Asc(enkrip) Xor Asc(pass))
MsgBox enkrip & vbCrLf & dekrip
End Sub

코드를 수정하려면 어떻게해야합니까?

감사합니다