الحماية بطريقة زرع ملف .

[التقني]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،

هذه طريقة عمل حماية من نوع زرع ملف داخل الجهاز

ففي كل مرة يتم فتح البرنامج يتم التاكد من وجود الملف المزروع

فإن لم يجده ستظهر واجهة تطالب بالترخيص وهي عبارة عن اسم المستخدم وكلمة السر .

ملاحظة مهمة : الاكواد جميعها من صنع الأخت زهرة جزاها الله خيرا

لكن مع بعض التعديل وهو ما يسمونه (بتصرف) :(

الفكرة العامة ..

* عند بدء تشغيل البرنامج سيتم التأكد من وجود الملف (officena.dll) داخل القرص C

* عند عدم وجوده سيتم تحويلك الى واجهة المطالبة برقم الرخصة وهي اسم المستخدم وكلمة السر .

* بعد أن يتم ادخال اسم المستخدم وكلمة السر بنجاح سيتم زرع الملف .

* في المرة القادمة وعند تشغيل البرنامج لن يتم المطالبة برقم الرخصة .

اليكم أخواني هذه الطريقة :

1- أنشئ نموذج باسم (Chek_It) وضع فيه الكود التالي في حدث عند الفتح :

Private Sub Form_Open(Cancel As Integer)
On Error GoTo ERROR_SUB
Open "c:\" & "officena.dll" For Input As #1
Close #1
ERROR_SUB:
If Err.Number = 53 Then
MsgBox "أنت تعمل على نسخة غير مرخصة "
Close #1
DoCmd.Close
DoCmd.OpenForm "get_file"
End If
End Sub

2- أنشئ نموذج آخر بإسم (Get_File) 3- أنشئ مربعي نص باسم UN و PW وزر أمر CHkit. 4- ضع الكود التالي في حدث عند النقر للزر CHkit:

Private Sub CHkit _Click()
If UN.Value = "www" And PW.Value = "1234" Then
Open "c:\officena.dll" For Binary Access Write As #1
Close #1
MsgBox "اسم المستخدم وكلمة السر صحيحة", vbOKOnly, "نجحنا"
DoCmd.Quit acQuitSaveAll
Else
MsgBox "اسم المستخدم أو كلمة غيرصحيحة"
End If
End Sub

ملاحظات :

1- يمكن تغيير مسار زرع الملف الى مكان داخل مجلد مخفي مثلا ( لم أجرب هذه الطريقة ) .

2- جرب زرع أكثر من ملف وفي أكثر من مكان وذلك لزوم تقوية الحماية ( أيضا لم أجربها) .

3- جرب حذف الملف المزروع وأعد تشغيل البرنامج ستعود واجهة المطالبة برقم الرخصة بالظهور .

وفي المرفقات مثال على ذلك

ProtectionByFile.rar

تم تعديل أبريل 7, 2006 بواسطه التقني

[morsy]

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

[التقني]

السلام عليكم ورحمة الله

بالفعل هذا ما قامت به الاخت زهرة في منتدى الفرق العربي للبرمجة حينما وضعت طريقة الحماية برقم الهارديسك ، ومن ضمنها طريقة زرع الملف .

فالطريقة التي شرحتها الأخت هي (وأرجو ان أكون مصيبا فيما فهمت من شرحها ) ...

1- من خلال كود معين يتم احضار رقم الهاردوير.

2- يتم ادخال رقم الهاردويرفي عملية حسابية ليظهر للمشتري رقم معين ومقروء أي ليس به رموز وحروف .

3- في نفس الوقت يتم مطالبة المشتري برقم الرخصة (التسجيل النهائي) وذلك بالاتصال بالمبرمج .

4- بعد الاتصال يطلب المبرمج الرقم الذي ظهر له ويدخله بعملية حسابية بسيط (يحفظها ظهرا عن قلب ) تكون نتيجتها رقم الرخصة وتعطى للمشتري .

5- يتم ادخال رقم الرخصة ويحفظ ضمن البرنامج .

6- عند تشغيل البرنامج لاحقا لن يتم المطالبة برقم الرخصة وسيصبح البرنامج مرخص وشرعي :)

ملاحظة ...

المشتري : هو الذي بحوزته البرنامج .

المبرمج : هو الذي قام بتصميم وبرمجة البرنامج .

الهاردوير: وهو إما أن يكون الهارديسك أو المذربورد أو المعالج .

[منذر عساج]

الأخ التقني

جزاك الله كل خير

وجزى الله الاخت زهرة كل خير

أخي جربت تغيير المسار الى مجلد مخفي أو حتى غير مخفي داخل محرك الاقراص c فلم يتعرف عليه في كلا الحالتين وضل كل مرة يطالبني بكلمة السر

في شرحك الاخير نقلاً عن الاخت الكريمة زهرة ياريت لو وضعت مثال مرفق

وكيف أجعل كلمة السر عبارة عن ( ********* ) نجوم

وأخيراً جزاك الله خير على هذا المثال الرائع

أخوك / منذر عساج

تم تعديل أبريل 8, 2006 بواسطه منذر عساج

[خالد عبد المنعم]

فى النموذج ادخل تصميم ثم كليك يمين ثم فى قناع الادخال اكتب password

تم تعديل أبريل 8, 2006 بواسطه admiral

[منذر عساج]

الأخ admiral شكراً جزيلاً لك

بخصوص ما ذكرته سابقاً البرنامج يعمل بشكل صحيح حتى في حالة ان المسار مجلد مخفي

أخطأت سابقاً في تغيير مسار أحد النماذج ولم أقم بتغيير المسار الآخر

شكراً جزيلاً لكل من ساعد في هذا المثال الرائع

وجزى الله الجميع خير الجزاء

[morsy]

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

[التقني]

للأمانة العلمية

الموضوع مدرج في منتدى الفريق العربي للبرمجة :

http://www.arabteam2000-forum.com/index.php?showtopic=56706

[أميرالمحبة]

ألف شكر على المشاركة الرائعة

[Alkebsi]

طيب اساتذي الكرام عملت كل الخطوات ونجحت بس باقي شيئ انه بتظهر رسالة في حالة التطابق ويفتح الكود مباشرة مما يسبب بمعرفة مسار الملف 

كيف الحل افيدونا احسن الله إليكم

[SEMO.Pa3x]

لماذا اخترت المسار C لنسخ الملف؟؟

هذا المسار يكون محمي ويجب استخدام صلاحيات مسؤول لنسخ ملف الى القرص C

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

 

حسنين