Cara Membuat Serial Number (SN) di Visual Basic 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 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 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 tip cara membuat serial number di Visual basic 6.0.Semoga tip ini bermanfaat buat kita semua. Selamat mencoba semoga sukses...

Related Post: Aplikasi sederhana