Помощь в разборе кода (шифрование)

[Poranolik]

Помогите разобрать метод шифрования он же цезаря,но изменённый(не понимаю как происходит шифрование и дешифрование( сложение текста и в базе выдаёт лишь иероглифы))

unit CodingByKey;


interface


  function Encode(Text, Key: string): string;

  function Decode(Text, Key: string): string;




procedure Code(var text: string; password: string;
  decode: boolean);

var
  i, 
  PasswordLength: integer;
  sign: shortint;

begin

  PasswordLength := length(password);
  if PasswordLength = 0 then Exit;
  if decode
    then sign := -1
    else sign := 1;

  for i := 1 to Length(text) do
    
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));

end;


begin

  code(Text, Key, false);

  Result:= Text;

end;

begin

  code(Text, Key, true);
   Result:= Text;
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор