Skip to main content

AccessTr.neT


Girişte Şifre Format Kontrolu

Girişte Şifre Format Kontrolu

Çözüldü #1
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


Visual Basic Code
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

@benbendedeilem
Son Düzenleme: 05/05/2020, 17:51, Düzenleyen: accessman.
Cevapla
#2
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.
Please return your positive or negative ...
Cevapla
#3
Aşağıda eklediğim satırları nasıl kullanacağız

Visual Basic Code
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

Visual Basic Code
^.(?=.[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,

Visual Basic Code
^.(?=.{6,})(?=.[a-z])(?=.[A-Z]).$

biraz daha karmaşıklık atmak istiyorsanız ve en az bir rakam veya bir sembol gerektiriyorsa,

Visual Basic Code
^.(?=.{6,})(?=.[a-z])(?=.[A-Z])(?=.[\d\W]).*$

@benbendedeilem
Son Düzenleme: 05/05/2020, 17:38, Düzenleyen: accessman.
Cevapla
#4

Visual Basic Code
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

@benbendedeilem
Cevapla
#5
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...
.zip deneme1.zip (Dosya Boyutu: 29,75 KB | İndirme Sayısı: 14)
Please return your positive or negative ...
Cevapla
#6
Yani @feraz
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task