Cara Membuat Serial Number (SN) di Program Aplikasi VB 6.0

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 kami 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:

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

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.