Keygen Programı - Kodlar

'Kodlar Hazırdır
'Bir Button ve Textbox Ekleyin ve Aşağıdaki Kodları Butona Gecerin.
Dikkat : RND*10 (10 Yerine Mesela 20 Yaparsanız. Case 20 ye Kadar Yapmanız Gerekmektedir. Aksi Takdirde Calışmaz.)




Dim d As Integer
d = Int(Rnd() * 10)
Select Case d
Case 0
Text1.Text = "WGB2J-MJ3X8-YVQWG-F8YVM-8PC36"
Case 1
Text1.Text = "DK89Q-M7GKR-76J2T-WB23Y-29VVW"
Case 2
Text1.Text = "PWBHF-W6G48-6D8GJ-Q4KP4-T4XBD"
Case 3
Text1.Text = "DTFHD-GKQTB-3388W-BF9K7-DY29G"
Case 4
Text1.Text = "PD4X9-TVMJK-P3YFY-QJG3M-GF7FW"
Case 5
Text1.Text = "JVV79-6DD32-3PMTY-WR6X9-FX9CM"
Case 6
Text1.Text = "J4HRH-2QC3J-3B8QW-KYBC3-468W6"
Case 7
Text1.Text = "GGXPJ-X94K9-H74DY-72QQK-2V6GY"
Case 8
Text1.Text = "PHRJC-MYFRT-TVJKD-T3K42-VXDX8"
Case 9
Text1.Text = "MC7QV-W3MMR-DX2RD-6RMQP-Q23QJ"
Case 10
Text1.Text = "TYBGM-YXTVX-BQBGB-MJG8V-GJGF6"
End Select
__________________