[S]AutoIT HWID System

[I_am_a_Panda]

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?

 Spoiler

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.

[Lumi]

Pushen ist nur jede 4 Stunden erlaubt!

-> PN mich, ich hätte da was für dich.