احتاج لكود لعملية الباتش

السلام عليكم

اخي العزيز ممكن توضح قصدك :) ( يبدو ان الموضوع حلو كثيــــر ) .

هل تقصد اضافة كودك الخاص الى الملف التنفيذي ( عمل تغيير في PE File )ام .... ؟

يعني هل تريد استبدال كود محل كود ام تريد اضافة section ام ..؟

ان كان لديك مثال على سؤالك بلغات اخرى ( أظن انك تبرمج بعدة لغات , أليس كذلك ؟;) ) لو ممكن تضعها هنا لنستفيد منها .

شكرا لك ....وجدت المطلوب :)

تحياتي

السلام عليكم

اخي العزيز

هل بالامكان ان تضع هنا ما وجدته لنستفيد منه ؟ :)

السلام عليكم

مشكور اخي خالد

عندي سؤال بسيط ( أتمنى اني ما أزعجتك باسئلتي :o )

هل يمكن القيام بالعملية التي ذكرتها في winxp ؟ سمعت انها لا تسمح بذلك اهذا صحيح ؟

ما أقصده تغيير PE file

مثلا PE encryptor ,Pe AddSection ....

انا ما فهمت سؤالك...لكن اذا كنت تعني البرامج ذاتها والتي تعمل تحت نظام الـ winXP

فأعتقد يمكننا فعل ذلك .

تحياتي لك

السلام عليكم

يبدو اني متأخر .. لكن لا مشكله :)

هذه داله بسيطه جدا لعملية الباتش

function patch(FName:string; Offset:LongInt; A:Byte):boolean;
var
   F : file of byte;
begin
     AssignFile(F, FName);
     Result := false;
     {$I-}
     ReSet(F);
     {$I+}
     if IOResult=0 then begin
        Seek(F, Offset-1);
        Write(F, A);
	  CloseFile(F);	
        Result := true
     end
end;

أخ tmaaa اذا كان لديك تجارب في اضافة أو تعديل section في ملف PE يا ليت لو تشاركنا بما لديك :)

تحياتي