[How to] Create random strings(upper,lower and integers)[Src]

[Modestep]

Ill start with saying what this is, the code generates a string with random uppercase,lowercase, and numbers. You can edit how many random characters there will be. Here is the code:

Code:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(Random())
    End Sub
    Public Function Random() As String
        Random = ""
        Const strUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const strLower As String = "abcdefghijklmnopqrstuvwxyz"
        Const strNumbers As String = "1234567890"
        Dim strTotal As String
        Dim i As Short
        strTotal = strUpper & strLower & strNumbers
        For i = 1 To CInt("25")
            Random = Random & Mid(strTotal, Int((Rnd() * Len(strTotal)) + 1), 1)
        Next i
    End Function
End Class

Oke now some explanations

Code:

Const strUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const strLower As String = "abcdefghijklmnopqrstuvwxyz"
        Const strNumbers As String = "1234567890"

We now have 3 strings, one with uppercase, one with lowercase and one with numbers. Later on we are going to take a random character from the string.

Code:

For i = 1 To CInt("25")
            Random = Random & Mid(strTotal, Int((Rnd() * Len(strTotal)) + 1), 1)
        Next i

We make a loop to get our random string, you can change the length of the string by changing this number "For i = 1 To CInt("25")" if you change the 25 to 4, then our string only will have 4 characters

[Resistance]

Nice job, I don't know what someone may need this for, but great job. At least it works.

I am bookmarking this.

[Modestep]

Nice job, I don't know what someone may need this for, but niec job. At least it works.

I am bookmarking this.

Thank you for the nice comment

[Mammoth]

Good job, i already know this but this is good.

[thespragg]

remember to put "Randomize" in the form load, otherwise the rnd() function will return the same "random" value every time

[Loukas]

Nice share, what can this be used for?

[thespragg]

password generators and stuff

[Blixx]

Oh thanks, i looked for stuff like this my some fake software

[Extornia]

Thanks mate. This will make it easier for me to do fake keygens, etc.

[euverve]

A slight change version, with number of random strings to generate.

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If StrLength.TextLength <= 0 Then
            MsgBox("Input string length.")
        Else
            StrOutput.Text = RandomString(StrLength.Text)
        End If
    End Sub

    Function RandomString(ByVal val As Integer) As String
        RandomString = ""
        Const strUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const strLower As String = "abcdefghijklmnopqrstuvwxyz"
        Const strNumbers As String = "1234567890"
        Dim strTotal As String = strUpper & strLower & strNumbers
        Dim i As Short

        For i = 1 To CInt(val)
            RandomString = RandomString & Mid(strTotal, Int((Rnd() * Len(strTotal)) + 1), 1)
        Next i
    End Function

Screenshot: