защита .ini

[beygul]

Здравствуйте! Возник такой вопрос, в проге - не делфи информация о пользователях (имя и пароль) - сохраняется в .ini файл, его можно посмотреть - и легко узнать пароль. ВОПРОС! Как осуществить защиту .ini файла, от посторонних глаз.

Заранее всем мой МОЛОДЁЖНЫЙ РЕСПЕКТ!!!

[andrewpalkin]

Сообщение от beygul

Здравствуйте! Возник такой вопрос, в проге - не делфи информация о пользователях (имя и пароль) - сохраняется в .ini файл, его можно посмотреть - и легко узнать пароль. ВОПРОС! Как осуществить защиту .ini файла, от посторонних глаз.

Заранее всем мой МОЛОДЁЖНЫЙ РЕСПЕКТ!!!

Ты можешь зашифровать пароль и тогда пусть смотрят файл сколько хотят

[beygul]

Вопрос - как? Я не очень знаком с функциями кодировки текста, и обращения к конкретному символу из файла, не могли бы вы мне предоставить простенький пример, который бы продемострировал это?

[psycho-coder]

Ну например так:

uses
  ..., al_md5hash;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  shadow: TStringList;
begin
  shadow := TStringList.Create();
  shadow.LoadFromFile('shadow.ini');
  shadow.NameValueSeparator := '=';
  if (shadow.Values[Edit1.Text] = md5(Edit2.Text)) then
    MessageBox(Handle, 'Пароль введен верно!', '', 0)
  else
    MessageBox(Handle, 'Пароль введен не верно!', '', 0);
  shadow.Free();
end;

Предварительно зашифровав ))

procedure TForm1.Button2Click(Sender: TObject);
var
  shadow: TStringList;
begin
  shadow := TStringList.Create();
  shadow.LoadFromFile('shadow.ini');
  shadow.NameValueSeparator := '=';

  shadow.Values[Edit1.Text] := md5(Edit2.Text);
  shadow.SaveToFile('shadow.ini');

  shadow.Free();
end;