Source Registrasi Sofware Online VB.NET Dengan HWID
cara sederhana mendaptkan HW ID, dan menjadikan nyah sebagey tolak ukur
untuk meregstrasi Sofware, Dan Sedikit Modipikasi Dengan Menambahkan Usser Dan Pass,
Imports System.IO
Imports System.Net
Imports System.Management
Public Class Form1
Dim PCID As String = ""
'pungsi untuk mendaptkan hadware ID
Private Function GetPCID()
Dim wc As New ManagementClass("win32_processor")
Dim ac As ManagementObjectCollection = wc.GetInstances()
For Each maho As ManagementObject In ac
If PCID = "" Then
PCID = maho.Properties("processorID").Value.ToString
Exit For
End If
Next
Return PCID
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
'tampilkan HWID saat aplikasi pertama kali di jalankan
TxtId.Text = "YOURID" & GetPCID()
End Sub
'buat pungsi pengecekan
Private Function checklogin(ByVal SetUser As String, ByVal SetPass As String) As Boolean
Dim login As String()
Dim wr As HttpWebRequest = HttpWebRequest.Create("http://SITEAMANG/REGBOS.txt")
Dim respon As HttpWebResponse = wr.GetResponse()
Dim sr As StreamReader = New StreamReader(respon.GetResponseStream())
While Not sr.EndOfStream
'seplit
login = sr.ReadLine.Split("|")
'periksa HWID
If login(0) = PCID Then
'perikasa usser
If SetUser = login(1) Then
'periksa pass
If SetPass = login(2) Then
Return True
End If
End If
End If
End While
'jika tidak berhasil kembalikan ke false
Return False
End Function
Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
Select Case checklogin(TxtUsser.Text, TxtPass.Text)
Case True
Form2.Show()
Me.Hide()
' LStatus.Text = "Login SuccsessFull"
Case False
LStatus.Text = "Login Failed"
End Select
End Sub
End Class
NOTE:
untuk bahan pembelajaran, sangat tidak di anjurkan untuk di terapkan ke sofware anda tanpa proteksi tambahan, karna sangat mudah di "c*a*k"
Orijinal Source...
Fla*
assasaha, proud to be a member of ForNesia Family since Jan 2014.
