15-12-2018, 03:16 PM
السلام عليكم كيف حالكم
طلب منكم طريقة تغير pE Header تبع برنامج اخر من برنامجي بالدلفي
مثل البرنامج الاخر عند وضعه في الهيكس يكون mz اريد تغيرها
|
التغير في PE Header من برنامجي
|
|
15-12-2018, 03:16 PM
السلام عليكم كيف حالكم
طلب منكم طريقة تغير pE Header تبع برنامج اخر من برنامجي بالدلفي
مثل البرنامج الاخر عند وضعه في الهيكس يكون mz اريد تغيرها
16-12-2018, 11:31 AM
وعليكم السلام ورحمة الله
عند تغيير MZ لايتعامل النظام Windows مع الملف كملف تنفيذي PE
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
16-12-2018, 11:42 AM
الاستاذ العزيز عبدالعزيز
نعم هذا الذي اريد ان اغيره في ملف برنامج من برنامجي اريد طريقة تغير اول mz في برنامج الاخر
16-12-2018, 11:47 AM
لنقل غيرت MZ الى XL
ثم ماذا ؟ هل تتوقع ان النظام سينفذ البرنامج ؟
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
16-12-2018, 11:51 AM
انا اعلم ان لن يعمل استاذ عبدالعزيز
لكن اريد معرفتها يوجد فايروسات تتلف البرامج بتغير اول محرفين mz وانا اريد معرفة ارجاعها من برنامجي
16-12-2018, 12:39 PM
شيئ على السريع... كود : 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;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
كل من 4 users say قال شكرا ل محمد عبد العزيز على المشاركة المفيدة• Rever7eR, invocker, FouoooT, S.FATEH
16-12-2018, 04:01 PM
عمل رايع منك استاذ عبدالعزيز
ممكن طريقة استخدام هذا الاجراء ؟؟
16-12-2018, 04:11 PM
لاتناديني استاذ
مجرد مثال يبسيط، الاستدعاء باسم الملف بالمسار كامل، مثل كود : ChangeMZ('D:\SOMEDIR\SOMEFILE.exe');
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
16-12-2018, 04:44 PM
قمة تواضع منك اخ عبدالعزيز
شكرا وضحت الفكرة
16-12-2018, 07:45 PM
عند تنفيذ يظهر خطا في صورة التالية ماهو الحل اخ عبدالعزيز
|
|
|