تسجيل وقت محاولة الدخول بكلمة سر خاطئة

[abo3aesha_2014]

عندى قاعدة بيانات بها نموذج يفتح من خلال نموذج آخر يحتوي على اسم مستخدم وكلمة سر إذا تم إدخالهم بشكل صحيح

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

ويكون ذلك في جدول منفصل ؟؟

تصيد المتلاعب.rar

[Shivan Rekany]

في 12/10/2017 at 09:20, abo3aesha_2014 said:

عندى قاعدة بيانات بها نموذج يفتح من خلال نموذج آخر يحتوي على اسم مستخدم وكلمة سر إذا تم إدخالهم بشكل صحيح

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

ويكون ذلك في جدول منفصل ؟؟

تصيد المتلاعب.rar

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

واستخدمت هذا الكود
 

Private Sub commond5_Click()
    Dim X
        If IsNull(Text0) Or IsNull(Text2) Then
                MsgBox "احد الحقول فارغ"
            Exit Sub
            Else
                X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]")
        End If
    If Not IsNull(X) Then
            DoCmd.Close
            DoCmd.OpenForm "namozag1"
        Else
            MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"
            DoCmd.SetWarnings False
            DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _
                                                                             "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;")
            DoCmd.SetWarnings True
            DoCmd.CancelEvent
    End If
End Sub

 

تصيد المتلاعب.rar

[abo3aesha_2014]

5 ساعات مضت, Shivan Rekany said:

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

واستخدمت هذا الكود
 

Private Sub commond5_Click()
    Dim X
        If IsNull(Text0) Or IsNull(Text2) Then
                MsgBox "احد الحقول فارغ"
            Exit Sub
            Else
                X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]")
        End If
    If Not IsNull(X) Then
            DoCmd.Close
            DoCmd.OpenForm "namozag1"
        Else
            MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"
            DoCmd.SetWarnings False
            DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _
                                                                             "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;")
            DoCmd.SetWarnings True
            DoCmd.CancelEvent
    End If
End Sub

 

تصيد المتلاعب.rar

زادك الله علما وفهما أستاذنا الفاضل 

[abo3aesha_2014]

بسم الله 

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

والمطلوب الذى لا أستيطع عمله هو :

أريد هذا النموذج يفتح تلقائيا عند دخولي إلى نموذج اسم المستخدم وكلمة السر (إذا كان جدول تسجيل المحاولات يحتوي على بيانات)

فيكيف يكون ذلك ؟؟

تصيد المتلاعب-2.rar

[abo3aesha_2014]

بفضل الله ثم بمعاونة أحد رواد المنتدي الرائع وهو الأستاذ @مرشدعلي تم التوصل للحل

تصيد المتلاعب-3.rar

[ابو ياسين المشولي]

1 ساعه مضت, abo3aesha_2014 said:

بفضل الله ثم بمعاونة أحد رواد المنتدي الرائع وهو الأستاذ @مرشدعلي تم التوصل للحل

تصيد المتلاعب-3.rar

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

تصيد المتلاعب-3.rar

[abo3aesha_2014]

16 ساعات مضت, مرشدعلي said:

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

تصيد المتلاعب-3.rar

جميل جدا

لكن أري أن يكون نموذج وبه زر لتفريغ الجدول (كما فعلته أنا) كي لا تظهر الرسالة مع كل فتح للنموذج

[ابو ياسين المشولي]

6 دقائق مضت, abo3aesha_2014 said:

جميل جدا

لكن أري أن يكون نموذج وبه زر لتفريغ الجدول (كما فعلته أنا) كي لا تظهر الرسالة مع كل فتح للنموذج

تقدر تعمل الكود في التقرير

في حدث عند الاغلاق

If MsgBox("هل تريد حذف البيانات  ¿", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TblMihawlatLogIn"
MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه"
'Me.Refresh
Else
DoCmd.CancelEvent
End If
 

[abo3aesha_2014]

في 12/22/2017 at 14:31, مرشدعلي said:

تقدر تعمل الكود في التقرير

في حدث عند الاغلاق

If MsgBox("هل تريد حذف البيانات  ¿", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TblMihawlatLogIn"
MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه"
'Me.Refresh
Else
DoCmd.CancelEvent
End If
 

ممتاز جدا

كل يوم بتعلم شئ جديد

تعرف أيضا 

رأيت نقل الكود الذى يفتح النموذج أو التقرير الذى يحتوي على محاولات الدخول الخاطئة فجعلته عند فتح النموذج المؤمن

أى لن تظهر محاولت التلاعب إلا بعد إخال اسم المستخدم وكلمة السر الصحيحين

حتى لا يكون هناك ثغرة تسمح للمتلاعب بمسح محاولات تلاعبه

تصيد المتلاعب-4.rar

[ابو ياسين المشولي]

وانا كمان اضفت لك حاجه

حاول تدخل 3 مرات بالخطاء وشوف النتيجه

تصيد المتلاعب-4.rar

[النجاشي]

3 دقائق مضت, مرشدعلي said:

وانا كمان اضفت لك حاجه

حاول تدخل 3 مرات بالخطاء وشوف النتيجه

تصيد المتلاعب-4.rar

جزاك الله خير يا ابن العم ما شاء الله عليك ربنا يزيدك علما

[abo3aesha_2014]

10 ساعات مضت, مرشدعلي said:

وانا كمان اضفت لك حاجه

حاول تدخل 3 مرات بالخطاء وشوف النتيجه

تصيد المتلاعب-4.rar

فتح الله لك يا أستاذنا

تم تعديل ديسمبر 23, 2017 بواسطه abo3aesha_2014
خطأ في الكتابة

[ابو ياسين المشولي]

2 دقائق مضت, abo3aesha_2014 said:

الفتح له لك يا أستاذنا

ههههههه

بصراحه مافهمت قصدك

[abo3aesha_2014]

10 ساعات مضت, مرشدعلي said:

ههههههه

بصراحه مافهمت قصدك

انظر التعديل

خطأ إملائي