Criando Simples Keygen

[Hacker Inocente]

1° Crie um novo Projeto em seu vb (no meu caso estou usando vb 2008)
2° Adicione 1 Button é um textbox
3° Renomeie o Button 1 para "Gerar Keys" (Não e preciso por as aspas)
4° Dê 2 Clicks no Button 1 e cole este codigo ↓

Código: ↓

If TextBox1.Text = " " Then
TextBox1.Text = "0000-0000-0000-0000"
ElseIf TextBox1.Text = "0000-0000-0000-0000" Then
TextBox1.Text = "0000-0000-0000-0001"
ElseIf TextBox1.Text = "0000-0000-0000-0001" Then
TextBox1.Text = "0000-0000-0000-0002"
ElseIf TextBox1.Text = "0000-0000-0000-0002" Then
TextBox1.Text = "0000-0000-0000-0003"
ElseIf TextBox1.Text = "0000-0000-0000-0003" Then
TextBox1.Text = "0000-0000-0000-0004"
ElseIf TextBox1.Text = "0000-0000-0000-0004" Then
TextBox1.Text = "0000-0000-0000-0005"
Else
TextBox1.Text = "0000-0000-0000-0005"
TextBox1.Text = "0000-0000-0000-0000"
End If

Essas keys são fakes coloquei aleatoriamente.
Leia o codigo que você entendera tudo , caso tenha mais de 5 keys adicionem mais ElseIf exemplo

Código: ↓

ElseIf TextBox1.Text = "0000-0000-0000-0005" Then
TextBox1.Text = "0000-0000-0000-0006"

O Else sempre deixe ele por ultimo pois ele ira pegar o ultimo texto e tranformar novamente no primeiro

Código: ↓

Else
TextBox1.Text = "0000-0000-0000-0006"
TextBox1.Text = "0000-0000-0000-0000"

O Texbox1.text = "0000-0000-0000-0006"
ira voltar para
TextBox1.Text = "0000-0000-0000-0000"