Ir al contenido principal

Criptografía (CCLV): Cifrado César en Excel

Imagen
De

Ya puse una entrada con un script en python para cifrar y descifrar utilizando el cifrado César.

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

La programación la he realizado con Visual Basic para Aplicaciones (VBA) y, como en los posteriores posts que pondré con la automatización en Excel de tareas que ya haya hecho en python, no he pensado en "traducir" directamente el código de un lenguaje a otro, sino que la forma de implementar un mismo asunto puede variar sustancialmente, aunque evidentemente el resultado final pretenda ser el mismo.

Asimismo, en estos posts relativos a Excel no entraré en el detalle de los sistemas criptográficos y otros asuntos a implementar, ya que los he explicado profusamente en entradas anteriores, si no que me limitaré a poner el código y un ejemplo de su funcionamiento.

Dicho lo anterior, en este caso el código es el siguiente:

' CIFRADO CÉSAR:
'
' Cifra y descifra textos en claro y criptogramas, respectivamente,
' utilizando el cifrado César.
'
' http://mikelgarcialarragan.blogspot.com/

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

    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
        If Range("CLAVE").Value < 1 Or Range("CLAVE").Value > 26 Then
            MsgBox "El desplazamiento debe seer un número comprendido entre 1 y 26.", vbOKOnly + vbCritical, "¡Error!"
            Range("CLAVE").Value = 3
        Else
            Range("CRIPTOGRAMA").Value = ""
            For Caracter = 1 To Len(Range("TEXTO_CLARO").Value)
                Range("CRIPTOGRAMA").Value = Range("CRIPTOGRAMA").Value & chr((Asc(Mid(Range("TEXTO_CLARO").Value, Caracter, 1)) - 65 + Range("CLAVE").Value) Mod 26 + 65)
            Next
        End If
    End If

End Sub
Public Sub Descifrar()
    Dim Caracter As Integer

    Range("CRIPTOGRAMA").Value = A_Z(UCase(Replace(Range("CRIPTOGRAMA").Value, " ", "")))
    
    If Len(Range("CRIPTOGRAMA").Value) = 0 Then
        MsgBox "Introduzca el criptograma a descifrar. Sólo caracteres alfabéticos [A-Z], 'Ñ' excluida.", vbOKOnly + vbCritical, "¡Error!"
    Else
        If Range("CLAVE").Value < 1 Or Range("CLAVE").Value > 26 Then
            MsgBox "El desplazamiento debe seer un número comprendido entre 1 y 26.", vbOKOnly + vbCritical, "¡Error!"
            Range("CLAVE").Value = 3
        Else
            Range("TEXTO_CLARO").Value = ""
            For Caracter = 1 To Len(Range("CRIPTOGRAMA").Value)
                Range("TEXTO_CLARO").Value = Range("TEXTO_CLARO").Value & chr((Asc(Mid(Range("CRIPTOGRAMA").Value, Caracter, 1)) + 65 - Range("CLAVE").Value) Mod 26 + 65)
            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

Ejemplo de funcionamiento:

- Cifrar:

- Descifrar:

Quizás también te interese:

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...
108 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...
1 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