12-03-2017, 06:59 PM
السلام عليكم
احتاج طريقة لكتابة مصفوفة بايتات على ملف تنفيذي حيث عجزت عن عمل تغيير لبعض المعرفات في الملف التنفيذي الهدف مثال الملف التنفيذي الهدف يكون بهذا الشكل
اريد وحدة دلفي او ماشابه للتعديل في الملف التنفيذي في هذين السطرين بحيث يتم ارسال الرانبي هنا
اذا ممكن
والسلام عليكم
احتاج طريقة لكتابة مصفوفة بايتات على ملف تنفيذي حيث عجزت عن عمل تغيير لبعض المعرفات في الملف التنفيذي الهدف مثال الملف التنفيذي الهدف يكون بهذا الشكل
كود :
program ArrayToRun;
type
ByteArray = array of Byte;
const
arrRunPE: array[0..3] of Byte = ($55,$8B,$EC,$81);
test: array[0..4] of Byte = ($4D, $5A, $50, $00, $02);
var
RunPEProc: procedure(Buffer: ByteArray);
begin
RunPEProc := @arrRunPE;
RunPEProc(@test);
end.كود :
arrRunPE: array[0..3] of Byte = ($55,$8B,$EC,$81);
وبايتات الملف هنا
test: array[0..4] of Byte = ($4D, $5A, $50, $00, $02);والسلام عليكم