VB.net implementa cifrado y descifrado simples ---gt;

Depurado en VB:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Maneja Button1.Click

Dim i, j Como entero

Dim et(TextBox1.Text.Length) Como Char

j = 0

Para i = 0 Para TextBox1.Text Longitud - 1.

et(i) = Chr(AscW(TextBox1.Text.Chars(i)) AscW(TextBox2.Text.Chars(j)))

j = j 1

Si j gt; = TextBox2.Text.Length Entonces j = 0

Siguiente

TextBox1.Text = et

Fin Sub

Private Sub Button2_Click(ByVal remitente como System.Object, ByVal e As System.EventArgs) Maneja Button2.Click

Dim i, j como entero

Dim et( TextBox1.Text.Length) Como Char

j = 0

Para i = 0 Para TextBox1.Text.Length - 1

et(i ) = Chr (AscW(TextBox1.Text.Chars(i)) - AscW(TextBox2.Text.Chars(j)))

j = j 1

Si j gt = TextBox2. Text.Length Entonces j = 0

Siguiente

TextBox1.Text = et

Fin Sub