{функция шифрования}
function Cript(s:String; k:char = 'A'):String;
var i:integer;
begin
for i := 1 to Length(s) do
result := result+ Char(ord(s[i]) xor ord(k));
end;
{использование InputQuery}
procedure TForm1.Button1Click(Sender: TObject);
var spas:String;
begin
spas := 'Пароль';
if InputQuery('Пароль','Введите пароль',spas) then
Edit1.Text := Cript(spas); // зашифровываем
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := Cript(Edit1.Text);// расшифровываем
end;
{использование InputBox}
procedure TForm1.Button3Click(Sender: TObject);
var spas:String;
begin
spas := 'Пароль';
spas := InputBox('Пароль','Введите пароль',spas);
Edit1.Text := Cript(spas);// зашифровываем
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.