Шифр Гронсфельда Делфи

Шифр Гронсфельда – это классический метод шифрования, который был создан в начале 20 века при использовании типичной телеграфной аппаратуры. В шифре Гронсфельда используется ключевое слово и таблица из цифр, которые соответствуют каждой букве алфавита. Ключевое слово должно быть длиннее, чем сообщение, которое необходимо зашифровать.

Вот пример реализации шифра Гронсфельда на Delphi:

function EncryptGronsfeld(Text: string; Key: string): string;
var
  Code: string;
  iText, iKey, i: Integer;
begin
  Code := '';
  iKey := 1;
  for iText := 1 to Length(Text) do
  begin
    i := (Ord(Text[iText]) - 65 + StrToInt(Key[iKey])) mod 26;
    if i < 0 then i := 26 + i;
    Code := Code + Chr(i + 65);
    Inc(iKey);
    if iKey > Length(Key) then
      iKey := 1;
  end;
  Result := Code;
end;

Функция EncryptGronsfeld принимает в качестве параметров текст, который необходимо зашифровать, и ключевое слово. Она возвращает зашифрованный текст с помощью шифра Гронсфельда.