VB implementa cifrado y descifrado de cadenas
'Si convierte el valor del código ASC de cada carácter en texto1 a hexadecimal para implementar el cifrado y descifrado, puede hacer esto: copie y pegue el siguiente código
'Datos cifrados
Private Sub Command1_Click()
Text2.Tag = "" 'Borrar text2.tag para almacenar datos cifrados
Text2.Text = "" 'Borrar text2 para mostrar datos cifrados
For i = 1 To Len(Text1.Text) 'Convierte el valor del código asc de cada carácter en text1 a hexadecimal, sepáralo con un retorno de carro suave chr(13) y guárdalo en text2.tag
Text2.Tag = Text2.Tag amp(Asc(Mid(Text1.Text, i, 1))) amp;
Text2.Text = Text2.Tag 'Mostrar datos cifrados
End Sub
'Descifrar datos
Private Sub Command2_Click( )
Text1.Tag = ""
Text1.Text = ""
Dim b() As String 'Define una matriz para almacenar cada elemento en text1 Número hexadecimal convertido de caracteres
b = Split(Text2.Text, Chr(13)) 'Separe el texto en text2 con el carácter de retorno de carro suave chr(13) y guárdelo en la matriz b
For i = 0 To UBound(b) 'Convierte cada número hexadecimal en text2 en un valor de código asc decimal y luego en caracteres
Text1.Tag = Text1 .Tag amp(Chr(Val("amp; h" amp; b(i)))
Siguiente
Text1.Text = Text1.Tag 'Mostrar datos originales
End Sub