Encriptacion en VisualBasic .NET
Publicado: Jue, 26 Mar 2026, 22:10
En este código, para argumentar el artículo de Criptografía, expondremos como crear un programa sencillo de encriptación usando el método de sustitución. Para ello sólo requeriremos de un cuadro de texto y un botón que de inicio a la encriptación.
Con este algoritmo, para el texto “BlackHat”, se debería tener como texto encriptado “Lvkmurk~”. Por la cantidad de comentarios expuestos espero que nadie tenga dificultad para entenderlo.
Código: Seleccionar todo
‘Se declaran las variable a utilizar
Dim TxT_Encriptado As String
Dim caracter As String
Dim Codigo_Ascii As Integer
Dim i As Integer
‘Se hace el ciclo por todo el texto
For i = 1 To Len(TextBox1.Text)
‘Se toma cada caracter
caracter = Mid(TextBox1.Text, i, 1)
‘Se toma el código ascii de cada caracter
Codigo_Ascii = Asc(caracter)
‘Se le suma 10 a dicho código
Codigo_Ascii = Codigo_Ascii + 10
‘Se va escribiendo en la variable TXT_Encriptado el carácter ascii del número obtenido
TxT_Encriptado = TxT_Encriptado & Chr(Codigo_Ascii)
‘Se muestra el mensaje ya encriptado
Next
MsgBox(TxT_Encriptado)
End Sub