Шифрование, Заканчиваем 11 класс, а тут программирование совсем сложным стало... П Опции

[Black Zi]

1. Создать программу шифровщик-дишифровщик. Вначале выбераем шифровку или дишифровку выполняем. Для шифровки вводим русский текст, преобразуем все буквы в заглавные, а затем прибавляем каждому коду буквы сдвиг (сдвиг может быть и отрицательным, мы сами его вводим). А на дишифровщике точно на оборот... Заранее благодарю!!!

[klem4]

Мне кажется просто Цезарь это не совсем то что нужно, я думаю должно быть что-то вроде этого:

const
  s_alpha = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  b_alpha = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

function Lower(s: String): String;
var
  i: Integer;
begin
  for i := 1 to Length(s) do
   s[i] := s_alpha[ Pos(s[i], b_alpha) ];
  Lower := s;
end;

function Crypt(const s: String; shift: Integer): String;
var
  newPos, i, delta: Integer;
  r: String;
begin

  shift := shift - 33 * (shift div 33);

  if shift < 0 then shift := 33 + shift;

  r := '';

  for i := 1 to Length(s) do begin
    newPos := Pos(s[i], s_alpha) + shift;
    if newPos > 33 then dec(newPos, 33);
    r := r + b_alpha[newPos];
  end;

  Crypt := r;
end;

function DeCrypt(s: String; shift: Integer): String;
begin
  Decrypt := Lower(Crypt(Lower(s), -shift));
end;

var
  s: String;

begin
  s := 'абвя';
  writeln(s);
  s := Crypt(s, -34);
  writeln(s);
  s := DeCrypt(s, -34);
  writeln(s);
end.