Código:
Decrypter.Text = ""
For i = 1 To Len(Text2)
s = Mid(Text2, i, 1)
Decrypter = Decrypter + Chr(Asc(s) Xor 88)
El parametro es 7 , expliquenme como sería el code ,graciasFor i = 1 To Len(Text2)
s = Mid(Text2, i, 1)
Decrypter = Decrypter + Chr(Asc(s) Xor 88)