التغير في PE Header من برنامجي - نسخة قابلة للطباعة

التغير في PE Header من برنامجي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التغير في PE Header من برنامجي (/showthread.php?tid=9953)

الصفحات: 1 2

التغير في PE Header من برنامجي - FouoooT - 15-12-2018

السلام عليكم كيف حالكم

طلب منكم طريقة تغير pE Header تبع برنامج اخر من برنامجي بالدلفي

مثل البرنامج الاخر عند وضعه في الهيكس يكون mz اريد تغيرها

RE: التغير في PE Header من برنامجي - محمد عبد العزيز - 16-12-2018

وعليكم السلام ورحمة الله
عند تغيير MZ لايتعامل النظام Windows مع الملف كملف تنفيذي PE

RE: التغير في PE Header من برنامجي - FouoooT - 16-12-2018

الاستاذ العزيز عبدالعزيز
نعم هذا الذي اريد ان اغيره في ملف برنامج من برنامجي
اريد طريقة تغير اول mz في برنامج الاخر

RE: التغير في PE Header من برنامجي - محمد عبد العزيز - 16-12-2018

لنقل غيرت MZ الى XL
ثم ماذا ؟ هل تتوقع ان النظام سينفذ البرنامج ؟

RE: التغير في PE Header من برنامجي - FouoooT - 16-12-2018

انا اعلم ان لن يعمل استاذ عبدالعزيز
لكن اريد معرفتها يوجد فايروسات تتلف البرامج بتغير اول محرفين mz
وانا اريد معرفة ارجاعها من برنامجي

RE: التغير في PE Header من برنامجي - محمد عبد العزيز - 16-12-2018

شيئ على السريع...

كود :
Procedure ChangeMZ(filname:pchar);
var
  hFile,dwReadWrite:DWORD;
  EXE  :WORD;
begin
 if filname='' then Exit;
 hFile:=CreateFileA(filname, GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if hFile=INVALID_HANDLE_VALUE then Exit;
 ReadFile(hFile,EXE,2,dwReadWrite,NIL);
 if EXE<>$5A4D then
    begin
      EXE:=$5A4D;
      SetFilePointer(hFile, 0, nil, FILE_BEGIN);
      WriteFile(hFile, EXE,2 , dwReadWrite, nil);
    End;
  CloseHandle(hFile);
end;

RE: التغير في PE Header من برنامجي - FouoooT - 16-12-2018

عمل رايع منك استاذ عبدالعزيز
ممكن طريقة استخدام هذا الاجراء ؟؟

RE: التغير في PE Header من برنامجي - محمد عبد العزيز - 16-12-2018

لاتناديني استاذ
مجرد مثال يبسيط، الاستدعاء باسم الملف بالمسار كامل، مثل

كود :
ChangeMZ('D:\SOMEDIR\SOMEFILE.exe');

RE: التغير في PE Header من برنامجي - FouoooT - 16-12-2018

قمة تواضع منك اخ عبدالعزيز
شكرا وضحت الفكرة

RE: التغير في PE Header من برنامجي - FouoooT - 16-12-2018

عند تنفيذ يظهر خطا في صورة التالية ماهو الحل اخ عبدالعزيز
[صورة: 154498572194231.png]