Как сохранять ключ

[Умагаджи]

Сделал кое как защиту формы ключом. Получилось так

procedure TPasswordDlg.Close(Sender: TObject; var CanClose: Boolean);
var pass:string;
begin
pass:=xortext('password');
if xortext(password.text) = pass then canclose:=true
else application.terminate;
end;

function tpassworddlg.xortext(text:string):string;
var key, longkey : string;
i : integer;
toto: char;
begin
key:='da'; //ключ
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do begin
toto := chr((ord(text[i]) xor ord(longkey[i])));
result := result + toto;
end;
end;

Теперь бы хотелось сделать чтобы если один раз ввели пароль то он сохранялся на компе, чтобы прога запускалась без ввода пароля. Как реализовать сохранение ключа или что надо изменить в коде?

[ArtGrek]

создаи ini фаил например, ток он тоже должен быть зашифрован

[Аватар]

Можно и в реестре прописать, при желании в зашифрованном виде

[Vervolf]

да, реестр - лучший вариант.. туда и юзеры не часто лазиют.

[Stilet]

туда и юзеры не часто лазиют.

Как сказать то...