(محتاجه اكواد فورم نموذج الدخول (مرفق ملفlogin Form

[safaa salem5]

بحيث يتضمن الشروط الاتيه

فى حاله تكرار ادخال الاسم او الباسورد اكتر من 6 مرات خطأ تخرج رساله انتهت فرصتك للدخول

 فى حاله كتابه  الاسم والباسورد بطريقه صحيحه تظهر صوره قفل مفتوح بدلا من المغلق

 

LOG IN.accdb

[M.Abd Allah]

منذ ساعه, safaa salem5 said:

بحيث يتضمن الشروط الاتيه

فى حاله تكرار ادخال الاسم او الباسورد اكتر من 6 مرات خطأ تخرج رساله انتهت فرصتك للدخول

 فى حاله كتابه  الاسم والباسورد بطريقه صحيحه تظهر صوره قفل مفتوح بدلا من المغلق

 

LOG IN.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

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

اتمني يكون ده المطلوب 

 

LOG IN - edited.accdb

[شايب]

7 ساعات مضت, M.Abd Allah said:

اتمني يكون ده المطلوب 

احونا الفاضل شايب لا ينصح باستخدام الملف لوجود 3 ثغرات تسمح بتسجيل الدخول

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

الاخ شايب

 

 

[safaa salem5]

طيب هل فى طريقه افضل لسد الثغرات @شايب

[safaa salem5]

ممكن تطبيق الكود دا على الملف 

 

On Error Resume Next
Dim LogUser As New CUser
    If trycount > 3 Then
        MsgBox " من حُسن إسلام المرء تركه ما لا يعنيه", vbOKOnly + vbMsgBoxRight + vbInformation, "ÊÍÐíÑ !"
        MsgBox " سيتم إغلاق البرنامج الآن ،،، يرجى مراجعة المبرمج  ", vbOKOnly + vbMsgBoxRight + vbInformation, "ÊÍÐíÑ !"
        DoCmd.Quit
    ElseIf IsNull(Me.user) Then
        MsgBox ("  فضلاً يجب أن تقوم بإدخال اسم المستخدم ")
        Me.user.SetFocus
    ElseIf IsNull(Me.pass) Then
        MsgBox (" فضلاً يجب أن تقوم بإدخال كلمة السر ")
        Me.pass.SetFocus
    ElseIf Len(Trim(Me.pass)) > 20 Then
        MsgBox (" يجب ألا تتجاوز كلمة السر عشرين حرف أو رقم")
        Me.pass.SetFocus
'-------    للدخول لنموذج تفعيل والغاء الشيفت واخفاء واظهار الجداول   ---------
            ElseIf [user] = "admin" And [pass] = "2015" Then
            DoCmd.Close
            DoCmd.OpenForm "MSysEdit"
            ElseIf [user] = "superadmin" And [pass] = "2015" Then
            DoCmd.Close
            DoCmd.OpenForm "Users Ability", acNormal
'------- ------------- ------        ----------------------------------------------------    ---------
Else
        LogUser.UserName = Me.user
        LogUser.pass = Me.pass
        If LogUser.Valid Then
            Set MyUser = LogUser
            DoCmd.Close
            DoCmd.OpenForm "F  الرئيسى"
        Else
            MsgBox " اسم المستخدم أو كلمة السر غير صحيحة ،،، يرجى إعادة المحاولة ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير !"
            trycount = trycount + 1
        End If
    End If

End Sub

[شايب]

39 دقائق مضت, safaa salem5 said:

طيب هل فى طريقه افضل لسد الثغرات

سؤال بسيط ولكن الاجابة ليست بتلك السهولة

في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع

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

ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان

الشايب

[safaa salem5]

1 minute ago, شايب said:

سؤال بسيط ولكن الاجابة ليست بتلك السهولة

في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع

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

ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان

الشايب

طيب ممكن لينك الموضوع لو سمحت

[M.Abd Allah]

47 دقائق مضت, شايب said:

سؤال بسيط ولكن الاجابة ليست بتلك السهولة

في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع

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

ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان

الشايب

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

احسنت استاذنا 

يوجد فعلا الكثير. من الطرق

وانا افضل فيها الطرق المعقده التي تعتمد علي إستخدام تاريخ أول تشغيل - أو رقم الجهاز - الماك - مع التدعيم بإخفاء شاشات الاكسس وعمل قاعدتين اماميه وخلفيه

وما الي ذلك ولكن أردت تسهيل الموضوع لعدم تعقيدها بالنسبه للسائل حتي يتثى لها تكمله كل التصميم دون الخوض فى هذه المعركه من البدايه

 اخر حاجه بنتهي من عملها هي نموذج الدخول والخروج واعتماد الصلاحيات طبقا لطبيعه العمل أو تعقيده

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