[c#]hwid

            ManagementObjectCollection mbsList = null;
            ManagementObjectSearcher mbs = new ManagementObjectSearcher("Select * From Win32_processor");
            mbsList = mbs.Get();
            string id="";
            foreach (ManagementObject mo in mbsList)
            {
            id = mo["ProcessorID"].ToString();
            }

Public Function GetHWID() As String 
    Dim stringBuilder As StringBuilder = New StringBuilder()
    Try
        Dim managementObjectSearcher As ManagementObjectSearcher = New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_BIOS")
        For Each managementObject As ManagementObject In managementObjectSearcher.Get()
            stringBuilder.Append(managementObject("SerialNumber"))
        NextCatch (managementException1 As ManagementException)
        Dim managementException As ManagementException = managementException1
        Console.WriteLine(String.Concat("An error occurred while querying for WMI data: ", managementException.Message))
    End Try
    Try
        Dim managementObjectSearcher1 As ManagementObjectSearcher = New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_OperatingSystem")
        For Each managementObject1 As ManagementObject In managementObjectSearcher1.Get()
            stringBuilder.Append(managementObject1("SerialNumber"))
        NextCatch (managementException3 As ManagementException)
        Dim managementException2 As ManagementException = managementException3
        Console.WriteLine(String.Concat("An error occurred while querying for WMI data: ", managementException2.Message))
    End Try
    Dim sHA256CryptoServiceProvider As HashAlgorithm = New SHA256CryptoServiceProvider()
    sHA256CryptoServiceProvider.Initialize()
    Dim numArray As Byte() = sHA256CryptoServiceProvider.ComputeHash(Encoding.Unicode.GetBytes(stringBuilder.ToString()))
    Dim str As String = BitConverter.ToString(numArray)
    str = str.Replace("-", String.Empty)
    str = str.ToLower()
    Return str
End Function

    Private Function getHWID() As String
        Return MD5CalcString(GetProcessorId() + "-" + GetVolumeSerial() + "-" + GetMotherBoardID())
    End Function

    Private Function MD5CalcString(ByVal strData As String) As String
        Dim objMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim arrData() As Byte
        Dim arrHash() As Byte
        arrData = System.Text.Encoding.UTF8.GetBytes(strData)
        arrHash = objMD5.ComputeHash(arrData)
        objMD5 = Nothing
        Return ByteArrayToString(arrHash)
    End Function

    Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
        Dim strOutput As New System.Text.StringBuilder(arrInput.Length)
        For i As Integer = 0 To arrInput.Length - 1
            strOutput.Append(arrInput(i).ToString("X2"))
        Next
        Return strOutput.ToString().ToLower
    End Function

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