Funcion en vb.net para codificar / decodificar texto

Función en VB.NET para codificar / decodificar texto

Su utilización es muy simple:

La función para codificar pide tres valores, el ultimo es opcional y como resultado nos devuelve la cadenacodificada...

strCadena: Es la cadena de texto que queremos codificar.
Llave: Es un código que utilizaremos como llave en la de codificación, si se nos olvida no podremos decodificar el texto.Nivel: Aquí ingresamos un nivel de codificación, de 1 a 128. Simplemente lo que hace es codificar el código ya codificado para tener un poco mas de complejidad. Por defecto el nivel es 1.

La funciónpara decodificar pide tres valores, el ultimo es opcional y como resultado nos devuelve la cadena decodificada...

strCadena: Es la cadena codificada que deseamos decodificar.
Llave: Es el código queutilizamos para codificar la cadena, si es diferente no se podrá decodificar.
Nivel: Aquí ingresamos el mismo valor utilizado en la codificación, si es diferente no funcionara la de codificación. Pordefecto es 1.

Ejemplo para su utilización:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox2.Text = ""Me.TextBox2.Text = Codificar(Me.TextBox1.Text, Me.TextBox3.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.TextBox1.Text = ""
Me.TextBox1.Text = DeCodificar(Me.TextBox2.Text, Me.TextBox3.Text)
End Sub

Código:

#Region "Codificacion"
'''
''' Calcula la semilla para lacodificacion
'''
''' Cadena de caracteres
''' La semilla en una cadena
'''
Private Shared Function Semilla(ByVal strClave As String) As StringDim lngSemilla1 As Long
Dim lngSemilla2 As Long
Dim j As Long
Dim i As Long
lngSemilla1 = 0
lngSemilla2 = 0
j =...