[6666]

а как реализовать шифрования/дешифрования файла с паролем методом xor. вот есть функция а как ее привязать к edit для ввода пароля или для кнопки принять пароль незнаю

Код:

function proc_encr(s_source, s_gamma: String): string;
Var
  i, j: Integer;
  s_rez: string;
begin
  s_rez := '';
  i := 1;
  While i <= Length(s_source) do
  begin
    For j := 1 to Length(s_gamma) do
      s_rez := s_rez + chr(ord(s_source[i + j - 1]) xor ord(s_gamma[j]));
    i := i + Length(s_gamma);
  end;
  Result := s_rez;
end;