Codigo Cesar: Algoritmo de encriptamiento en vb.net

Utilizado, de ahí su nombre, por Julio César para comunicarse con sus oficiales, consiste en sustituir cada letra del mensaje por la que está n posiciones más adelante o atrás en el alfabeto.

Si n = 3, la A se sustituiría por la D, la B por E, la C por la F y así sucesivamente. De este modo, la palabra ABC se transforma en DEF encriptada, siendo n la llave (key) para poder decifrarla.

El proyecto.

1. Crea un nuevo proyecto en vb.net, la interfaz es sencilla y consiste en unos cuantos controles como en la imagen

2. Crea una nueva clase, llamala "Cesar.vb", esta clase estara compuesta por tres funciones, encriptar(), desencriptar() y clean(), esta ultima una funcion privada tiene el trabajo de limpiar el codigo de "retornos de carro" y de "caracteres especiales" que no se encuentren en la tabla predefinida para ello.

El codigo fuente de la clase Cesar.vb

Public Class Cesar

    'almacena todos los caracteres permitidos en el mensaje
    Private Const tabla = "abcdefghijklmnopqrstuvwxyz 0123456789ABCDEFGHIJLKMNOPQRSTUVWXYZ,.-;:_{}[]+*\¿?!¡#$&/()=áéíóúÁÉÍÓÚñÑ" + Chr(13)
    Private resultado As String
    Private i As Integer
    Private pos As Integer

    Function Encriptar(ByVal texto As String, ByVal key As Integer) As String
        resultado = ""
        texto = clean(texto)
        For i = 0 To (texto.Length - 1)
            'buscar la posicion del caracter 
            pos = tabla.IndexOf(texto.Chars(i))
            'realiza el reemplazo de caracteres
            If (pos + key) < tabla.Length Then
                resultado = resultado + tabla.Chars(pos + key)
            Else
                resultado = resultado + tabla.Chars((pos + key) - tabla.Length)
            End If
        Next
        'reconstruye el mensaje con los retornos de carro
        resultado = resultado.Replace("{.13}", vbCrLf)
        Return resultado
    End Function

    Function Desencriptar(ByVal texto As String, ByVal key As Integer) As String
        resultado = ""
        texto = clean(texto)
        For i = 0 To (texto.Length - 1)
            pos = tabla.IndexOf(texto.Chars(i))
            If ((pos - key) < 0) Then
                resultado = resultado + tabla.Chars((pos - key) + tabla.Length)
            Else
                resultado = resultado + tabla.Chars(pos - key)
            End If
        Next
        resultado = resultado.Replace("{.13}", vbCrLf)
        Return resultado
    End Function

    Private Function clean(ByVal t As String) As String
        ' reemplaza el retorno de carro con un simbolo
        t = t.Replace(vbCrLf, "{.13}")
        ' reemplaza los caracteres que no se encuentran en la tabla por un simbolo
        For i = 0 To (t.Length - 1)
            pos = tabla.IndexOf(t.Chars(i))
            If (pos = -1) Then
                t = t.Replace(t.Chars(i), "{.d}")
            End If
        Next
        Return t
    End Function

End Class

Resultado