Ir al contenido principal

Criptografía (CCLXV): Cifrado de Polibio en Excel

Imagen
De

Ya puse una entrada con un script en python para cifrar y descifrar utilizando el cifrado de Polibio.

Y ahora, en este post incluyo el cifrado y descifrado utilizando este mismo criptosistema en Excel. 

Antes de poner el correspondiente código Visual Basic para aplicaciones (VBA), recordar que este cifrado se basa en una tabla de 5 filas y 5 columnas cuyas celdas se completan con las letras del alfabeto (la "I" y la "J" comparten celda, y "Ñ" excluida).

Para cifrar se sustituía cada carácter del texto en claro por el dígito de la fila y el dígito de la columna en cuya intersección se encontraba éste.

El código es el siguiente:
' CIFRADO DE POLIBIO:
'
' Cifra y descifra textos en claro y criptogramas, respectivamente,
' utilizando el cifrado de Polibio.
'
' http://mikelgarcialarragan.blogspot.com/

Option Explicit
Public TEXTO_CLARO As Range
Public CRIPTOGRAMA As Range
Public Sub Cifrar()
    Dim Caracter As Integer

    Range("TEXTO_CLARO").Value = Replace(Range("TEXTO_CLARO").Value, "j", "i")
    Range("TEXTO_CLARO").Value = Replace(Range("TEXTO_CLARO").Value, "J", "I")
    Range("TEXTO_CLARO").Value = Replace(Range("TEXTO_CLARO").Value, "ñ", "n")
    Range("TEXTO_CLARO").Value = Replace(Range("TEXTO_CLARO").Value, "Ñ", "N")
    Range("TEXTO_CLARO").Value = A_Z(UCase(Replace(Range("TEXTO_CLARO").Value, " ", "")))
    
    If Len(Range("TEXTO_CLARO").Value) = 0 Then
        MsgBox "Introduzca el texto en claro a cifrar. Sólo caracteres alfabéticos [A-Z], 'Ñ' excluida.", vbOKOnly + vbCritical, "¡Error!"
    Else
        Range("CRIPTOGRAMA").Value = ""
        For Caracter = 1 To Len(Range("TEXTO_CLARO").Value)
            If Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) < 74 Then
                Range("CRIPTOGRAMA").Value = Range("CRIPTOGRAMA").Value & (Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) - 65) \ 5 + 1 & (Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) - 65) Mod 5 + 1
            Else
                Range("CRIPTOGRAMA").Value = Range("CRIPTOGRAMA").Value & (Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) - 66) \ 5 + 1 & (Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) - 66) Mod 5 + 1
            End If
        Next
    End If

End Sub
Public Sub Descifrar()
    Dim Caracter As Integer

    Range("CRIPTOGRAMA").Value = D1_9(Replace(Range("CRIPTOGRAMA").Value, " ", ""))
    
    If Len(Range("CRIPTOGRAMA").Value) = 0 Then
        MsgBox "Introduzca el criptograma a descifrar. Sólo dígitos del 1 al 5.", vbOKOnly + vbCritical, "¡Error!"
    Else
        If Len(Range("CRIPTOGRAMA").Value) Mod 2 <> 0 Then
            MsgBox "El criptograma debe tener un número par de dígitos.", vbOKOnly + vbCritical, "¡Error!"
        Else
            Range("TEXTO_CLARO").Value = ""
            For Caracter = 1 To Len(Range("CRIPTOGRAMA").Value) Step 2
                If Mid(Range("CRIPTOGRAMA").Value, Caracter, 1) & Mid(Range("CRIPTOGRAMA").Value, Caracter + 1, 1) < 25 Then
                    Range("TEXTO_CLARO").Value = Range("TEXTO_CLARO").Value & Chr((Mid(Range("CRIPTOGRAMA").Value, Caracter, 1) - 1) * 5 + (Mid(Range("CRIPTOGRAMA").Value, Caracter + 1, 1) - 1) Mod 5 + 65)
                Else
                    Range("TEXTO_CLARO").Value = Range("TEXTO_CLARO").Value & Chr((Mid(Range("CRIPTOGRAMA").Value, Caracter, 1) - 1) * 5 + (Mid(Range("CRIPTOGRAMA").Value, Caracter + 1, 1) - 1) Mod 5 + 66)
                End If
            Next
        End If
    End If

