Cara Membuat Serial Number (SN) di Program Aplikasi Visual Basic 6.0

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

Cara Membuat Serial Number (SN) di Visual Basic 6.0 - Kali ini tip dan trik visual basic akan membahas tentang cara membuat serial number (SN) di visual basic 6.0. Sebelum kita memulai bagaimana membuat serial number mari kita simak pengertian dari serial number (SN) dibawah ini:

"Serial Number adalah Sekumpulan karakter unik yang bisa terdiri atas kombinasi antara alfabet dan numerik (alfanumerik) yang biasanya menjadi penanda barang produksi serta dibuat selalu berbeda-beda meskipun jenis barangnya sama".

Serial number juga umumnya digunakan sebagai kunci software berbayar dan bisa didapatkan pengguna setelah membeli software, terkadang hal ini dimanfaatkan oleh pihak tertentu yang dengan sengaja membuat program palsu untuk menjebak atau menipu pengguna lain. Contohnya adalah Fake Antivirus dan beberapa Rogue Software lainnya.

Serial number merupakan lisensi dari  program yang telah kita buat, tujuan dari serial number hanya untuk melindungi adanya program bajakan , tetapi pada kenyataannya tetap saja serial number tersebut menjadi celah buat menjadikannya full versi.

Bagi Anda yang suka membuat program aplikasi atau software tertentu  serial number saya rasa cukup penting sebagai lisensi produk yang kita buat agar terhindar dari kasus pembajakan software yang telah kita buat.Untuk membuat serial number kita tidak perlu memerlukan program lain cukup Anda menggunakan program yang Anda sudah punya saat ini yaitu Visual Basic.Lalu bagaimana cara membuatnya?.Untuk membuatnya mari kita simak langkah-langkah berikut dibawah ini:

Tutorial Membuat Serial Number di Aplikasi Visual Basic 6.0

1. Buka Form VB6 Standar EXE
2. Tanamkan 2 Texbox, 2 Label dan 1 Commandbutton di Form
3. Kemudian atur properties masing-masing dibawah ini:

Textbox1  :
(Name) = txtName
aligntment = 2-center
text = Username

TextBox2  :
(Name) = txtKey
aligntment = 2-center
text = Serial Number

CommandButton :
(Name) = Command1
Caption = Generate

4. Setelah itu buka jendela kode dengan menekan F7 lalu Anda ketik kode dibawah ini:

Private Sub Command1_Click()
Dim c, i, j, szCNLen As Integer
Dim a(6) As Integer
Dim MgcNum(21) As Integer
Dim ssName(50) As Integer

a(0) = "00"
a(1) = "00"
a(2) = "00"
a(3) = "99"
a(4) = "99"
a(5) = "00"

MgcNum(0) = 38: MgcNum(1) = 56
MgcNum(2) = 57: MgcNum(3) = 57
MgcNum(4) = 99: MgcNum(5) = 15
MgcNum(6) = 58: MgcNum(7) = 12
MgcNum(8) = 13: MgcNum(9) = 17
MgcNum(10) = 19: MgcNum(11) = 18
MgcNum(12) = 88: MgcNum(13) = 58
MgcNum(14) = 52: MgcNum(15) = 52
MgcNum(16) = 12: MgcNum(17) = 13
MgcNum(18) = 12: MgcNum(19) = 57
MgcNum(20) = 52: MgcNum(21) = 98

szName = UCase(Trim(txtName.Text))
szCNLen = Len(szName) - 1

i = 0
j = 0

Do While i <= szCNLen
For c = 1 To Len(szName)
ssName(i) = Asc(Mid(szName, c, 1))
If j > 2 Then j = 0
a(j) = (ssName(i) * Len(szName) + a(j)) Mod &H64
If a(j) >= &H64 Then a(j) = a(j) Mod &H64
i = i + 1
j = j + 1
Next
Loop

i = 0
Do While i < 5
a(5) = ((a(5) + a(i) * Len(szName))) Mod &H16
i = i + 1
Loop

a(5) = MgcNum(CInt(a(5)))

If Trim(Len(txtName)) < 3 Then
'MsgBox "Masukkan Nama Lebih Dari 3 Karakter", vbInformation, "Serial Number"
txtKey.Text = "Please input name more than 3 char"
Else
txtKey.Text = a(3) & a(5) & a(4) & a(0) & a(1) & a(2)
End If
End Sub

Private Sub Form_Load()
MsgBox "Created By Operate System", vbInformation, "Info"
End Sub

5. Selesai membuat kode kemudian simpan dan jalankan program

Setelah Anda bisa membuat serial number di visual basic silahkan Anda terapkan serial number Anda yang sudah Anda buat dengan program visal basic dengan program Aplikasi yang sudah jadi untuk melindungi program buatan Anda dari pembajakan.

Jadi kesimpulannya serial number salah satu cara untuk mengaktifasi sebuah program yang tentu saja yang didapatkan dengan cara yang sah atau ilegal demi melindungi hak si pembuat program dari pembajakan dan untuk keperluan itu visual basic sudah menyediakan fungsinya untuk membuat Serial Number (SN), tetapi sehebat apapun perlindungan produk yang kita tetap saja ada celah untuk bisa di bajak.

Sekian Tutorial Membuat Serial Number (SN) di Program Aplikasi dari Visual Basic 6.0. Semoga ini bermanfaat buat kita semua. Selamat mencoba semoga sukses.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Kategori artikel yang terkait dengan Visual Basic 6.0

Visual Basic 6.0, Panduan VB6, Belajar VB6 Lengkap, Tutorial VB6, Belajar VB6 Pdf, Pemrograman VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.