|
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
[vb]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
|
