Autor
El receptor descifra el texto realizando la sustitución inversa.
Los cifrados por sustitución son comparables a los cifrados por transposición. En un cifrado por transposición, las unidades del texto plano son cambiadas usando una ordenación diferente y normalmente bastante compleja, pero las unidades en sí mismas no son modificadas. Por el contrario, en un cifrado por sustitución, las unidades del texto plano mantienen el mismo orden, lo que se cambia son las propias unidades del texto plano.
Existen diversos tipos de cifrados por sustitución. Si el cifrado opera sobre letras simples, se denomina cifrado por sustitución simple; un cifrado que opera sobre grupos de letras se denomina, poligráfico. Un cifrado monoalfabético usa una sustitución fija para todo el mensaje, mientras que un cifrado polialfabético usa diferentes sustituciones en diferentes momentos del mensaje-por ejemplo los homófonos, en los que una unidad del texto plano es sustituida por una de entre varias posibilidades existentes para el texto cifrado.
En esta ocasión vamos a realizar un pequeño programa para implementar el cifrado por sustitución simple, no obstante es posible con unas pocas modificaciones implementar un sistema diferente.
Este sistema es muy simple y puede ser fácilmente descifrado, pero sirve como base para aprender a realizar la sustitución de caracteres en cadenas y de paso realizar nuestro primer programa para codificar textos....
Aunque se implementa solo la versión simple (que opera sobre letras simples), vamos a realizar la sustitución de las distintas letras, del abecedario:
"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"
Por una selección de caracteres del conjunto unicode :
"א", "η", "Σ", "Τ", "ϊ", "ψ", "φ", "σ", "ב", "ג", "ה", "ז", "Ϧ", "ﬥ", "ﬢ", "ﬠ", "ﬨ", "ף", "", "ם", "ן", "Ϣ", "Ϩ", "Ϝ", "ס", "Ϯ", "ך"
Este sería un ejemplo:
Código:
Este es un texto de prueba que se va a codificar para probar
el algoritmo de sustitución.
Código:
ϊםןϊڊϊםڊϢﬥڊןϊסןﬠڊΤϊڊﬨұϢϊηאڊףϢϊڊםϊڊϨאڊאڊΣﬠΤבψבΣאұڊﬨאұאڊﬨұﬠηאұڊϊ
זڊאזφﬠұבןϦﬠڊΤϊڊםϢםןבןϢΣבóﬥ.
Y bueno aquí tenéis el código del ejemplo:
Código:
Public Class Form1
''**************************************************
''VARIABLES GLOBALES
''**************************************************
Dim Chars1() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " "}
Dim Chars2() As String = {"א", "η", "Σ", "Τ", "ϊ", "ψ", "φ", "σ", "ב", "ג", "ה", "ז", "Ϧ", "ﬥ", "ﬢ", "ﬠ", "ﬨ", "ף", "ұ", "ם", "ן", "Ϣ", "Ϩ", "Ϝ", "ס", "Ϯ", "ך", "ڊ"}
''**************************************************
''EVENTOS
''**************************************************
Private Sub btnBorrarTodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrarTodo.Click
borrarTodo()
End Sub
Private Sub btnSubirResultado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubirResultado.Click
subirResultado()
End Sub
Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
calcular()
End Sub
''**************************************************
''SUBPROCEDIMIENTOS y FUNCIONES
''**************************************************
Sub borrarTodo()
txtOrigen.Text = ""
txtDestino.Text = ""
End Sub
Sub subirResultado()
txtOrigen.Text = txtDestino.Text
txtDestino.Text = ""
End Sub
Sub calcular()
''
If txtOrigen.Text <> "" Then
''
If opCodificar.Checked Then
''CODIFICAR
txtDestino.Text = CodCaracteres(txtOrigen.Text)
''
Else
''DECODIFICAR
txtDestino.Text = DecodCaracteres(txtOrigen.Text)
''
End If
''
End If
''
End Sub
''**************************************************
Function CodCaracteres(ByVal str As String) As String
''
Dim k As Integer = 0
Dim c1 As String = ""
Dim c2 As String = ""
''
str = str.ToLower
''
While k < Chars1.Length
''
c1 = Chars1(k)
c2 = Chars2(k)
''
While str.Contains(c1) = True
str = str.Replace(c1, c2)
End While
''
k += 1
''
End While
''
Return str
''
End Function
Function DecodCaracteres(ByVal str As String) As String
''
Dim k As Integer = 0
Dim c1 As String = ""
Dim c2 As String = ""
''
While k < Chars2.Length
''
c1 = Chars1(k)
c2 = Chars2(k)
''
While str.Contains(c2) = True
str = str.Replace(c2, c1)
End While
''
k += 1
''
End While
''
Return str
''
End Function
''**************************************************
End Class
Y por último aquí tenéis el ejecutable de prueba:
Unicoder.zip
.
En línea
