[S]AutoIT HWID System

MsgBox(4096, '', 'HWID: ' & _HWID())

Local $sHWID = _HWID()
If _GetHWID($sHWID) Then
    MsgBox(4096, '', 'HWID Found.')
Else
    MsgBox(4096, '', 'HWID NOT Found.')
	Exit
EndIf

Func _GetHWID($sHWID)
    Local $aArray = StringSplit(StringToBinary(InetRead('http://xxx.de/hwid.txt')), @CRLF)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Return _ArraySearch($aArray, $sHWID) > -1
EndFunc   ;==>_GetHWID

Func _HWID()
    Local $sOSDrive = StringLeft(@SystemDir, 3)
    Local $sHWID = '0' & @CPUArch & @KBLayout & DriveGetSerial(@HomeDrive) & StringUpper(DriveGetType($sOSDrive)) & DriveSpaceTotal($sOSDrive)
    $sHWID = StringMid($sHWID, Round(StringLen($sHWID) / 2), Round(StringLen($sHWID) / 2))
    $sHWID = _StringReverse($sHWID)
    Return $sHWID
EndFunc   ;==>_HWID