[HELP] Random Units

Whats the code for giving out random units?
I Am making a keygen so if i had ( and these are fake )
EAFA-JHDR-5G43-GSR
SEG5-SGR4-HHDS-5HAA
35RG-6W3T-T4B4-GT6W

How would i make it give out a random one on the button press?
Thx

Here you go

Code:

Option Explicit On
Public Class Form1
    Private RandomWords(0 To 5) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WordPointer As Integer

        WordPointer = Int(Rnd() * 5) + 1
        TextBox1.Text = RandomWords(WordPointer) & vbNewLine
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RandomWords(0) = "lolwut"
        RandomWords(1) = "asdf"
        RandomWords(2) = "as234"
        RandomWords(3) = "Aasdf556"
        RandomWords(4) = "563y"
        RandomWords(5) = "D2346"
    End Sub
End Class

Nextgen released a OpenSource Password Generator, go take a look at it.

[HELP] Random Units

Similar Threads

Tags for this Thread