Cómo crear un cifrado de sustitución simple en Excel

Las funciones de Excel son herramientas flexibles que permiten crear un cifrado de sustitución básico. No es un método seguro para datos bancarios o secretos empresariales, pero sirve como excelente ejercicio de programación en Excel y demuestra el potencial de sus funciones avanzadas.

Paso 1: Habilitar cálculos iterativos

Ve a Archivo > Opciones > Fórmulas y marca "Habilitar cálculo iterativo". Establece el número máximo de iteraciones según la longitud máxima del mensaje a cifrar/descifrar (500 caracteres es un límite razonable).

Paso 2: Preparar etiquetas de referencia

En las celdas A1:A7 introduce estas etiquetas (orden): "Texto", "Inicio", "Fin", "Contador", "Traducir". Son solo referencias visuales; no afectan a las fórmulas.

Paso 3: Valor inicial

En la celda B2 escribe 0.

Paso 4: Longitud del texto

En B3 introduce la fórmula: =LARGO(B1) (cuenta caracteres del texto original).

Paso 5: Contador de iteración

En B4 coloca: =SI(B1="";B2;SI(B4<B3;B4+1;B3)). Controla el bucle de procesamiento carácter a carácter.

Paso 6: Fórmula de cifrado ROT13

En B5 pega esta fórmula compleja que aplica el cifrado César (ROT13) a cada carácter alfabético, manteniendo espacios y símbolos:

=SI(B1="";"";SI(B4<=B3;CONCATENAR(B5;CAR(SI(CODIGO(EXTRAE(B1;B4;1))=32;32;RESIDUO((CODIGO(EXTRAE(B1;$B$4;1))-SI(CODIGO(EXTRAE(B1;$B$4;1))<91;65;97))+13;26)+SI(CODIGO(EXTRAE(B1;$B$4;1))<91;65;97))));B5))

Paso 7: Usar el cifrador

Escribe tu mensaje en B1 y pulsa Enter. El texto cifrado aparecerá en B5. Para descifrar, pega el texto cifrado en B1 y obtendrás el original en B5.

Nota importante

Debido al funcionamiento de los cálculos iterativos en Excel, el último carácter del resultado se repite una vez adicional. Simplemente ignóralo o ajusta la fórmula si es crítico.