منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] شروط كلمه السر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] شروط كلمه السر (/showthread.php?tid=220)

الصفحات: 1 2

شروط كلمه السر - nabil - 21-09-13

السلام عليكم انا عملت يوزر وباسورد  ولكن محتاح اعمل بعض الشروك للحمايه منها 1- شرط يكون الحرف الاول كبتل
2- انجليزي فقط
3- يتكون من حروف وارقام
4- لايقل طولوله عن 8 حروف فاكثر وشكرا
بلغه VB.NET

RE: شروط كلمه السر - Sajad - 21-09-13

السلام عليكم


اخي العزيز حسب ما فهمت سؤالك لا يتلعق بقواعد البيانات؟


ارجو التوضيح ليتم نقل الموضوع الى قسمه الصحيح


RE: شروط كلمه السر - nabil - 21-09-13

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

RE: شروط كلمه السر - سعود - 21-09-13

كود :
       If TextBox1.TextLength < 8 Then
           MsgBox("اقل خانات 8", MsgBoxStyle.Critical, "")

           Exit Sub
       End If

http://forums.asp.net/t/1476756.aspx

كود :
Dim upper As Integer = 0
Dim lower As Integer = 0
Dim symbol As Integer = 0
Dim str As String = "Hello$"
For [loop] As Integer = 0 To str.Length - 1
    If [Char].IsUpper(str([loop])) Then
        upper += 1
    ElseIf [Char].IsLower(str([loop])) Then
        lower += 1
    ElseIf [Char].IsSymbol(str([loop])) Then
        symbol += 1
    End If
Next
لم اجرب بعد


RE: شروط كلمه السر - nabil - 21-09-13

الف الف شكر يااخي استاذن حضرتك في باقي الشروط ولك جزيل الشكر

RE: شروط كلمه السر - سعود - 21-09-13

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

RE: شروط كلمه السر - nabil - 21-09-13

الف الف الف شكر يا  اخي علي اهتمامك  لي بعض الملاحظات الكود الاول 8 خانات زي الفل تمام لكن الكود الثاني مش فهمه ولما وضعته وادخلت ارقام فقط قبل كلمه السر اللي وقفه بس انه اقل من 8 خانات
انا اريد شرط يكون الحرف الاول يكون كابتل
2 لازم يكون كلمه السر حروف وارقام

RE: شروط كلمه السر - سعود - 21-09-13

ان ما سبقني احد بجهز مثال صغير وعساني اقدر.

RE: شروط كلمه السر - nabil - 21-09-13

واللهي يا اخي سعود يكفيني محولت مسعادتي

RE: شروط كلمه السر - سعود - 21-09-13



اضف مربع نص textbox1

واكتب به خليط نصوص وارقام ورموز
وبحدث النقر لزر الامر اكتب
كود :
       If TextBox1.TextLength < 8 Then
           MsgBox("اقل خانات 8", MsgBoxStyle.Exclamation, "")
           Exit Sub
       End If

       Dim upper As Integer = 0
       Dim lower As Integer = 0
       Dim symbol As Integer = 0
       Dim num As Integer = 0

       Dim str As String = TextBox1.Text  '"Hello$"
       For [loop] As Integer = 0 To str.Length - 1
           If [Char].IsUpper(str([loop])) Then
               upper += 1
           ElseIf [Char].IsLower(str([loop])) Then
               lower += 1
           ElseIf [Char].IsSymbol(str([loop])) Then
               symbol += 1

           ElseIf [Char].IsNumber(str([loop])) Then
               num += 1


           End If
       Next

       MsgBox(upper & " Cap" & vbNewLine & lower & " Low" & vbNewLine & symbol & " sym" & vbNewLine & num & " num")

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