El blog de García Larragan y Cía

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. E l 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 ...

Ya puse una  entrada  con un script en python para cifrar y descifrar utilizando la escítala espartana . 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 sendas varas de grosor igual o similar que debían estar en posesión del emisor y del receptor del mensaje secreto, que se escribía en una cinta de cuero enrollada en una de las varas, y después se enviaba la cinta al receptor del mensaje. E l código es el siguiente : ' LA ESCÍTALA ESPARTANA: ' ' Cifra y descifra textos en claro y criptogramas, respectivamente, ' utilizando la escítala espartana. ' ' http://mikelgarcialarragan.blogspot.com/ Option Explicit Public TEXTO_CLARO As Range Public GROSOR As Range Public CRIPTOGRAMA As Range Public Sub Cifrar() Dim Longitud As Integer Dim i As Integer Dim j As Integer ...

Ya puse una  entrada  con un script en python para cifrar y descifrar utilizando el cifrado Atbash , y en ésta pongo el  código Visual Basic para aplicaciones (VBA) para automatizar en Excel esa misma tarea . El  cifrado Atbash  es un criptosistema de sustitución simple monoalfabética de alfabeto invertido, es decir, cada carácter del texto en claro se sustituye siempre por el  mismo carácter en el texto cifrado, el situado en la misma posición que el carácter del texto en claro en el alfabeto con el orden de los caracteres invertido. E l código es el siguiente : ' CIFRADO ATBASH: ' ' Cifra y descifra textos en claro y criptogramas, respectivamente, ' utilizando el cifrado Atbash. ' ' 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 = A_Z(UCase(Replace(Range("TEXTO_CLARO").Value, " ", ...

Ya puse una  entrada  con un script en python para calcular la  Entropía  (H) de un texto, y en ésta pongo el código Visual Basic para aplicaciones (VBA) para automatizar en Excel esa misma tarea. Antes de poner el código y un ejemplo de su funcionamiento, recordar  qué es y cómo se calcula . la   Entropía   (H)  mide la incertidumbre de una fuente de información y puede ser considerada como la cantidad de información promedio que contienen los símbolos usados . Donde: H : Entropía. M : mensaje o texto. m i : carácter i-ésimo del mensaje o texto. p(m i ) : probabilidad de aparición del carácter i-ésimo en el mensaje o texto. n : número de caracteres o tamaño del mensaje o texto. E l código es el siguiente : ' ENTROPÍA (H): ' ' Cálculo de la Entropía (H) de un texto. ' ' http://mikelgarcialarragan.blogspot.com/ Option Explicit Public TEXTO As Range Public H As Range Public Sub Calcular_H() Dim Alfabeto As String Di...

Otra entrada con la automatización, esta vez en Excel, de una tarea que tiene relación con la criptografía . Ya puse una  entrada  con un script en python para calcular el Índice de Coincidencia (IC) , y ahora le toca el turno a la programación de esto mismo con Visual Basic para Aplicaciones en Excel . Antes de poner el código y un ejemplo de su funcionamiento, recordar que en este post expliqué qué es y cómo se utiliza el IC para atacar cifrados de sustitución polialfabética con claves periódicas. El  IC  es la probabilidad de que dos letras tomadas al azar de un texto sean iguales  y, por tanto, para su cálculo utilizaremos la siguiente fórmula (número de casos favorables / número de casos posibles): Donde: f i : frecuencia o número de ocurrencias del carácter i-ésimo del alfabeto (de la "A" a la "Z") en el texto. N : número de caracteres o tamaño del texto . E l código es el siguiente : ' ÍNDICE DE COINCIDENCIA (IC): ' ' Cálculo del IC de un texto...

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 Ex cel 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 ...