[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

![[Image: 192-BC15-A-BC6-F-43-EA-8-ED4-76-D5-A5847950.gif]](https://i.ibb.co/6r57dfB/192-BC15-A-BC6-F-43-EA-8-ED4-76-D5-A5847950.gif)

