[TuT] How to create a Simple Keygen?

[Jinu]

[TuT] How to create a Simple Keygen?

Description:

Code:

For Generate

Dim Key As Integer
Key = Int( Rnd() * 6)
Select case Key
Case 1
Text Box 1. Text = " 858-787-767-809"
Case 2
Text Box 1. Text = " 158-787-767-809"
Case 3
Text Box 1. Text = " 558-787-767-809"
Case 4
Text Box 1. Text = " 358-787-767-809"
Case 5
Text Box 1. Text = " 658-787-767-809"
Case 6
Text Box 1. Text = " 758-787-767-809"


For Exit

End

[AceInfinity]

Why is your code so jumbled up? And also you don't end your case statement.

Spoiler (Click to View)

A few things:

Code:

Dim Key As Integer
Key = Int( Rnd() * 6)

Could be shorter.

Code:

Dim Key As Integer = Int( Rnd() * 6)

And full code:

Code:

Dim Key As Integer = Int( Rnd() * 6)
Select case Key
    Case 1
    TextBox1.Text = " 858-787-767-809"
    Case 2
    TextBox1.Text = " 158-787-767-809"
    Case 3
    TextBox1.Text = " 558-787-767-809"
    Case 4
    TextBox1.Text = " 358-787-767-809"
    Case 5
    TextBox1.Text = " 658-787-767-809"
    Case 6
    TextBox1.Text = " 758-787-767-809"
End Select

not sure why you use spaces between the design name either...

Although i'm confused as to why you're making it even that difficult. Try something like this:

Code:

Public KeyA() As String = {"key1", "key2", "key3", "key4", "key5"}

    Private Shared Function ReturnKey(ByVal InputArray() As String, ByVal LastKeyIndex As Integer)
        Dim Key As New Random
        Return InputArray(Key.Next(0, LastKeyIndex))
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(ReturnKey(KeyA, 4))
    End Sub

[Jinu]

Thanks for the suggestion dude.

[Techie.]

You should also have posted a text one.

But it is done.

[AceInfinity]

You should also have posted a text one.

But it is done.

A text one? It is already in text, you create the keys and put them in manually though.

[AlbinoShadow]

Hmm... Interesting source code. Thanks for the contribution.

[OnyxDev]

This is very helpful, especially to new users. Good job!