Password Validation

Came across this and modified it so that it checks if the password entered has at least one number or symbol.

(a function to be placed in a global module not macro)
Code:Function IsAlphaNumeric(strTest) As Boolean'IsAlphaNumeric used to test if a string has a number or a symbol in addition to regular alpha characters.'What it does it take an input string and converts each character of the string into its corresponding ASCII code (uses the VBA function Asc()).'The function then checks the ASCII value of each character and adds one to count if the character was a number or symbol.'The function also checks the ASCII value of each character and adds one to count2 if the character was a regular alpha character.'Finally the function checks to see if count and count2 are both greater then 0, if it is then the string has a number or a symbol in addition to regular alpha characters.Dim Char As StringDim CharNum As IntegerDim i As IntegerDim count As IntegerDim count2 As Integercount = 0count2 = 0 For i = 1 To Len(strTest) Char = Mid(strTest, i, 1) CharNum = Asc(Char) '48-57 is the ASCII range for 1-0, the other values are for the following symbols ~ ! @ # $ % ^ & * ( ) ` If (CharNum > 47 And CharNum < 58) Or (CharNum = 33) Or _ (CharNum > 34 And CharNum < 39) Or (CharNum > 39 And CharNum < 43) Or _ (CharNum = 64) Or (CharNum = 94) Or (CharNum = 96) Or (CharNum = 126) Then count = count + 1 End If '65-90 is the ASCII range for A-Z, 97-122 is the ASCII range for a-z If (CharNum > 64 And CharNum < 91) Or (CharNum > 96 And CharNum < 123) Then count2 = count2 + 1 End If Next i If count > 0 And count2 > 0 Then IsAlphaNumeric = True Else IsAlphaNumeric = False End If End Function
I use it when the user wants to change the password for the local front end db. It makes sure that the user has to have a password at least six characters in length and must have a symbol or letter.
Code: If newpass = Me.currpw.value Then MsgBox "Password cannot be updated. Please make sure the new password is different from the original password", vbExclamation, "Password update FAILED!" Exit Sub End If If Not newpass = Me.confrimpw.value Then MsgBox "Password cannot be updated. Passwords do not match, please make sure to re-enter the new password twice.", vbExclamation, "Password update FAILED!" Exit Sub End If If Len(newpass) > 6 And IsAlphaNumeric(newpass) Then 'Update current user's password DoCmd.RunSQL ("UPDATE Users SET [strEmpPassword] = '" & newpass & "' WHERE [lngEmpID] = lngMyEmpID;") MsgBox "Password has been updated ", vbInformation, "Password updated!"

With this you can expand it so that if you want the user’s new password to have at least one number and one symbol

One thing I am not sure about is to make sure the password is a strong password and not a weak one. I was thinking of having it subtract the ASCII code of every two characters and if there value is 2 or less add one to a general count variable, then divide that general count variable by the number of iterations and check to see if that value is 2 or less if so then it’s a weak password, not sure if that makes sense, any ideas?