safaa salem5 قام بنشر يونيو 5 مشاركة قام بنشر يونيو 5 بحيث يتضمن الشروط الاتيه فى حاله تكرار ادخال الاسم او الباسورد اكتر من 6 مرات خطأ تخرج رساله انتهت فرصتك للدخول فى حاله كتابه الاسم والباسورد بطريقه صحيحه تظهر صوره قفل مفتوح بدلا من المغلق LOG IN.accdb رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 5 مشاركة قام بنشر يونيو 5 منذ ساعه, safaa salem5 said: بحيث يتضمن الشروط الاتيه فى حاله تكرار ادخال الاسم او الباسورد اكتر من 6 مرات خطأ تخرج رساله انتهت فرصتك للدخول فى حاله كتابه الاسم والباسورد بطريقه صحيحه تظهر صوره قفل مفتوح بدلا من المغلق LOG IN.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads السلام عليكم ورحمه الله وبركاته اتمني يكون ده المطلوب LOG IN - edited.accdb رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يونيو 6 مشاركة قام بنشر يونيو 6 7 ساعات مضت, M.Abd Allah said: اتمني يكون ده المطلوب احونا الفاضل شايب لا ينصح باستخدام الملف لوجود 3 ثغرات تسمح بتسجيل الدخول احداهم باستخدام اسلوب حقن النصوص وهي ثغرة خطيرة لا يقتصر دورها على نجاوز كلمة المرور وانما تتيح ارسال اوامر تمكن من تخريب قاعدة البيانات الاخ شايب رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 6 الكاتب مشاركة قام بنشر يونيو 6 طيب هل فى طريقه افضل لسد الثغرات @شايب رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 6 الكاتب مشاركة قام بنشر يونيو 6 ممكن تطبيق الكود دا على الملف 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 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يونيو 6 مشاركة قام بنشر يونيو 6 39 دقائق مضت, safaa salem5 said: طيب هل فى طريقه افضل لسد الثغرات سؤال بسيط ولكن الاجابة ليست بتلك السهولة في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع الاجابة نعم ممكن معالجة ثغرة الحقن وسبق ان تمت مناقشة الامر مع الاخ جعفر وقد قدم وقتها حل حاز على رضى السائل !! وهذا المهم في النهاية ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان الشايب 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 6 الكاتب مشاركة قام بنشر يونيو 6 1 minute ago, شايب said: سؤال بسيط ولكن الاجابة ليست بتلك السهولة في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع الاجابة نعم ممكن معالجة ثغرة الحقن وسبق ان تمت مناقشة الامر مع الاخ جعفر وقد قدم وقتها حل حاز على رضى السائل !! وهذا المهم في النهاية ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان الشايب طيب ممكن لينك الموضوع لو سمحت رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 6 مشاركة قام بنشر يونيو 6 47 دقائق مضت, شايب said: سؤال بسيط ولكن الاجابة ليست بتلك السهولة في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع الاجابة نعم ممكن معالجة ثغرة الحقن وسبق ان تمت مناقشة الامر مع الاخ جعفر وقد قدم وقتها حل حاز على رضى السائل !! وهذا المهم في النهاية ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان الشايب السلام عليكم ورحمه الله وبركاته احسنت استاذنا يوجد فعلا الكثير. من الطرق وانا افضل فيها الطرق المعقده التي تعتمد علي إستخدام تاريخ أول تشغيل - أو رقم الجهاز - الماك - مع التدعيم بإخفاء شاشات الاكسس وعمل قاعدتين اماميه وخلفيه وما الي ذلك ولكن أردت تسهيل الموضوع لعدم تعقيدها بالنسبه للسائل حتي يتثى لها تكمله كل التصميم دون الخوض فى هذه المعركه من البدايه اخر حاجه بنتهي من عملها هي نموذج الدخول والخروج واعتماد الصلاحيات طبقا لطبيعه العمل أو تعقيده ونصيحتي للسائله أن تبحث فى المواضيع المتعلقه بتأمين قاعده البيانات فهناك الكثير منها علي المنتدي للكثير من المبدعين امثال الاساطير ابو جودي والاستاذ جعفر واستاذنا شايب - الجراح موسى - البروف فادي والاستاذ المبجل خليفه ولا أريد أن انسي أحد فالكل عباقره وانا مجرد هاوي بتعلم منكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان