HWID Snippet

[giangnguyen]

Just a small snippet that I want to share

Func hwid()
    If StringInStr(@OSArch, "64") Then
        Global $das = RegRead("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat", "PrimaryAdapterString")
    Else
        Global $das = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat", "PrimaryAdapterString")
    EndIf
    $cpu = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
    $gpu = $das
    $bit = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "PROCESSOR_ARCHITECTURE")
    $bat = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct")
    $but = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer")
    $final = _Crypt_HashData($cpu & $gpu & $bit & "jigglyboii" & $bat & $but, $CALG_SHA1)
    Return $final
EndFunc

For "jigglyboii", put anything there, it is just to prevent "some level of" spoofing.