[1234hotmaster]

Made by me in 5 minutes

Code:

Public Function R4ND0M_Generator(ByVal Length As Byte) As String
Dim RND As New Random
Dim Alpha As String() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Dim UpperAlpha As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
Dim C7R As String

Do Until Len(C7R) >= Length
If RND.Next(1, 4) = 1 Then C7R &= Alpha(RND.Next(1, 26))
If RND.Next(1, 4) = 2 Then C7R &= UpperAlpha(RND.Next(1, 26))
If RND.Next(1, 4) = 3 Then C7R &= CStr(RND.Next(1, 10))
Loop

Return C7R
End Function

Usage Example:

Code:

Messagebox.Show(R4ND0M_Generator(20))

[stennis1]

well let me say as first here Nice bro

[1234hotmaster]

Thanks man finally someone saw this thread

[stennis1]

haha many people looking but there is always 1 that appreciate other peoples work.
How do you call the others?? oh yeah Leechers and copy / pasters hehe

Thanx again

[1234hotmaster]

hate to admit but nice words :Thumbs: