Скрыть ini фаил.

[Д'якон]

ох и тема ))) можно перехватывать обращения к файлу в нулевом кольце и блокировать, тем самым сделать его полностью невидимым.

[Роман Радер]

нулевом кольце и блокировать

прикольна а можно ссылочки, чтоб почитать по этому инфу какую-то? я это первый раз такие слова слышу если честно)))

[IVANSour]

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

Сделать скрытым можно так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
FileSetAttr('Путь\.ini',FaHidden);
End;

А возможно ли хранить информацию в каком не-будь теле или в компоненте если можно то подскажи как.

[Google[Bot]]

Ага, пиши в User32.dll =)

[Kotofff]

А зачем тебе вообще скрывать INI-шку ?
В смысле чтобы его содержимое нельзя было редактировать со стороны ? И доступ к нему только из проги ? Так ? Иль чего еще ?

[ZBEP]

Здравствуйте.
Возникла необходимость зашифровки ini.
Для теста))
Вобщем цифры - шифровать удается и дешифровать тоже, а с текстом - не получается, после сохранения в INI там каракули разные и т.д. расшифровка не правильная получается.

В смысле чтобы его содержимое нельзя было редактировать со стороны ? И доступ к нему только из проги ? Так ? Иль чего еще ?

Вот это бы мне подошло бы)))

Зарание спасибо!
П.с.
Шифрую так:

Function Crypt (Text, Key: String; Encode: Boolean): String;
Var
I, KeyLength: integer;
Sign: ShortInt;
Begin
KeyLength:=Length (Key);
If Encode then Sign:=-1 else Sign:=1;
For I:=1 to Length (Text) do
Text[I]:=Chr (ord (Text[I]) +Sign*ord (Key[I mod KeyLength+1]));
Result:=Text;
End;

Ну и:

IniFile.WriteString('Пользователь','Пароль',Crypt (a,'1234', false)); {зашифровать}
IniFile.WriteString('Пользователь','Пароль',Crypt (a,'1234', true));  {разшифровать}

[Kotofff]

Есть модуль DataFile (прикрепил снова).
В pas-файле если посмотришь на функции - сразу увидишь сходство с ini-шками. Но самое главное что шифрование файла встроено.

[ZBEP]

Сори за глупый вопрос, но как его установить в Делфи 2009?
Или что с ним делать?

[Kotofff]

Не надо ничего устанавливать - просто пропиши путь к pas-файлу и укажи в uses
От версии Делфи работа не зависит - я использую его в Делфи 2010

[ZBEP]

Спс, понял)
Ну возникла проблемка..
Вобщем я например сохраняю 3-х значный пароль, он его зашифровывает и сохраняет.
При загрузки этого кода из файла - все нормально (например я сохранял пароль "123", при загрузке все нормально и пользователь может войти под паролем "123", но если я сохраняю 4-х и более значный пароль, то он не сохраняется полностью в ini, а обрезается до 3-х знаков ,т.е. если я сохраняю "1234", то пользователь заходит под паролем "123")


Вот например для проверки, форма с 2-мя эдитами и 1 кнопкой. Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DataFile, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DataFile: TDataFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DataFile:=TDataFile.Create(extractfilepath(paramstr(0))+'\U.ini');
DataFile.WriteString('Тест','1',edit1.text);
Edit2.Text:=DataFile.ReadString('Тест','1','');

end;

end.

При вводе в первый эдит "12345", во 2 эдите отображается "123" вместо "12345".
Еще заметил, что если вводить больше 12 знаков, то все нормально.
Но вот если вводить 4-11 знаков - то работает не правильно...