[VB.NET][TUT]Advanced HWID System

Hello, my name is DeBug! And Today I will will be teaching you how to make an advanced Hardware ID System(HWID)


First off, what is a HWID?


Good, Short explanation:
http://www.webopedia.com/TERM/H/HWID.html

Add:
Modules:
vBulletin
vbloginsystem
httpworker


I will not type the code, as you learn nothing from copy & paste.


All the imports:

Click this bar to view the original image of 587x355px.

Yes, I know there are many items to quote import

Next, this procedure calls to retrieve the user of the application hardware ID and recieves and and send an email.

Click this bar to view the original image of 722x357px.

This allows the program to decrypt and read MD5 Hash encryptions
and tells the user if they are connected to the internet

Click this bar to view the original image of 800x427px.

And the rest is pretty easy, i will type this code for you

Code:

Friend Function GetProcessorId() As String
        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject

        For Each info In search.Get()
            strProcessorId = info("processorId").ToString()
        Next
        Return strProcessorId

    End Function

    Friend Function GetMACAddress() As String

        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = String.Empty
        For Each mo As ManagementObject In moc

            If (MACAddress.Equals(String.Empty)) Then
                If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()

                mo.Dispose()
            End If
            MACAddress = MACAddress.Replace(":", String.Empty)

        Next
        Return MACAddress
    End Function

    Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String

        Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function

    Friend Function GetMotherBoardID() As String

        Dim strMotherBoardID As String = String.Empty
        Dim query As New SelectQuery("Win32_BaseBoard")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        For Each info In search.Get()

            strMotherBoardID = info("SerialNumber").ToString()

        Next
        Return strMotherBoardID

    End Function
    Public Function GetHDId() As String
        Dim tmpStr2 As String = ""
        Dim myScop As New Management.ManagementScope("\\" & Environment.MachineName & "\root\cimv2")
        Dim oQuer As New Management.SelectQuery("SELECT * FROM WIN32_DiskDrive")
        Dim oResult As New Management.ManagementObjectSearcher(myScop, oQuer)
        Dim oIte As Management.ManagementObject
        Dim oPropert As Management.PropertyData
        For Each oIte In oResult.Get()
            For Each oPropert In oIte.Properties
                If Not oPropert.Value Is Nothing AndAlso oPropert.Name = "Signature" Then
                    tmpStr2 = oPropert.Value.ToString
                    Exit For
                End If
            Next
        Next
        Return tmpStr2

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

        
        Button1.Enabled = False
        Timer1.Enabled = True
       

        TextBox1.Text = hwid

       



        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

        TextBox1.Text = cpuInfo & ComboBoxEx1.Text

        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("youremail", "emailspassword")
        SmtpServer.Port = 'THE PORT GOES HERE NO QUOTES OR PARENTHESIS'
        SmtpServer.Host = "HOST GOES HERE"
        SmtpServer.EnableSsl = True
        mail.To.Add("email that receives info")
        mail.From = New MailAddress("debug@sbmods.net")
        mail.Subject = "HWID"
        mail.Body = TextBox1.Text & ComboBoxEx1.Text
        SmtpServer.Send(mail)
        Dim wc3 As New System.Net.WebClient

        Dim http3 As String = wc3.DownloadString("URL TO DATABASE.TXT OR PHP")




        If http3.Contains(cpuInfo) Then



        Else
            MsgBox("Locked Due To Hardware ID Change", MsgBoxStyle.Information, "Check")
        End If



        If Login(ComboBoxEx1.Text, TextBoxX1.Text) Then

            Me.Hide()
            Form2.Show()

            Timer1.Enabled = True

















        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MessageBox.Show("Do you want to exit?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            End
        Else
        End If
    End Sub

Now all the code:
http://www.mediafire.com/?0i9026w41gtlrtp

IMAGES: