by Buba_kInG (6 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 25th May 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A nifty littel password generator
API Declarations
Const Abc = "ABCDEFGHIJLMNOPQRSTUVWXYZ" ' is that all letters in the alphabet?
Dim i, x, z, a
Randomize
For z = 1 To 12
a = Int((Rnd * 2) + 1)
If a = 1 Then
i = Int((Rnd * 25) + 1)
x = Mid(Abc, i, 1)
End If
If a = 2 Then
x = Int((Rnd * 9) + 1)
End If
Text1 = Text1 & x
Next
End Sub