Hello, my name is SeverSided! 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:
What is HWID? - A Word Definition From the Webopedia Computer Dictionary
Add:
Modules:
vBulletin
vbloginsystem
httpworker
I will not type the code, as you learn nothing from copy & paste.
All the imports:
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.
This allows the program to decrypt and read MD5 Hash encryptions
and tells the user if they are connected to the internet
And the rest is pretty easy, i will type this code for you :68:
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("emailgoeshere")
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:
Download Attachment
IMAGES:
I do apologize as this is my first time ever making a tutorial so this is why i decided to give the source codes!(THIS TUT IS SLOPPY AND UNORGANIZED)
Please give credit it you use this, thanks
-Sever