Jump to content
أوفيسنا

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


Recommended Posts

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

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

Link to post
Share on other sites

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

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

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

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

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

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

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

Link to post
Share on other sites

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

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

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 ووضعت الملف فى المسار الصحيح

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

 

Link to post
Share on other sites

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

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

 

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...