Imprimir Página - Criptografía - Cifrado por sustitución

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....:D

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 (http://www.foro.vb-mundo.com/attachments/f25/2248d1289486460-criptografia-cifrado-sustitucion-unicoder.zip)

.

Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: hadree en 22 Noviembre 2010, 17:19 pm