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

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

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [How to] Create random strings(upper,lower and integers)[Src] (/showthread.php?tid=18067)

Pages: 1 2

[How to] Create random strings(upper,lower and integers)[Src] - Modestep - 04-17-2011

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

RE: [How to] Create random strings(upper,lower and integers)[Src] - Resistance - 04-17-2011

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

I am bookmarking this.

RE: [How to] Create random strings(upper,lower and integers)[Src] - Modestep - 04-17-2011

(04-17-2011, 08:26 AM)The High Roller Wrote: 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 Smile

RE: [How to] Create random strings(upper,lower and integers)[Src] - Mammoth - 04-18-2011

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

RE: [How to] Create random strings(upper,lower and integers)[Src] - thespragg - 04-22-2011

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

RE: [How to] Create random strings(upper,lower and integers)[Src] - Loukas - 04-23-2011

Nice share, what can this be used for?

RE: [How to] Create random strings(upper,lower and integers)[Src] - thespragg - 04-23-2011

password generators and stuff

RE: [How to] Create random strings(upper,lower and integers)[Src] - Blixx - 04-28-2011

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

RE: [How to] Create random strings(upper,lower and integers)[Src] - Extornia - 05-01-2011

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

RE: [How to] Create random strings(upper,lower and integers)[Src] - euverve - 05-12-2011

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:
[Image: 3iTgN.png]