[تمرين] حماية ذاتية : البرنامج معطوب، مصاب بفيروس او تم العبث به

[sandokhane]

وهذه محاولة أخرى بسيطة (للتنويع)...باستعمال وحدة md5 من موقع torry's delphi pages
حفظ قيمة الهاش يتم في قاعدة السجلات..

-- حساب الهاش :

كود :

procedure TForm1.Button1Click(Sender: TObject); var MyStream: TMemoryStream; begin MyStream := TMemoryStream.Create; Try MyStream.LoadFromFile(Application.ExeName); Edit1.Text:=MD5DigestToStr(MD5Stream(mystream)); Finally MyStream.Free end; end;

-- حفظ الهاش في قاعدة السجلات.

كود :

procedure TForm1.Button2Click(Sender: TObject); var registre:TRegistry; begin Registre:=Tregistry.Create; Registre.RootKey:=HKEY_CURRENT_USER; Try Registre.OpenKey('Software\Delphi4Arab',true); Registre.WriteString('MyMd5',Edit1.Text); Label1.Caption:='HKEY_CURRENT_USER\SOFTWARE\DELPHI4ARAB'; Finally Registre.Free; end; end;

-- قراءة الهاش من قاعدة السجلات :

كود :

procedure TForm1.FormCreate(Sender: TObject); var registre:TRegistry; // MyStream: TMemoryStream; begin Registre:=Tregistry.Create; Registre.RootKey:=HKEY_CURRENT_USER; Try Registre.OpenKey('Software\Delphi4Arab',true); Label1.caption:=Registre.ReadString('MyMd5'); Finally Registre.Free; end; Button1Click(Sender); if Label1.Caption <> Edit1.Text then ShowMessage('MD5 Hash modified') else Form1.Caption:=Form1.Caption+' -[Md5 Hash OK]'; end;

كل شى مع المرفقات..