Membuat Keygen di VB.NET

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Blog-Hidayru - Hello, pada zaman yang canggih sekarang ini, banyak aplikasi yang beredar di internet, salah satunya Key Generator, yaitu sebuah aplikasi yang men-generate banyak Key atau Serial Number yang di dikemas dalam satu karya. Guna dari aplikasi ini biasanya yakni menyediakan Serial untuk membuat aplikasi yang bersangkutan menjadi full. Bagaimana cara Membuat Key Generator di VB.NET ? Anda tidak perlu khawatir, Code yang digunakan tidak ratusan baris kok, dan Algoritma yang digunakan tidak rumit, jadi silahkan simak Tutorial berikut ini ya :)

Tahap I : Designing User Interface

Buatlah Project baru pada Visual Studio anda, disini saya menggunakan IDE Visual Studio 2012. Pilih Templates nya Visual Basic dan tipe nya Windows Form Application. Berilah nama sesuka hati anda, disini saya menamakannya Simple Key Generator. Berikut Controls dan Component  yang akan digunakan serta tampilan aplikasi nya.

Gambar 1.1

Gambar 1.2

Tahap II : Coding

Pertama, kita akan memberi kode pada Event Form Load. klik dua kali pada form aplikasi anda dan ketikkan kode dibawah ini :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.StartPosition = FormStartPosition.CenterScreen 'TAMPILKAN DI TENGAH LAYAR
        TextBox1.ReadOnly = True 'ATUR TEXTBOX SUPAYA READ ONLY (TDK BISA DI EDIT)
    End Sub

Kedua kita akan memberi kode pada Event Click btnGenerate. Double klik btnGenerate dan ketikkan kode dibawah ini :

Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click

        TextBox1.Text = Int(Rnd() * 6) 'RANDOM TEXTBOX DIKALI 6 
        'LAKUKAN SELECT CASE DENGAN 6 KONDISI
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "HJ4J9-GKD79-JSJKA-77SHA"
            Case 1
                TextBox1.Text = "KLSL3-KSJLL-YYY2S-77SHJ"
            Case 2
                TextBox1.Text = "JDKIF-MMSMN-845DF-OPWO2"
            Case 3
                TextBox1.Text = "219KO-GDSFJ-LGHRT-F4HDG"
            Case 4
                TextBox1.Text = "KJSJK-DSDS4-56FSA-DSGDS"
            Case 5
                TextBox1.Text = "DSFGR-45DFS-FDRSR-SAFDF"
        End Select

    End Sub 

Ketiga kita akan melakukan Copy Text yang ada pada TextBox1. Disini kita menggunakan Method yang terdapat pada TextBox itu sendiri.

Private Sub btnCopy_Click(sender As Object, e As EventArgs) Handles btnCopy.Click
        TextBox1.Copy() 'COPY SEMUA TEXT
    End Sub 

Tahap 3 : Testing

Wah, Key Generator sudah selesai dibuat, sekarang lakukan Testing. Tekan tombol F5 pada keyboard untuk melakukan Debugging. Dibawah ini merupakan hasil dari apa yang telah dibuat : )

Gambar 1.3

Bagaimana, mudah bukan? Masih bingung? tenang, Blog-Hidayru selalu baik dalam berbagi, silahkan buka Source Code Disini

Jangan lupa ya di klik iklannya serta ikutin terus Blog-Hidayru melalui Social Media untuk mendapatkan update tutorial terbaru. Sekian semoga bermanfaat dan salam saya, Fadli Hidayatullah : )