hi guys i'v made the email generator but i would like to improve it
this generats emails such as [email protected]. Is it possible to make it generate proper words
Code
Public Function Genme(ByVal intLength As Integer, Optional ByVal strAllowedCharacters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
Randomize()
Dim chrChars() As Char = strAllowedCharacters.ToCharArray
Dim strReturn As New StringBuilder
Dim grtRandom As New Random
Do Until Len(strReturn.ToString) = intLength
Dim x As Integer = Rnd() * (chrChars.Length - 1)
strReturn.Append(chrChars(CInt(x)))
Loop
Return strReturn.ToString & "@hotmail.com"
