How to create a simplistic Serial Key Generator with Visual Basic. 02-26-2013, 05:21 PM
#1
In this little tutorial i will show you how to create a very effective still very simple way to create your own serial key "generator" application.
First you have to get the keys, which you can get by cracking the desired software or the easier way would be visiting this places:
www.serialkey.net
www.zcrack.com
www.subserials.net
www.serialportal.com
supercracks.net
www.serialcrackz.com
www.serials.be
www.cracktop.com
www.cracksfm.com
www.cracklib.net
www.crackdb.org
www.theserials.com
After that you can open Visual Basic and:
Im using VB6.0 for this one, but it should work with all different versions.
* First, you want to create a form with just a textbox and 2 buttons.
/text1
/command1 , caption: generate
/command2, caption: End
Ok, that will be the Object.
Now, for the coding.
Private Sub Command1_Click()
text1.text = int(rnd * 3)
select case text1
case 0
text1.text = "SERIAL CODE1"
case 1
text1.text = "SERIAL CODE2"
case 2
text1.text = "SERIAL CODE3"
'and so on, and so on...
end select
end sub
Private Sub Command2_Click()
End
end sub
Hope this is useful to any of you. Cheers.
First you have to get the keys, which you can get by cracking the desired software or the easier way would be visiting this places:
www.serialkey.net
www.zcrack.com
www.subserials.net
www.serialportal.com
supercracks.net
www.serialcrackz.com
www.serials.be
www.cracktop.com
www.cracksfm.com
www.cracklib.net
www.crackdb.org
www.theserials.com
After that you can open Visual Basic and:
Im using VB6.0 for this one, but it should work with all different versions.
* First, you want to create a form with just a textbox and 2 buttons.
/text1
/command1 , caption: generate
/command2, caption: End
Ok, that will be the Object.
Now, for the coding.
Private Sub Command1_Click()
text1.text = int(rnd * 3)
select case text1
case 0
text1.text = "SERIAL CODE1"
case 1
text1.text = "SERIAL CODE2"
case 2
text1.text = "SERIAL CODE3"
'and so on, and so on...
end select
end sub
Private Sub Command2_Click()
End
end sub
Hope this is useful to any of you. Cheers.