Tutorial Dasar Membuat Serial Number (SN) di Program Visual Basic 6.0

Cara Membuat Serial Number (SN) di program Visual Basic 6.0 - Kali ini tip dan trik visual basic akan membahas tentang Cara membuat serial number 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:

Cara Membuat Serial Number (SN) di Program 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
Membuat serial number, membuat serial number program vb6, memasang serial number
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 tip cara membuat serial number di Visual basic 6.0.Semoga tip ini bermanfaat buat kita semua.
Tag : Membuat serial number, membuat serial number program vb6, memasang serial number.

Cara Menghasilkan Bitcoin

Silahkan komentar pada kolom dibawah ini jika ada yang ingin ditanyakan tentang Tutorial Dasar Membuat Serial Number (SN) di Program Visual Basic 6.0.

0 Response to "Tutorial Dasar Membuat Serial Number (SN) di Program Visual Basic 6.0"

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.