السلام عليكم انا عملت يوزر وباسورد ولكن محتاح اعمل بعض الشروك للحمايه منها 1- شرط يكون الحرف الاول كبتل
2- انجليزي فقط
3- يتكون من حروف وارقام
4- لايقل طولوله عن 8 حروف فاكثر وشكرا
بلغه VB.NET
السلام عليكم
اخي العزيز حسب ما فهمت سؤالك لا يتلعق بقواعد البيانات؟
ارجو التوضيح ليتم نقل الموضوع الى قسمه الصحيح
شكرا يا صديقي علي اهتمامك انا عمل قاعده البيانات بالفعل بس انا محتاج الشروط اللي تكون في رقم السري عشان يعمل عمليه حفظ بمعني ان الموجود عندي حاليا اي شيء بكتبه بيعتبره كلمه سر حتي لو رقم واحد
كود :
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
لم اجرب بعد
الف الف شكر يااخي استاذن حضرتك في باقي الشروط ولك جزيل الشكر
العفو اخوي
لكن هذا كل المطلوب
التحقق من طول النص ومعرفة عدد الكابيتال والسمول والرموز
الف الف الف شكر يا اخي علي اهتمامك لي بعض الملاحظات الكود الاول 8 خانات زي الفل تمام لكن الكود الثاني مش فهمه ولما وضعته وادخلت ارقام فقط قبل كلمه السر اللي وقفه بس انه اقل من 8 خانات
انا اريد شرط يكون الحرف الاول يكون كابتل
2 لازم يكون كلمه السر حروف وارقام
ان ما سبقني احد بجهز مثال صغير وعساني اقدر.
واللهي يا اخي سعود يكفيني محولت مسعادتي
اضف مربع نص 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")
انت طبق الكود بمثال مستقل ثم بعد ذلك تضيفه لبرنامج الدخول او التسجيل
كل اللي قلت موجود بالمثال مع شوية تعديل