Encriptacion en VisualBasic .NET

[h0ax]

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.

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

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.