iyi günler bazen şifre girerken
En az bir büyük harf
En az bir küçük harf
En az bir numeric karakter
En az bir harf ve sayı olmayan karakter
En az 8 karakter gibi şartlar koşuluyor.
Bunun hazır bir fonksiyonu mu var nasıl yapabiliriz
Public Function fValPass(ByVal strPass As String) As Boolean
Dim result As String
Dim RE As Object
' Sets the regular expression object
Set RE = CreateObject("VBScript.RegExp")
With RE
.Pattass = .Test(strPass) 'affecting to the name of the function is how you return a value in VBA
end with
End Functionern = "^(?
?=.*[a-z])(??=.*[A-Z])(?=.*[\d\W])|(?=.*\W)(?=.*\d))|(?=.*\W)(?=.*[A-Z])(?=.*\d)).{7,12}$"
' Does not ignore case
.IgnoreCase = False
fValP
Hazır fonksiyon yok fakat bir modül yazarak ve şifre sonrası bu modülü devreye sokarsanız bunu fonksiyon gibi kullanabilirsiniz.
Daha sonra üretmiş olduğunuz tüm programlara bu modülü eklerseniz bir nevi fonksiyon oluşturmuş olursunuz.
Aşağıda eklediğim satırları nasıl kullanacağız
8 or more characters: (?=.{8,})
1 lowercase letter: (?=.*[a-z])
1 uppercase letter: (?=.*[A-Z])
1 digit: (?=.*[\d])
1 special character: (?=.*[\W])
1 special character or a digit: (?=.*[\d\W])
Bir satırı en az 1 küçük harfle eşleştirmek istersem
^.(?=.[a-z]).*$
bir dizeyi en az 6 karakter uzunluğunda, en az bir küçük harf ve en az bir büyük harfle eşleştirmek istiyorsanız,
^.(?=.{6,})(?=.[a-z])(?=.[A-Z]).$
biraz daha karmaşıklık atmak istiyorsanız ve en az bir rakam veya bir sembol gerektiriyorsa,
^.(?=.{6,})(?=.[a-z])(?=.[A-Z])(?=.[\d\W]).*$
Public Function fValPass(ByVal strPass As String) As Boolean
Dim result As String
Dim RE As Object
' Sets the regular expression object
Set RE = CreateObject("VBScript.RegExp")
With RE
.Pattern = "^(??=.*[a-z])(??=.*[A-Z])(?=.*[\d\W])|(?=.*\W)(?=.*\d))|(?=.*\W)(?=.*[A-Z])(?=.*\d)).{7,12}$"
' Does not ignore case
.IgnoreCase = False
fValPass = .Test(strPass) 'affecting to the name of the function is how you return a value in VBA
end with
End Function
Sayın accessman,
İçinde şifre kontrolü için modül olan bir uygulama ekledim.
Burda 2 kontrol ele alındı.
1. Şifre en az 6 karakter olmalıdır
2. İçinde en az 1 karakter küçük harf olmalı kontrolü
bu 2 olaya benzer diğer kontrolleri ekleyebilirsiniz. Takıldığınız yerde yardımcı olmaya çalışırız...