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