hwid generator

[legend]

Hi. I'm in the need of a hardware ID generator, that does not change, when the pc is reinstalled, drivegetserial, is not an option, since it is assigned by windows.

and the cpu id is not unique.

whats your thoughts about this, using cpu + bios version?

any better suggestions.

I got this for getting the cpu id, however it's not unique.

Func _GetHWID($sHWID)
$sHWID = 'ExampleID'
Local $sData = $sHWID & @CRLF
Local $aArray = StringSplit($sData, @CRLF)
If @error Then
Return SetError(1, 0, 0)
EndIf
Return _ArraySearch($aArray, $sHWID) > -1
EndFunc ;==>_GetHWID

Func _HWID()
$cpu = GetProcessorId()
$reversehwid = _StringReverse($cpu)

Return $reversehwid
EndFunc ;==>_HWID

Func GetProcessorId()
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", 0x10 + 0x20)
If IsObj($colItems) Then
For $objItem In $colItems
Local $PROC_ID = $objItem.ProcessorId
Next
Return $PROC_ID
Else
Return 0
EndIf
EndFunc ;==>GetProcessorId

maybe someone knows how I can get the bios version/id, or got better suggestion for a hardware id generator

[legend]

I this the cpu method, would be good combined with:

Dim $bin = _BaseBoard_Properties()
$board = $bin

Func _BaseBoard_Properties()
Local $a_Text = ''
Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\cimv2');
If (IsObj($Obj_WMIService)) And (Not @error) Then
Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from Win32_BaseBoard')

Local $Obj_Item
For $Obj_Item In $Col_Items
$a_Text = $Obj_Item.Product
Next

Return String($a_Text)
Else
Return 0
EndIf
EndFunc ;==>_BaseBoard_Properties


MsgBox(64, 'Info', $bin)

[legend]

This is what I ended up with:

expandcollapse popup

#include 
#include 

Dim $bin = _BaseBoard_Properties()
$board = $bin

Func _BaseBoard_Properties()
Local $a_Text = ''
Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\cimv2');
If (IsObj($Obj_WMIService)) And (Not @error) Then
Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from Win32_BaseBoard')

Local $Obj_Item
For $Obj_Item In $Col_Items
$a_Text = $Obj_Item.Product
Next

Return String($a_Text)
Else
Return 0
EndIf
EndFunc ;==>_BaseBoard_Properties


Func _GetHWID($sHWID)
$sHWID = 'ExampleID'
Local $sData = $sHWID & @CRLF
Local $aArray = StringSplit($sData, @CRLF)
If @error Then
Return SetError(1, 0, 0)
EndIf
Return _ArraySearch($aArray, $sHWID) > -1
EndFunc ;==>_GetHWID

Func _HWID()
$cpu = GetProcessorId()
Return $cpu
EndFunc ;==>_HWID

Func GetProcessorId()
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", 0x10 + 0x20)
If IsObj($colItems) Then
For $objItem In $colItems
Local $PROC_ID = $objItem.ProcessorId
Next
Return $PROC_ID
Else
Return 0
EndIf
EndFunc ;==>GetProcessorId

$cpu = _HWID()
$motherboard = _BaseBoard_Properties()

$info = $cpu & $motherboard
$reverse = _StringReverse($info)
$encrypt = _StringEncrypt(1, $reverse, "123xxx321")
MsgBox("","",$encrypt)

[legend]

I guess it would only be the same, in case 2 computers had the same cpu and motherboard. sorry for writing with myself ^.^

Edited April 4, 2013 by legend

[guinness]

There is a different approach I came up with. You can find it in my signature and doesn't rely on WMI.