This code makes a random password out of the letters of the alphabet
This code makes a random password out of the letters of the alphabet
Rate This code makes a random password out of the letters of the alphabet
(1(1 Vote))
'Add a label and name it label1,change its caption to "", set auto size to true
Private Sub Command1_Click()
On Error Resume Next
Label1.Caption = ""
Do
DoEvents
b = b + 1
a = 52 * Rnd
ltr = Mid(LETTERS, a, 1) ' does the actual random generation
ltr2 = Asc(ltr) 'Numbervalue of the random Char
Label1.Caption = Label1.Caption + Chr(ltr2) ' character value shown
Loop Until b = 25 ' The number of characters
End Sub
This code makes a random password out of the letters of the alphabet Comments
No comments yet — be the first to post one!
Post a Comment