Cara Membuat Serial Number (SN) Menggunakan Nama di Visual Basic 6.0

Cara Membuat Serial Number (SN) Menggunakan Nama di Visual Basic 6.0 - Kali ini EXPXO akan berbagi tentang Cara Membuat Serial Number (SN) Menggunakan Nama di Visual Basic 6.0, sebelum lanjut ke tutorial Cara Membuat Serial Number (SN) Menggunakan Nama di Visual Basic 6.0 saya akan menjelaskan sedikit apa itu tentang Serial Number, silahkan simak di bawah ini.

Pengertian Serial Number

Serial Number ialah beberapa kode unik atau sekumpulan karakter yang sangat unik yang bisa terdiri dari Alfabet, Nomor, dan Symbol, Serial Number biasa di gunakan pada barang penjualan yang menjadi penanda pada barang tersebut.

Serial Number bisa juga di jadikan sebagai lisensi software atau aplikasi yang berbayar yang bisa dimanfaatkan oleh programer atau sang pembuat software atau aplikasi tersebut untuk mengambil untung dari dari software atau aplikasi yang di jualnya.

Cara Membuat Serial Number Menggunakan Nama

Buka Visual Basic 6.0 kalian
Siapkan 2 TextBox, 2 Label dan 1 CommandButton

Textbox1 :

(Name) = txtName

aligntment = 2-center

text = Username

TextBox2 :

(Name) = txtKey

aligntment = 2-center

text = Serial Number

CommandButton :

(Name) = Command1

Caption = Generate

Label1 :

(Name) = Label1

Caption = Nama

Label2 :

(Name) = Label2

Caption = Serial Number

Selanjutnya klik kanan pada Form tersebut lalu pilih View Code dan Copykan kode dibawah ini lalu Pastekan tepat di bagian kode (lihat gambar 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

Jika sudah selesai jalankan program anda dan coba masukan nama anda dan klik generate maka Serial Number nama anda akan keluar

Jadi Serial Number ialah salah satu aktifasi sebuah software yang di dapatkan secara sah dari pembuat software tersebut. Namun dengan menggunakan Serial Number ini bukan berarti software yang kita buat akan kuat akan tetapi tetap saja ada celah untuk di bajak.

Nah buat kalian yang mencoba Serial Number buatan saya silahkan ambil dibawah ini secara gratis

Download

Sekian Cara Membuat Serial Number (SN) Menggunakan Nama di Visual Basic 6.0, semoga artikel yang saya bagikan ini ,bermanfaat buat kalian semua dan selamat berkreasi buat kalian. Jika ada yang salah mohon koreksi dan tetap semangat.