Блокнот by GN

[GN_]

Вот процедура шифрования:

// Процедура шифрования
procedure TForm5.shifr(tekst, klu4: String);
var
  mas: Array of Char; // хранит массив символов "текста"
  dl_klu4, dl_mas, i, j, k, shag, s4et: SmallInt;

begin

  dl_mas := Length(tekst); // Узнаём длинну текста

  if tekst <> '' then // установка размера массива
    SetLength(mas, dl_mas);

  dl_klu4 := Length(klu4); // Узнаём длину ключа
  shag := 1; s4et := 0; j := 0;


  For i := 0 to dl_mas - 1 do
    mas[i] := tekst[i + 1];  // Заполняем массив символами "Текста"


  For j := 0 to dl_mas - 1 do
  begin

    if s4et > dl_mas then
      Exit;


    For k := 1 to razmer do
    begin

      if mas[j] = bukv[k] then
      begin

        mas[j] := bukv[k + StrToInt(klu4[shag])];
        Break; // Выходим из цикла

      end;

    end;


    shag := shag + 1;
    s4et := s4et + 1;

    if shag > dl_klu4 then
      shag := 1;

  end;

  
  For i := 0 to dl_mas - 1 do
    tekst[i + 1] := mas[i];


  Memo2.Text := tekst;


end;

А в процедуре дешифрование отличие лишь в одном знаке:
mas[j] := bukv[k - StrToInt(klu4[shag])];

[GN_]

Ключ для шифра:
358441489112827