*B4X* چک کردن امنیت رمز

[Salar82 729]

سلام به همه

با کد زیر که در تمام پلتفرم های B4X قابل استفاده هست، میشه قدرت و امنیت یک رمز رو براحتی چک کرد:

برای استفاده، دو ساب زیر رو به کلاستون اضافه کنید:

Sub CountMatches(text As String,pattern As String) As Int   
    Dim tmp_count As Int = 0   
    Dim Matcher1 As Matcher
    Matcher1 = Regex.Matcher(pattern, text)
    Do While Matcher1.Find
        tmp_count = tmp_count +1
    Loop
    Return tmp_count
End Sub

و

Private Sub ValidatePassword(pwd As String,minLength As Int) As Boolean   
    If pwd.Length < minLength Then Return False
    If CountMatches(pwd,"[A-Z]") < 1 Then Return False
    If CountMatches(pwd,"[a-z]") < 1 Then Return False
    If CountMatches(pwd,"[0-9]") < 1 Then Return False
    If CountMatches(pwd,"[^a-zA-Z0-9]") < 1 Then Return False
    ' Passed all checks.
    Return True   
End Sub

 

 

بعد مثل زیر میتونید چک کنید:

If ValidatePassword("@!Ali_Shoajee!@",8) = True Then
	Log("Password is ok")
Else
	Log("Password is not ok")
End If

این ساب دو ورودی داره:

1. رمز
2. حداقل کاراکتر برای رمز

 

موفق باشید