أي الطرق أفضل لتخزين معلومات الحماية

[Mr.DOS]

سلام عليكم

بالمناسبة ، ما العيب في حفظ المعلومات (أقصد معلومات الحماية)  في ملف ثنائي Binary File  أقوم بحفظه في مجلد System32  ؟

عن نفسي لم اجرب binary file 
لكن يبدو من السهل التعرف عليه وقراءته بعد مشاهدة بعض الامثلة التي تتكلم عن  binary file to string
بعض الامثلة  تستطيع من خلاله القراءة ... الخ  يكفي معرفة اسم الملف ومكان تواجده على القرص

كود :

procedure TForm1.Button1Click(Sender : TObject); var StStream: TStringStream; FStream: TFileStream; s: string; begin FStream := TFileStream.Create('d:\test.exe', fmOpenRead); StStream := TStringStream.Create(''); try StStream.CopyFrom(FStream, FStream.Size); s := StStream.DataString; if Pos('this', s) > 0 then ShowMessage('Found'); finally StStream.Free; FStream.Free; end; end;

مثال 2

كود :

function File2String(FileName: string): string; var MyStream: TFileStream; MyString: string; begin MyStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try MyStream.Position := 0; SetLength(MyString, MyStream.Size); MyStream.ReadBuffer(Pointer(MyString)^, MyStream.Size); finally MyStream.Free; end; Result := MyString; end;

مثال 3

كود :

var f : file; s : string; begin AssignFile(f, 'D:\cpuspeed.txt'); FileMode := fmOpenRead; reset(f, 1); SetLength(s, FileSize(f)); BlockRead(f, s[1], length(s)); CloseFile(f); ShowMessage(s); end;