Membuat "Licensing System" Sederhana Tapi KUAT
hay para developer :V
kali ini w akan bagi trik LICENSE SYSTEM kuat untuk aplikasi yang akan di jual... biasanya developer atau pengembang aplikasi membuat sistemnya masing-masing,,, tetapi kata orang "TIDAK ADA SYSTEM YANG AMAN" ????
ya... license sistem ini saya buat hasil pemikiran sendiri... memang tidak ada sistem yang aman :V tetapi ketahuilah sistemku sangat cerdas :V (kata kata dari kang Fachry Ansyah) :v
shit, kali ini gw akan share dengan Visual Basic.NET bagi lu yang pakai C# bisa di convert codenya paka Telerik Converter coeg... :)
1. Kita buat dulu program generatenya :V
di sini gw akan LOCK HWID nya.... biar serial key hanya untuk 1 pc,, dan tydack bisa di gunakan pc lain....
memang banyak cara untuk mengetahui HWID seseorang... TAPI LU TAU GA apa itu HWID ?
HWID itu Hardware Idenfitication coeg -_-
oke.. kali ini kita LOCK HWID motherboardnya... ya.. Mom I'd Like To Fuck (MILF)..
ANJIRR gagal fokus gw :V
taru ini di bagian atas Public Class
Imports System.Management
untuk mengetahui id motherboardnya
Friend Function MencariMotherBoardID() As String
'jadi hasil output akan menjadi sebuah data printable
' Friend Function bisa di ganti dengan Public atau Private.. sesuai kebutuhan
Dim id_motherboard_nya As String = String.Empty
'kita anggap id_motherboard_nya sebagai output nanti
Dim query As New SelectQuery("Win32_BaseBoard")
Dim cari As New ManagementObjectSearcher(query)
'mulai proses mencari hwidnya
Dim info As ManagementObject
For Each info In cari.Get()
id_motherboard_nya = info("SerialNumber").ToString()
'tahap ini mengkonversi hwidnya menjadi string atau data printable
Next
Return id_motherboard_nya
End Function
kira kira programnya seperti ini :
trus buat 1 label jadinya seperti ini
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
label1.text = MencariMorherBoardID()
End Sub
dan click f5 di keyboard.... dan hasilnya seperti ini :.
2. Membuat serial keynya :V
nahhh setelah itu gw asumsikan serial keynya adalah DIARI-ASIAN-SEK-RIA
ok.. kita buat 2 textbox dan 1 button (1 button untuk masukkan serial key dan 1 lagi untuk output md5)
taru di bagian atas Public Class
Imports System.Text
terus buat masukkan fungsi ini HASH MD5 :
Shared Function GetHash(ByVal theInput As String) As String
Dim Bytes() As Byte
Dim sb As New StringBuilder()
Bytes = Encoding.Default.GetBytes(theInput)
Bytes = Security.Cryptography.MD5.Create().ComputeHash(Bytes)
For x As Integer = 0 To Bytes.Length - 1
sb.Append(Bytes(x).ToString("x2"))
Next
Return sb.ToString()
End Function
mohon untuk mengerti semua fungsi dari kodenya :3 karena gw capek nulis 1per1 :v
terus masukkan kode ke button :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = GetHash(MencariMotherBoardID() + TextBox1.Text)
End Sub
jadi hasilnya seperti ini :V
6e838fc63d8250c3b2545a584f10e41d adalah hasil MD5 dari motherboard id dan serialkeynya...
ntaps...
3. Membuat Program User Inputnya :V
buat form atau project baru....
lalu buat 1 button dan textbox...
COPY SEMUA FUNCTION (gethash, dan motherboardid) ke program barunya
dan mauskkan kode ini ke button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim InputSerialKey As String = GetHash(MencariMotherBoardID() + TextBox1.Text)
If InputSerialKey = "6e838fc63d8250c3b2545a584f10e41d" Then
MsgBox("benar")
Else
MsgBox("salah")
End If
End Sub
lalu tekan f5.... maka saat kita memasukkan serial yang salah contohnya seperti di bawah :V... pesan salah akan muncul
dan saat kita memasukkan SERIAL KEY yang benar hasilnya seperti ini :
SISTEM ITU menurut saya sangat sederhana... kalo perlu di tambahin sistem ensripsi lagi.... dan jangan lupa Obfuscate kodenya....
semoga ada manfaatnya gayyysssssss :V
kali ini w akan bagi trik LICENSE SYSTEM kuat untuk aplikasi yang akan di jual... biasanya developer atau pengembang aplikasi membuat sistemnya masing-masing,,, tetapi kata orang "TIDAK ADA SYSTEM YANG AMAN" ????
ya... license sistem ini saya buat hasil pemikiran sendiri... memang tidak ada sistem yang aman :V tetapi ketahuilah sistemku sangat cerdas :V (kata kata dari kang Fachry Ansyah) :v
shit, kali ini gw akan share dengan Visual Basic.NET bagi lu yang pakai C# bisa di convert codenya paka Telerik Converter coeg... :)
1. Kita buat dulu program generatenya :V
di sini gw akan LOCK HWID nya.... biar serial key hanya untuk 1 pc,, dan tydack bisa di gunakan pc lain....
memang banyak cara untuk mengetahui HWID seseorang... TAPI LU TAU GA apa itu HWID ?
HWID itu Hardware Idenfitication coeg -_-
oke.. kali ini kita LOCK HWID motherboardnya... ya.. Mom I'd Like To Fuck (MILF)..
ANJIRR gagal fokus gw :V
taru ini di bagian atas Public Class
Imports System.Management
untuk mengetahui id motherboardnya
Friend Function MencariMotherBoardID() As String
'jadi hasil output akan menjadi sebuah data printable
' Friend Function bisa di ganti dengan Public atau Private.. sesuai kebutuhan
Dim id_motherboard_nya As String = String.Empty
'kita anggap id_motherboard_nya sebagai output nanti
Dim query As New SelectQuery("Win32_BaseBoard")
Dim cari As New ManagementObjectSearcher(query)
'mulai proses mencari hwidnya
Dim info As ManagementObject
For Each info In cari.Get()
id_motherboard_nya = info("SerialNumber").ToString()
'tahap ini mengkonversi hwidnya menjadi string atau data printable
Next
Return id_motherboard_nya
End Function
kira kira programnya seperti ini :
trus buat 1 label jadinya seperti ini
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
label1.text = MencariMorherBoardID()
End Sub
dan click f5 di keyboard.... dan hasilnya seperti ini :.
2. Membuat serial keynya :V
nahhh setelah itu gw asumsikan serial keynya adalah DIARI-ASIAN-SEK-RIA
ok.. kita buat 2 textbox dan 1 button (1 button untuk masukkan serial key dan 1 lagi untuk output md5)
taru di bagian atas Public Class
Imports System.Text
terus buat masukkan fungsi ini HASH MD5 :
Shared Function GetHash(ByVal theInput As String) As String
Dim Bytes() As Byte
Dim sb As New StringBuilder()
Bytes = Encoding.Default.GetBytes(theInput)
Bytes = Security.Cryptography.MD5.Create().ComputeHash(Bytes)
For x As Integer = 0 To Bytes.Length - 1
sb.Append(Bytes(x).ToString("x2"))
Next
Return sb.ToString()
End Function
mohon untuk mengerti semua fungsi dari kodenya :3 karena gw capek nulis 1per1 :v
terus masukkan kode ke button :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = GetHash(MencariMotherBoardID() + TextBox1.Text)
End Sub
jadi hasilnya seperti ini :V
6e838fc63d8250c3b2545a584f10e41d adalah hasil MD5 dari motherboard id dan serialkeynya...
ntaps...
3. Membuat Program User Inputnya :V
buat form atau project baru....
lalu buat 1 button dan textbox...
COPY SEMUA FUNCTION (gethash, dan motherboardid) ke program barunya
dan mauskkan kode ini ke button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim InputSerialKey As String = GetHash(MencariMotherBoardID() + TextBox1.Text)
If InputSerialKey = "6e838fc63d8250c3b2545a584f10e41d" Then
MsgBox("benar")
Else
MsgBox("salah")
End If
End Sub
lalu tekan f5.... maka saat kita memasukkan serial yang salah contohnya seperti di bawah :V... pesan salah akan muncul
dan saat kita memasukkan SERIAL KEY yang benar hasilnya seperti ini :
SISTEM ITU menurut saya sangat sederhana... kalo perlu di tambahin sistem ensripsi lagi.... dan jangan lupa Obfuscate kodenya....
semoga ada manfaatnya gayyysssssss :V
pekok nih :v omes mulu
ReplyDelete