S> Loader + HWID GEN SOURCE CODE

    Private LocalDisk As String = "C:"""
    Private HardDisk As String
    Private Mac As String
    Private Proc As String
    Public HWID As String
    Public Sub GetHardwareID()

        ' Set Hardriveisnt
        Dim disk As New ManagementObject("win32_logicaldisk.deviceid=""" & LocalDisk)
        disk.[Get]()
        HardDisk = disk("VolumeSerialNumber").ToString()
        ' Set Hardrive

        ' Set Mac

        Dim mc As 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 = [String].Empty Then
                ' only return MAC Address from first card
                If CBool(mo("IPEnabled")) = True Then
                    MACAddress = mo("MacAddress").ToString()
                End If
            End If
        Next
        Mac = MACAddress.Replace(":", "")



        ' Set Mac

        ' Set Proc
        Dim cpuInfo As String = [String].Empty
        Dim temp As String = [String].Empty
        Dim wat As New ManagementClass("Win32_Processor")
        Dim mexican As ManagementObjectCollection = wat.GetInstances()
        For Each mf As ManagementObject In mexican
            If cpuInfo = [String].Empty Then
                cpuInfo = mf.Properties("ProcessorId").Value.ToString()
            End If
        Next
        Proc = cpuInfo
        ' Set Proc

        Dim hashit As String = [String].Empty
        Dim AE As New ASCIIEncoding()
        Dim shaM As SHA1 = New SHA1Managed()
        hashit = HardDisk & Proc & Mac
        Dim hashed As String = Convert.ToBase64String(shaM.ComputeHash(AE.GetBytes(hashit)))


        HWID = hashed
    End Sub