Algoritmia - algoritmos de encriptacion

#include <stdio.h>

// Función para cifrar un mensaje usando el cifrado César

void cifrarCesar(char mensaje[], int clave) {

    int i = 0;

    while (mensaje[i] != '\0') {

        if (mensaje[i] >= 'A' && mensaje[i] <= 'Z') {

            mensaje[i] = (mensaje[i] + clave - 'A') % 26 + 'A';

        } else if (mensaje[i] >= 'a' && mensaje[i] <= 'z') {

            mensaje[i] = (mensaje[i] + clave - 'a') % 26 + 'a';

        }

        i++;

    }

}

int main() {

    char mensaje[100];

    int clave;

    printf("Ingrese el mensaje a cifrar: ");

    gets(mensaje);

    printf("Ingrese la clave de cifrado: ");

    scanf("%d", &clave);

    cifrarCesar(mensaje, clave);

    printf("Mensaje cifrado: %s\n", mensaje);

    return 0;

}

program CifradoCesar;

var

  mensaje: string;

  clave: integer;

// Procedimiento para cifrar un mensaje usando el cifrado César

procedure CifrarCesar(var mensaje: string; clave: integer);

var

  i: integer;

begin

  for i := 1 to Length(mensaje) do

  begin

    if (mensaje[i] >= 'A') and (mensaje[i] <= 'Z') then

      mensaje[i] := Chr((Ord(mensaje[i]) + clave - Ord('A')) mod 26 + Ord('A'))

    else if (mensaje[i] >= 'a') and (mensaje[i] <= 'z') then

      mensaje[i] := Chr((Ord(mensaje[i]) + clave - Ord('a')) mod 26 + Ord('a'));

  end;

end;

begin

  Write('Ingrese el mensaje a cifrar: ');

  Readln(mensaje);

  Write('Ingrese la clave de cifrado: ');

  Readln(clave);

  CifrarCesar(mensaje, clave);

  Write('Mensaje cifrado: ', mensaje);

end.