+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Girişte Şifre Format Kontrolu (/konu-giriste-sifre-format-kontrolu.html)
Girişte Şifre Format Kontrolu - accessman - 05/05/2020
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
fValPRE: Girişte Şifre Format Kontrolu - POWER - 05/05/2020
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.
Re: Girişte Şifre Format Kontrolu - accessman - 05/05/2020
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]).$^.(?=.{6,})(?=.[a-z])(?=.[A-Z])(?=.[\d\W]).*$RE: Girişte Şifre Format Kontrolu - accessman - 05/05/2020
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 FunctionRe: Girişte Şifre Format Kontrolu - POWER - 05/05/2020
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...
RE: Girişte Şifre Format Kontrolu - accessman - 07/05/2020
Yani @feraz