منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم (/showthread.php?tid=16358)



صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم - ali ahmed 1997 - 05-07-16

                           كيف اقوم بصنع قائمة احتمالات من احرف وارقام و رموز يدخلها المستخدم تماما كـ (الباسورد ليست باداة crunch) 
                                                                  وطبعا حفظها فى مسار معين 
                                                                          بلغة Vb.net


RE: صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم - أسامة - 05-07-16

هل تقصد keylogger؟


RE: صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم - الوادي - 05-07-16

يا علي،

هذا الكود يحلل النص ويعطيك نتيجة وجود أو عدم وجود كل من الأرقام Digit والأحرف (بشكل عام) Letter والأحرف الصغيرة Lower والأحرف الكبير ةUpper والرموز Symbol
ومن النتيجة تهرف ماذا تريد أن تفعل
PHP كود :
Dim Digit As Boolean txt.ToCharArray.Any(Function(As CharChar.IsDigit(c))
Dim Letter As Boolean txt.ToCharArray.Any(Function(As CharChar.IsLetter(c))
Dim Lower As Boolean txt.ToCharArray.Any(Function(As CharChar.IsLower(c))
Dim Upper As Boolean txt.ToCharArray.Any(Function(As CharChar.IsUpper(c))
Dim Symbol As Boolean txt.ToCharArray.Any(Function(As CharChar.IsSymbol(c)) 

الآن ممكن تختبر وجود أي احتمال مثال
PHP كود :
If Not Digit Then
    MsgBox
("يجب أن تحتوي كلمة المرور على أرقام")
    Return
End If

If 
Not Letter Then
    MsgBox
("يجب أن تحتوي كلمة المرور على أحرف")
    Return
End If

If 
Not Lower Then
    MsgBox
("يجب أن تحتوي كلمة المرور على أحرف صغيرة")
    Return
End If

If 
Not Upper Then
    MsgBox
("يجب أن تحتوي كلمة المرور على أحرف كبيرة")
    Return
End If

If 
Not Symbol Then
    MsgBox
("يجب أن تحتوي كلمة المرور على رموز")
    Return
End If

MsgBox("كلمة المرور جاهزة"



RE: صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم - ali ahmed 1997 - 06-07-16

اقصد كالباسورد ليست متلا 
الاحرف والارقام التاليه "ab"
احتمالاتها كالتالى :
ab
ba
aa
bb