Criptografía - Cifrado por sustitución

[hadree]

En criptografía, el cifrado por sustitución es un método de cifrado por el que unidades de texto plano son sustituidas con texto cifrado siguiendo un sistema regular; las "unidades" pueden ser una sola letra (el caso más común), pares de letras, tríos de letras, mezclas de lo anterior, entre otros.

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 [Seleccionar] Expandir


Este es un texto de prueba que se va a codificar para probar
el algoritmo de sustitución.


Código [Seleccionar] Expandir


ϊםןϊڊϊםڊϢﬥڊןϊסןﬠڊΤϊڊﬨұϢϊηאڊףϢϊڊםϊڊϨאڊאڊΣﬠΤבψבΣאұڊﬨאұאڊﬨұﬠηאұڊϊ
זڊאזφﬠұבןϦﬠڊΤϊڊםϢםןבןϢΣבóﬥ.


Y bueno aquí tenéis el código del ejemplo:

Código [Seleccionar] Expandir



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



.

[Shell Root]

Pero creo que sería mejor implementarle el metodo que usa el cifrado de vigenere...

[hadree]

Bueno es solo para empezar más adelante pueden añadirse otros algoritmos.