Simple HWID System - VB.NET

Hello,

This is a really simple HWID System
You need:
-2 forms
-a fileave account (http://www.fileave.com) with a user.txt, pass.txt and hwid.txt file
-common sense

Forms:


For the second form put this as code for the button:

-Copy HWID

PHP Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  Dim cpuInfo As String = String.Empty
  Dim mc As New ManagementClass("win32_processor")
  Dim moc As ManagementObjectCollection = mc.GetInstances()

  For Each mo As ManagementObject In moc
    If cpuInfo = "" Then
    cpuInfo = mo.Properties("processorID").Value.ToString()
    Exit For
    End If
  Next
  Try
    My.Computer.Clipboard.SetText(cpuInfo)
    MsgBox("Copied")
  Catch ex As Exception
    MsgBox("Failed to copy")
  End Try
    End Sub 

-Check HWID

PHP Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  Dim cpuInfo As String = String.Empty
  Dim mc As New ManagementClass("win32_processor")
  Dim moc As ManagementObjectCollection = mc.GetInstances()

  For Each mo As ManagementObject In moc
    If cpuInfo = "" Then
    cpuInfo = mo.Properties("processorID").Value.ToString()
    Exit For
    End If
  Next

  Dim wc3 As New System.Net.WebClient
  Dim http3 As String = wc3.DownloadString("http://youracc.fileave.com/hwid.txt")

  If http3.Contains(cpuInfo) Then
    MsgBox("Your HWID is currently active",MsgBoxStyle.Information, "Check")
  Else
    MsgBox("Your HWID is not registered", MsgBoxStyle.Information, "Check")
  End If

    End Sub 

For the first form you put this for the login button:

PHP Code:

If TextBox1.Text = "" Or TextBox1.Text = "" Then
    MsgBox("Please enter Username/Password")
  End If

  Dim cpuInfo As String = String.Empty
  Dim mc As New ManagementClass("win32_processor")
  Dim moc As ManagementObjectCollection = mc.GetInstances()

  For Each mo As ManagementObject In moc
    If cpuInfo = "" Then
    cpuInfo = mo.Properties("processorID").Value.ToString()
    Exit For
    End If
  Next

  Dim wc3 As New System.Net.WebClient
  Dim user As String = wc3.DownloadString("http://youracc.fileave.com/user.txt")
  Dim pass As String = wc3.DownloadString("http://youracc.fileave.compass.txt")
  Dim hwid As String = wc3.DownloadString("http://youracc.fileave.com/hwid.txt")
  If user.Contains(":" & TextBox1.Text & ":") And pass.Contains(":" & TextBox2.Text & ":") And hwid.Contains(cpuInfo) Then
    Me.Hide()
    form1.Show()
  Else
    MsgBox("You don't have access")
  End If 

VERY IMPORTANT:

-Don't forget to change the links
-If you want to make an account for someone, add :username: in the user.txt file, :password: in the pass.txt file and just the HWID in hwid.txt
Why ":"? Because otherwise you just enter a letter and you can login.

This is a very simple HWID protection so I wouldn't use this for very big projects.

Posted in: coding-central, cpuid, file studios, filex, Home, hwid, login, programming, protection, safe, simple, system, tutorial, vb.net