End Sub
Function A_Z(Cadena As String) As String
    Dim Caracter As Integer

    For Caracter = 1 To Len(Cadena)
        Select Case Asc(Mid(Cadena, Caracter, 1))
            Case 65 To 90:
                A_Z = A_Z & Mid(Cadena, Caracter, 1)
        End Select
    Next

End Function
Function D1_9(Cadena As String) As String
    Dim Caracter As Integer

    For Caracter = 1 To Len(Cadena)
        Select Case Asc(Mid(Cadena, Caracter, 1))
            Case 49 To 53:
                D1_9 = D1_9 & Mid(Cadena, Caracter, 1)
        End Select
    Next

End Function

Ejemplo de funcionamiento:

- Cifrar:

- Descifrar:

Quizás también te interese:

Etiquetas

Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Criptografía (I): cifrado Vigenère y criptoanálisis Kasiski

De
Hace unos días mi amigo Iñaki Regidor ( @Inaki_Regidor ), a quien dedico esta entrada :), compartió en las redes sociales un post titulado "Criptografía: el arte de esconder mensajes"  publicado en uno de los blogs de EiTB . En ese post se explican ciertos métodos clásicos para cifrar mensajes , entre ellos el cifrado de Vigenère , y , al final del mismo, se propone un reto consistente en descifrar un mensaje , lo que me ha animado a escribir este post sobre el método Kasiski  para atacar un cifrado polialfabético ( conociendo la clave descifrar el mensaje es muy fácil, pero lo que contaré en este post es la forma de hacerlo sin saberla ). El mensaje a descifrar es el siguiente: LNUDVMUYRMUDVLLPXAFZUEFAIOVWVMUOVMUEVMUEZCUDVSYWCIVCFGUCUNYCGALLGRCYTIJTRNNPJQOPJEMZITYLIAYYKRYEFDUDCAMAVRMZEAMBLEXPJCCQIEHPJTYXVNMLAEZTIMUOFRUFC Como ya he dicho el método de Vigenère es un sistema de sustitución polialfabético , lo que significa que, al contrario que en un sistema...
107 comentarios
Leer más

¿Qué significa el emblema de la profesión informática? (I)

De
Todas o muchas profesiones tienen un emblema que las representa simbólicamente y en el caso de la  informática: " es el establecido en la resolución de 11 de noviembre de 1977  para las titulaciones universitarias superiores de informática, y  está constituido por una figura representando en su parte central  un  núcleo toroidal de ferrita , atravesado por  hilos de lectura,  escritura e inhibición . El núcleo está rodeado por  dos ramas : una  de  laurel , como símbolo de recompensa, y la otra, de  olivo , como  símbolo de sabiduría. La  corona  será la  de la casa real  española,  y bajo el escudo se inscribirá el acrónimo de la organización. ". Veamos los diferentes elementos tomando como ejemplo el emblema del COIIE/EIIEO (Colegio Oficial de Ingenieros en Informática del País Vasco/ Euskadiko Informatikako Ingeniarien Elkargo Ofiziala ) . Pero no sólo el COIIE/EIIEO adopta el emblem...
Publicar un comentario
Leer más

Criptografía (XXIII): cifrado de Hill (I)

De
En este post me propongo explicar de forma comprensible lo que he entendido sobre el cifrado de Hill , propuesto por el matemático Lester S. Hill , en 1929, y que se basa en emplear una matriz como clave  para cifrar un texto en claro y su inversa para descifrar el criptograma correspondiente . Hay tres cosas que me gustan de la criptografía clásica, además de que considero que ésta es muy didáctica a la hora de comprender los sistemas criptográficos modernos: la primera de ellas es que me "obliga" a repasar conceptos de matemáticas aprendidos hace mucho tiempo y, desgraciadamente, olvidados también hace demasiado tiempo, y, por consiguiente, que, como dice  Dani , amigo y coautor de este blog, me "obliga" a hacer "gimnasia mental"; la segunda es que, en la mayoría de las ocasiones, pueden cifrarse y descifrase los mensajes, e incluso realizarse el criptoanálisis de los criptogramas, sin más que un simple lápiz y papel, es decir, para mi es como un pasat...
5 comentarios
Leer más