Cifrado César

Cómo realizar el cifrado César

Tabla Ascii del 32 al 126

Función Ascii()

Función Mod()

Función Char()

Procedimiento para obtener cada una de las letras de un texto

DELIMITER $$
CREATE PROCEDURE letras (IN texto VARCHAR(20))
BEGIN
 
    DECLARE i INT;
    DECLARE longitud INT;
    DECLARE letra CHARACTER;
 
    SET i = 1;
    SET longitud = LENGTH(texto);
 
    REPEAT
        SET letra = SUBSTRING(texto, i, 1);
        IF letra <> ' ' THEN      
        	SELECT CONCAT(letra, ": ", ascii(letra));
        ELSE
        	SELECT CONCAT(letra, ": ", ascii(' '));
        END IF;
        SET i = i + 1;
    UNTIL i > longitud
    END REPEAT;

END
$$
DELIMITER ;

Ejecución

CALL letras("ejemplo de texto!");