KeyGen

Este codigo permite mostrar seriales como si fuera un keygen

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a1 As String = "K7UR-DJNA-LJV3-SSLM-ATK6"
        Dim a2 As String = "NUX9-6CCY-X6CL-59MD-MC5H"
        Dim a3 As String = "4XXP-XJ4K-A236-R7UR-VPV2"
        Dim a4 As String = "F9CF-3REC-AAVA-PM9A-KY7T"
        Dim a5 As String = "7PRC-4DUT-SX4W-CWEC-C6C6"
        Dim sel As Integer
        sel = Int(Rnd() * 5)
        Select Case sel
            Case 0
                TextBox1.Text = a1
            Case 1
                TextBox1.Text = a2
            Case 2
                TextBox1.Text = a3
            Case 3
                TextBox1.Text = a4
            Case 4
                TextBox1.Text = a5
        End Select
    End Sub