[nabil]

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

---

بلغه VB.NET

[Sajad]

السلام عليكم

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

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

[nabil]

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

[سعود]

كود :

       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

لم اجرب بعد

[nabil]

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

[سعود]

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

[nabil]

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

---

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

[سعود]

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

[nabil]

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

[سعود]

اضف مربع نص 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")

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

---

كل اللي قلت موجود بالمثال مع شوية تعديل