تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شروط كلمه السر
#11
اشكرك اخي لكن لم يعطيني المطلوب حيث اني ادخل ارقام من 12345678 وقبل مني هذا الباسورد
في حين اللي انا محتاجه يكون مثلا Nabil2008 ولو nabil2008 يرفض هذا الباسورد ولو كنبت nabilsaleh يرفضه ايضا ولو كتبت 1234356789 يرفض الارقام فقط
اتمني يا اخي اني اكون قدرت اشرح مشكلتي بشكل واضح
الرد }}}
تم الشكر بواسطة:
#12
المطلوب واضح لكن اللي انا كتبته ليس كامل لكن يحتوي المطلوب .. طيب اخوي انتظرني...دقيقة وباذن الله اجهز الكود.
الرد }}}
تم الشكر بواسطة:
#13
شكرا سعودي لكن المشكله زي ماهي بكتب ارقم فقط وبيقبل مني الباسورد
الرد }}}
تم الشكر بواسطة:
#14
كود :
       If TextBox1.TextLength < 8 Then
           MsgBox("اقل خانات 8", MsgBoxStyle.Exclamation, "")
           Exit Sub
       End If
       Dim all As New List(Of String)
       For Each t In TextBox1.Text
           all.Add(t)
       Next


       If Char.IsUpper(all.Item(0)) = False Then
           MsgBox("الحرف الاول لابد ان يكون كابيتال")
           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

       If upper < 3 Or lower < 3 Or symbol < 3 Or num < 3 Then
           MsgBox("يجب ان تكتب خليطا من نصوص وارقام ورموز لا يقل عن 3 خانات لكل نوع" &
                  vbNewLine &
                  upper & " cap" & vbNewLine &
                  lower & " low" & vbNewLine &
                  symbol & " sym" & vbNewLine &
                  num & " num")

           Exit Sub
       Else
           MsgBox("ممتاز الان كلمة المرور قوية", MsgBoxStyle.Information, "")

       End If




اكتب هذا الكود بحدث النقر لزر الامر وامسح السابق

وش صار مع الكود؟ ضبط او لا.
الرد }}}
تم الشكر بواسطة:
#15
الف الف الف شكر يا سعودي
الرد }}}
تم الشكر بواسطة:
#16
العفو .. يعني تمامSmile
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم