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