صلاحيات المستخدمين

[بلال اليامين]

السلام عليكم

لدي برنامج اريد اضافة في برنامج صلاحيات المستخدمين  مفعل و غير مفعل

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

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

الصلاحيات المستخدمين (1).rar

[د.كاف يار]

تفضل هذا المثال

اسم المستخدم : Admin

كلمة المرور : 123

 

مثال الصلاحيات.mdb

تم تعديل فبراير 13, 2021 بواسطه د.كاف يار

[kha9009lid]

36 دقائق مضت, د.كاف يار said:

تفضل هذا المثال

اسم المستخدم : Admin

كلمة المرور : 123

مرحبا استاذنا الفاضل حسين

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

وقد سبق مناقشتة باستفاضة بمشاركة الاستاذ الفاضل @rey360 ومعلمنا الفاضل @jjafferr

اقتباس

 

تحياتي وتقديري

[rey360]

السلام عليكم أردت أن أشارك معكم . يمكنك أيظن تجنب SQL injection عن طريق عمل برمتر وهي كا الاتي

Public Function conect(LOGIN As String, passe As String) As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qr As QueryDef
Dim sq As String
Set db = CurrentDb
sq = "select * from users where User_Name=[Plogin] and User_Password=[Ppasse]"
Set qr = db.CreateQueryDef(vbNullString, sq)
With qr
.Parameters("Plogin") = LOGIN
.Parameters("Ppasse") = passe
.ReturnsRecords = True
Set rs = .OpenRecordset()
End With
If Not rs.EOF Then
 conect = True
Else
 conect = False
End If

End Function

ملاحظ الفنكشن للاستاذ المغربي محمد جهاوي

مثال الصلاحيات.rar

[د.كاف يار]

17 ساعات مضت, kha9009lid said:

مرحبا استاذنا الفاضل حسين

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

وقد سبق مناقشتة باستفاضة بمشاركة الاستاذ الفاضل @rey360 ومعلمنا الفاضل @jjafferr

تحياتي وتقديري

 

صدقت فعلا شفرة غير أمنة

تم التعديل و تفادي هذي المشكلة

 

 

مثال الصلاحيات (1).mdb

تم تعديل فبراير 14, 2021 بواسطه د.كاف يار