1 Cara Membuat KeyGen Dengan VB .NET

KeyGenerator(KeyGen) berfungsi sebagai tempat penyimpanan serial number yg sudah di sediakan, dan di masukan dalam program untuk membuat output tampilan lebih menarik atau bahkan ada yg membuat link di dalam keygen untuk promosi.

Langsung saja, keygen ini di buat sesimplenya, ingat "Anda harus mempunyai serial number untuk di masukan ke program nnti" ,KeyGen ini bukan untuk crack software, hanya perantara menampilkan serial number.

Buka VB netnya,
Design form seperti ini:

Masukan script ini, pada tombol button1( Text = Generate):

TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "CG523 - AB563 - AB234 - AD412 - ASD42"
Case 1
TextBox1.Text = "00312 - 41241 - 41524 - 12412 - 54123"
Case 2
TextBox1.Text = "11123 - D51f2 - 5124F - 1D123 - 5F123"
Case 3
TextBox1.Text = "0031T - 1F141 - F12S1 - B5431 - 4123G"
Case 4
TextBox1.Text = "13512 - 51242 - G1412 - 51234 - 15125"
Case 5
TextBox1.Text = "15125 - 25123 - 62321 - 34231 - 45134"
End Select

Lalu tombol button2(Text = Generate)

TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox2.Text = "CG523 - AB563 - AB234 - AD412 - ASD42"
Case 1
TextBox2.Text = "00312 - 41241 - 41524 - 12412 - 54123"
Case 2
TextBox2.Text = "11123 - D51f2 - 5124F - 1D123 - 5F123"
Case 3
TextBox2.Text = "0031T - 1F141 - F12S1 - B5431 - 4123G"
Case 4
TextBox2.Text = "13512 - 51242 - G1412 - 51234 - 15125"
Case 5
TextBox2.Text = "15125 - 25123 - 62321 - 34231 - 45134"
End Select

-------------------------------------------------------------------------------------------
» Silahkan ganti Angka dan Nomor di atas, Dengan SERIAL Number mu «

Jalankan programnya(F5),
Have Fun with you KeyGenerato.

Komentar →