كيف أمنع برنامج من التنفيد ؟؟

[TF6M]

السلام عليكم أنا أبحث على شيئين من خلال طرحي للموضوع ؟ :

1 - عندما أضيف برنامجي لقائمة المنسدلة (popupMenu) و أعمل "إفتح بواسطة" كيف يأخد مسار الملف الدي وقع عليه الإختيار تلقائيا عندما يفتح ؟؟

2- و في نفس المجال على ما أعتقد كيف أمنع برنامج ما من خاصية "إفتح بواسطة" يعني متلا أحمي برامجي من الفتح بواسطة برامج التنقيح ؟؟

كل هدا ممكن يكون السر في Hook و خصائصة أو رسائل النظام ؟؟ يعني لو كان هناك شرح و لو بسيط حول الأمر

و جازاكم الله خيرا.

[محمد عبد العزيز]

1- استخدم Paramstr
راجع : كيف ممكن أمرر مسار ملف إلى برنامج الدلفي؟
http://www.delphi4arab.net/forum/showthread.php?tid=719
او ايضا : كيف أستطيع أن أصل إلى المسار الذي يوجد فيه البرنامج
http://www.delphi4arab.net/forum/showthread.php?tid=809

2- انت وشطارتك، وهذا يسمى Anti-xxx
حيث xxx هو برنامج/اداة تنقيح او هندسة عكسية
راجع: Anti Reverse Engineering Uncovered By Nicolas Brulez
http://www.at4re.com/f/showthread.php?tid=2158
وايضا: Windows Anti-Debug Reference : Anti-debugging and anti-tracing techniques
http://www.at4re.com/f/showthread.php?tid=1605

والسلام عليكم

[TF6M]

السلام عليكم

أولا بارك الله فيك يا أخ DeltaAziz على الإفادة و جازاك الله كل خير

فقط ممكن سؤال تاني هل من الممكن تجاوز هده العملية قصدي Anti Reverse Engineering
+ ممكن تدعيمها بتعليمات التحقق من بنية البرنامج نفسه (Stream) .

[TF6M]

ممكن سؤال أخر كنت أستعمل paramstr(0) و لم أكن أعرف معنى 0 لدا و على حسب المتال لكل رقم وظيفة ممكن

تعطيني بعض القيم الاخرى ؟؟ و حالات إستعمالها؟؟

[محمد عبد العزيز]

نعم
كل شيئ ممكن
لذلك قلت انت وشطارتك
مسالة الحماية مثل لعبة بين القط والفار
صاحب النفس الطويل ينتصر (الى ان ياخذ المنهزم أنفاسه وتبدا جولة اخرى)

Paramstr = Parameter String

وهو عبارة عن نصوص
اول عنصر

PHP كود :

ParamStr(0) 


هو اسم البرنامج بما فيه المسار كامل
العناصر الباقية هي ما يمرر للبرنامج (خيارات او ملفات او...)
ان مررت ملف لبرنامجك فاسم الملف + مساره يكون في العنصر الثاني اي

PHP كود :

ParamStr(1) 


[TF6M]

لكني جربت الحل و لم يعمل ؟؟؟

[محمد عبد العزيز]

جربت الحل و لم يعمل ! وماذا تريد ان اجيبك ؟
لم تذكر اي تفاصيل ماذا فعلت او كيف فعلته
اقل شيئ ارفق محاولتك او اظهر الكود الذي كتبته حتى يمكن وضع اليد على الخطأ

[TF6M]

كود :

procedure TForm1.FormCreate(Sender: TObject); begin if ParamStr(1) <> '' then Edit1.Text := ParamStr(1); end;

وو ضعت مسار الملف التنفيدي في الريجيستري (مكان خاصية إظافة رز للمنسدلة للمجلدات؟)

لأني عامل برنامج خوصصة الملفات !

[محمد عبد العزيز]

الكود سليم
يبدو ان الخطا بما كتبته في الرجيستري
متاكد انك لم تضع %1
ما ذا كتبت بالضبط في الرجيستري ؟

[TF6M]

هدا هوا ملف الإظافة (لم أقم بالعملية برمجيا فقط للتجريب؟؟)