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

[أكسس وبس 36]

اخوانى اهل الخبرة

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

[أكسس وبس 36]

يعنى مفيش ولا ايه

[أبو عبدالله الحلوانى 717]

للأسف قواعد البيانات أكسس فقيرة من ناحية الحماية 

لكن هناك فكرة تم طرحها هنا بالمنتدي الكريم لحماية الوصول الي قاعدة البيانات سواء الخلفية او الامامية 

من خلال قفلها بكلمة مرور علي شرط أن تكون قاعدة البيانات اصدار أعلي من 2003 بلا شك يعني 2007 فما فوق

لصعوبة كسر كلمة السر الخاصة بها حتي الآن وقد جربت كسر كلمة السر لهذه الصيغ من قواعد البيانات فلم يكن الأمر سهلا مطلقا وكذلك قمت بالبحث عن طرق أو برمجيات لكسر كلمة السر لهذه القواعد فلم أجد الكثير وأقوي هذه البرمجيات التي وجدتها كان مدفوعا وليس مجانيا!!

وأعتقد أن هذا ألمع بارقة أمل لوجود حماية قوية شيئا ما تم منحها للأكسس من صاحبة السعادة ميكروسوفت 😁

وأخيرا هذا رابط الموضوع وبه مجموعة أفكار جيدة جدا من أساتذة كبار جدا تابع الموضوع لتستفيد جدا 😁

تمنياتي بالتوفيق وشكرا علي سعة صدركم 

[أكسس وبس 36]

عملت حماية بفكرة الاخوة فى المنتدى

بزرع ملف فى الكمبيوتر ووضع الكود فى نموذج بدائة التشغيل

If Dir("c:\WINDOWS\system32\csq.386") = "" Then
DoCmd.CancelEvent
DoCmd.Quit
End If

وعملت الوحدة النمطية

Public Sub legal()
Dim Sec As String
Dim s As Integer
DoCmd.Restore
Sec = Dir("c:\Windows\System32\csq.386")
If Len(Sec) = 0 Then
DoCmd.Close
s = MsgBox

DoCmd.Quit
End If
End Sub

شغالة كود على جهازى وعليه ويندز اكس بي ولما نقلتها على لاب على ونيدز7 ووضعت الملف فى المسار الصحيح

تظهر رسالة ومش بيفتح

 

[أكسس وبس 36]

دى الرسالة الى ظهرت لما شغلت البرنامج على جهاز عليه ويندز 7 بس الاوفيس 2007

there was a problem sending the command to the program

[أبو عبدالله الحلوانى 717]

قم بالتعديل بالكود بهذه الطريقة

If len(Dir("c:\WINDOWS\system32\csq.386",vbDirectory) & "") = 0 Then
	DoCmd.Quit
End If

'اما تستخدم ما بالأعلي أو ما بالأسفل

Public Sub legal()
'Dim Sec As String
'Dim s As Integer
'DoCmd.Restore

If len(Dir("c:\WINDOWS\system32\csq.386",vbDirectory) & "") = 0 Then
	DoCmd.Close acForm, Me.Name
End If

End Sub