by F. Tr?xler (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 26th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Generate Random ID's or Passwords of any length with this Function.
Dim range As Collection
Dim ivalue, icount, iLen As Long
Dim pass As String
Set range = New Collection
range.Add ("0")
range.Add ("1")
range.Add ("2")
range.Add ("3")
range.Add ("4")
range.Add ("5")
range.Add ("6")
range.Add ("7")
range.Add ("8")
range.Add ("9")
range.Add ("A")
range.Add ("B")
range.Add ("C")
range.Add ("D")
range.Add ("E")
range.Add ("F")
range.Add ("G")
range.Add ("H")
range.Add ("I")
range.Add ("J")
range.Add ("K")
range.Add ("L")
range.Add ("M")
range.Add ("N")
range.Add ("O")
range.Add ("P")
range.Add ("Q")
range.Add ("R")
range.Add ("S")
range.Add ("T")
range.Add ("U")
range.Add ("V")
range.Add ("W")
range.Add ("X")
range.Add ("Y")
range.Add ("Z")
range.Add ("a")
range.Add ("b")
range.Add ("c")
range.Add ("d")
range.Add ("e")
range.Add ("f")
range.Add ("g")
range.Add ("h")
range.Add ("i")
range.Add ("j")
range.Add ("k")
range.Add ("l")
range.Add ("m")
range.Add ("n")
range.Add ("o")
range.Add ("p")
range.Add ("q")
range.Add ("r")
range.Add ("s")
range.Add ("t")
range.Add ("u")
range.Add ("v")
range.Add ("w")
range.Add ("x")
range.Add ("y")
range.Add ("z")
icount = 0
ivalue = 0
iLen = range.Count
Do Until icount = nLen
Randomize
ivalue = CByte(Mid(CStr(Rnd(GetTickCount)), 3, 2))
If ivalue > 0 And ivalue <= iLen Then
icount = icount + 1
pass = pass & range(ivalue)
End If
Loop
PassGen = pass
End Function
No comments have been posted about Generate Random ID's or Passwords of any length with this Function.. Why not be the first to post a comment about Generate Random ID's or Passwords of any length with this Function..