AutoHotkey Community

Proc2 := WMI_Query("root\cimv2", "Win32_Processor", "ProcessorID")

WMI_Query(Namespace, Class, Property)
{
   COM_Init()
   psvc := COM_GetObject("winmgmts:{impersonationLevel=impersonate}!\\." . Namespace)
   pset := COM_Invoke(psvc, "ExecQuery", "SELECT * FROM " . Class)
   penm := COM_Invoke(pset, "_NewEnum")
   Loop
      If   COM_Enumerate(penm, pobj) = 0
         sResult .= COM_Invoke(pitm:=COM_Invoke(pprs:=COM_Invoke(pobj, "Properties_"), "Item", Property), "Value") . SubStr(COM_Release(pitm) . COM_Release(pprs) . COM_Release(pobj),1,0) . "`n"
      Else   Break
   COM_Release(penm)
   COM_Release(pset)
   COM_Release(psvc)
   COM_Term()
   Return   sResult
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GUID() {
   VarSetCapacity(A,16), S := "12"
   DllCall("rpcrt4\UuidCreate","Str",A)
   Loop 16
      DllCall("msvcrt\sprintf", Str,S, Str,"%02x", "Uchar",*(&A+A_Index-1)), h .= S
   Return h
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GU = % GUID()
StringLen, ProcLen, Proc2
ProcLen/=2
StringLeft, Proc1, Proc2, %ProcLen%
StringTrimLeft, Proc2, Proc2, %ProcLen%

If Proc1 = %Proc2%
MsgBox, ProcessorID (or possible SN) `n= %Proc1%
Else
MsgBox, ProcessorID (or possible SN) `n= %Proc1%%Proc2%
MsgBox,  GUID = %GU%
;FileAppend, %GU% `n%Proc%, GU.txt
return

ProcID = BFEBFBFF00000F29
 
GUID = 3ddfc90449a2b24aa97847e768f04f44

VarSetCapacity(Serial,60)

Serial := (ProcID ^ GUID)
MsgBox, %Serial%

ProcID = BFEBFBFF00000F29
GUID = 3ddfc90449a2b24aa97847e768f04f44

Serial := HexXOR(ProcID,GUID)
MsgBox %Serial%

HexXOR(a,b) {
   Static S := 12
   VarSetCapacity(z,abs(StrLen(a)-StrLen(b)),Asc("0"))
   If (StrLen(a)>StrLen(b))
      b := b . z
   Else
      a := a . z
   Loop % StrLen(a)//2 {
      i := 2*A_Index-1
      x := "0x" . SubStr(a,i,2)
      y := "0x" . SubStr(b,i,2)
      DllCall("msvcrt\sprintf", Str,S, Str,"%02X",UInt,x^y)
      c .= S
   }
   Return c
}