PROGRAMA CÓDIGO CESAR

El siguiente es un programa que permite encristalar y des encristalar una cadena de caracteres ingresada inicialmente fue elaborado en matlab.

%cifrar y descifrar unimeta

disp('==        MENU        ==');

disp('==  1.- CODIFICAR     ==');

disp('==  2.- DECODIFICAR   ==');

x=input('INGRESAR PALABRA A ENCRIPTAR: ','s');%ingresa el valaor q se cambia para volverlo string o cadena de caracteres.

n=input('INGRESE EL DESPLAZAMIENTO: ');%valor que quiero mover o despalzar mis espacio de las letras.

t=input('ELIGE OPCION DEL MENU: ');%selecciono lo q quiero hacer.

if t==1

    h=((x+n)-97);%le resto 97 a los ascii.

    e=mod(h,26);%la op mod realiza a cesar.

    f=(e+97);%sumo 97 al res del mod.

    g=char(f);%vuelvo a cesar caracter.

    disp('SU CODIFICACION ES: ')%muestra res.

    disp(g)%muestra el res de la codi.

   

elseif t==2

    h=((x+n)-97);%le resto 97 a los ascii.

    e=mod(h,26);%la op mod realiza a cesar.

    f=(e+97);%sumo 97 al res del mod.

    g=char(f);%vuelvo a cesar caracter.

    disp('SU CODIFICACION ES: ')%muestra al user.

    disp(g);%muestra el res de la codificacion.

   

    i=((f-n)-97);%le resta 97 de los ascii ingresados por el user.

    j=mod(i,26);%se hace la op modulo, cesar.

    k=(j+97);%se le suma 97 al res del mod.

    l=char(k);%se convierte en caracter.

    disp('SU DECODIFICACION: ')%muestra al user.

    disp(l)%muestra el res de la codificacion.

end