Memanfaatkan library IKG untuk membuat aktivasi + keygen

Sebelumnya saya ucapkan terima kasih kepada salah seorang pengunjung blog saya yang sudah memberikan koreksi pada salah satu artikel saya yang berjudul Menambahkan serial number pada paket instalasi (inno setup).

Karena adanya koreksi itu saya jadi punya ide untuk menulis artikel ini

Oke kita langsung saja, file library yang akan kita gunakan disini adalah IKGCG.DLL (untuk generate serial number) dan ISID.DLL (untuk melakukan validasi serial number)

Langkah awal sebelum kita masuk ke bagian kode program adalah membuat file Inno Key yang berfungsi sebagai public key yang akan kita distribusikan bersama aplikasi.

Bagaimana cara membuat file Inno Key ini, Anda bisa merujuk ke artikel saya yang berjudul Menambahkan serial number pada paket instalasi (inno setup).

1. Membuat Form Keygen

Buat project baru kemudian desain tampilan seperti gambar berikut :

download file IKGCG.rar, ekstrak dan copykan ke folder project. Berikut adalah source code lengkapnya :

Option Explicit

Private Declare Function GenerateSerialNumber Lib "IKGCG.DLL" (ByVal innoKeyFile As String, ByVal User As String, ByVal Orgn As String, ByVal ProdCode As String, ByVal HDD As String, ByVal MAC As String, ByVal privateKey As String, ByVal UnlockCode As String) As Boolean

Private Function getSerialNumber(ByVal registeredName As String, ByVal organisation As String) As String
    Dim innoKeyFile     As String
    Dim privateKey      As String
    Dim serialNumber    As String * 12
    Dim ret             As Boolean

    innoKeyFile = App.Path & "\key.iky"
    privateKey = "3D07966E-9AB4-4EBE-BF41-91C2D6611AC0" 'nilai ini didapat pada saat pembuatan file inno key

    ret = GenerateSerialNumber(innoKeyFile, registeredName, organisation, "", "", "", privateKey, serialNumber)
    getSerialNumber = serialNumber
End Function

Private Sub cmdGenerate_Click()
    txtSerialNumber.Text = getSerialNumber(txtRegisteredName.Text, txtOrganisation.Text)
End Sub

Hal penting yang perlu diperhatikan pada source code diatas adalah nilai variabel privateKey, nilai ini harus sama dengan nilai PRIVATE KEY pada saat membuat file Inno Key

2. Membuat Form Aktivasi

Setelah kita selesai mendesain tampilan seperti gambar diatas download file ISID.rar, ekstrak dan copykan ke folder project. Berikut kode lengkapnya :

Option Explicit

Private Declare Function ValidateSerialNumber Lib "ISID.DLL" (ByVal innoKeyFile As String, ByVal User As String, ByVal Orgn As String, ByVal ProdCode As String, ByVal HDD As String, ByVal MAC As String, ByVal privateKey As String, ByVal Serial As String) As Boolean

Public Function isValidSerialNumber(ByVal registeredName As String, ByVal organisation As String, ByVal serialNumber As String) As Boolean
    Dim innoKeyFile     As String
    Dim privateKey      As String
    Dim ret             As Boolean

    innoKeyFile = App.Path & "\key.iky"
    privateKey = "3D07966E-9AB4-4EBE-BF41-91C2D6611AC0" 'nilai ini didapat pada saat pembuatan file inno key

    isValidSerialNumber = ValidateSerialNumber(innoKeyFile, registeredName, organisation, "", "", "", privateKey, serialNumber)
End Function

Public Sub Main()
    Dim registeredName  As String
    Dim organisation    As String
    Dim serialNumber    As String

    registeredName = GetSetting("MyApp", "Aktivasi", "RegisteredName", "")
    organisation = GetSetting("MyApp", "Aktivasi", "Organisation", "")
    serialNumber = GetSetting("MyApp", "Aktivasi", "SerialNumber", "")

    If isValidSerialNumber(registeredName, organisation, serialNumber) Then
        'TODO : tampilkan form utama
    Else
        frmAktivasi.Show
    End If
End Sub

Selanjutnya tinggal pangil di form aktivasi seperti berikut :

Option Explicit

Private Sub cmdOk_Click()
    If isValidSerialNumber(txtRegisteredName.Text, txtOrganisation.Text, txtSerialNumber.Text) Then
        Call SaveSetting("MyApp", "Aktivasi", "RegisteredName", txtRegisteredName.Text)
        Call SaveSetting("MyApp", "Aktivasi", "Organisation", txtOrganisation.Text)
        Call SaveSetting("MyApp", "Aktivasi", "SerialNumber", txtSerialNumber.Text)

        MsgBox "Aktivasi berhasil", vbInformation, "Informasi"

        'TODO : tampilkan form utama

    Else
        MsgBox "Aktivasi gagal", vbExclamation, "Peringatan"
    End If
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Selamat MENCOBA