اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حماية البرنامج بواسطة ملف (المفتاح)


ابوأسد

الردود الموصى بها

السلام عليكم جميعاً اخواني الأعزاء

كما هو واضح من العنوان، فإن لكل منا طريقته الخاصة لحماية برامجه من القرصنة أو العبث.. ومن ضمن تلك الطرق التي أعتقد أنها ستكون من ضمن أقوى الطرق إن شاء الله هي طريقة أسميتها: (ملف المفتاح) الخاصة بي، لا أدري قد يكون أحدا ما قد توصل إليها ويستخدمها مثلي، ولتعم الفائدة، وحتى يتم مناقشتها وتطويرها.. أطرح الفكرة عليكم.. راجياً تفاعلكم وإثرائكم للموضوع.

بعد الإنتهاء من بناء برنامجكم نفذ الخطوات التالية:

1-      عمل كلمة مرور لملف البرنامج مع مراعاة أن تكون معقدة وطويلة، مع ضرورة إضافة حرفي: chr(13)  و chr(10) التي يستحيل إدخالها من الكيبورد، ولكن كيف يمكن إضافة هذين الحرفين؟ يمكن إضافة هذين الحرفين باستخدام الكود التالي:

افتح ملف جديد، واعمل نموذج جديد، وزر جديد، وفي حدث (عند النقر) اكتب هذا الكود:

    Dim DB , pwOld, pwNew, pathDB

    pathDB = "C:\MeSystem.accdb"

    pwOld = ""

    pwNew = Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10)

    Set DB = OpenDatabase(pathDB, True, False, ";pwd=" & pwOld)

    DB.NewPassword pwOld, pwNew

    DB.Close

  وغير ما يلزم تغييره من مسار الملف و كلمة المرور المرغوبة لديك

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

2-      كون ملف جديد (ملف المفتاح) وأنشئ نموذج جديد وفي حدث عند الفتح اكتب كود فتح ملف النظام التالي: 

Dim App As Access.Application, strPath As String

 

Set App = New Access.Application

strPath = Application.CurrentProject.Path & "\ MeSystem.accdb "

With App

    .DoCmd.RunCommand acCmdAppMinimize

    .OpenCurrentDatabase strPath, , Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10)

'    .DoCmd.OpenForm "Form", , , , , acWindowNormal'نموذج البداية

'    .DoCmd.Maximize

'    .Visible = True

End With

 

Set App = Nothing

DoCmd.Quit

 

 

وجعل هذا النموذج نموذج البداية (أي يعمل عند بدء تشغيل ملف المفتاح)، كما بمكنك إضافة كود إخفاء واجهة الاكسس قبل تنفيذ الكود السابق إن أردت أن لا يظهر عند التشغيل.

3-      احمي الوحدات النمطية لملف المفتاح بكلمة مرور.

4-      احفظ ملف المفتاح في نفس مجلد البرنامج بامتداد ".accde  أو .mde" بحسب اصدار الاكسس الذي تعمل عليه.

مرفق لكم مثال مفتوح

ملف المفتاح.rar

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information