Código [Seleccionar]
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 ,gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDecrypter.Text = ""
For i = 1 To Len(Text2)
s = Mid(Text2, i, 1)
Decrypter = Decrypter + Chr(Asc(s) Xor 88)
Decrypter.Text = ""
For i = 1 To Len(Text2)
s = Mid(Text2, i, 1)
Decrypter = Decrypter + Chr(Asc(s) Xor 88)