This is extract of Command1_Click() of frmSetPass.frm to set and confirm password:
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
MsgBox "You should enter a valid password", vbCritical, App.Title
Exit Sub
End If
If Text1.Text <> Text3.Text Then
MsgBox "Confirm does not match", vbCritical, App.Title
Text3.SetFocus
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
Exit Sub
End If
Open addstrap(getwinsysdir, "pfolder.uni") For Output As #1
Write #1, passconv.cvtstringtopass(LCase(Text1.Text))
Close #1
Unload Me
End Sub
Now, what should I do to stop users from giving a blank value for the password.
The encoding is done in ASCII. So, I need to fix the password limit between 3 and 9 characters consisting of only letters and numbers (case-sensitive) and no special characters.
2007-07-21
17:44:58
·
1 answers
·
asked by
Anonymous