Шифр Цезаря Delphi

Шифр Цезаря – это простой вид шифра, который был разработан еще в древности и который многие используют и по сей день. Он основан на замене каждого символа в сообщении на символ, который расположен на определенном количестве позиций дальше (в алфавите или другом наборе символов).

В Delphi можно написать программу для шифровки и дешифровки сообщений с помощью шифра Цезаря. Для этого можно использовать простой код на языке Delphi:

procedure CaesarCipher(var Str: string; Shift: Integer);
var
  i: Integer;
  Ch: Char;
begin
  for i := 1 to Length(Str) do
  begin
    Ch := Str[i];
    if (Ch >= 'a') and (Ch <= 'z') then
    begin
      Ch:=Char(Integer('a') + ((Integer(Ch) - Integer('a') + Shift) mod 26));
    end
    else if (Ch >= 'A') and (Ch <= 'Z') then
    begin
      Ch:=Char(Integer('A') + ((Integer(Ch) - Integer('A') + Shift) mod 26));
    end;
    Str[i] := Ch;
  end;
end;