Servs ePvPler,
Ich bin auf der Suche nach einem kleinem simplem HWID System, da meins irgendwie nicht laufen möchte
Evtl findet auch einer den Fehler?
Code:
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://***.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
Würde ka ~50 eg geben wenn mir einer helfen kann oder mir ein anderen ähnlich strukturiertes HWID system geben kann.