Source Registrasi Sofware Online VB.NET Dengan HWID

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,

mungkin buat para pengguna applikasi mig33 yang doyan nge "grepek Aplikasi mig33" sudah kenal
dengan metode ini, karna banyak programers app mig33 menggunakan cara ini,
dan bukan hal sulit untuk meng crack nyah, tentunyah tanpa proteksi tambahan,

berikut Review nyah,,



Full REVIEW Click Hare

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 "crack"

Orijinal Source...
Fla*