CPUID Code funktioniert nicht

[lkz633]

Hallo,

habe folgenden Code, um die CPU ID auszulesen:

Delphi-Quellcode:

function IsCPUID_Available: Boolean; register;
asm
PUSHFD             {direct access to flags no possible, only via stack}
POP     EAX        {flags to EAX}
MOV     EDX,EAX    {save current flags}
XOR     EAX,ID_BIT {not ID bit}
PUSH    EAX        {onto stack}
POPFD              {from stack to flags, with not ID bit}
PUSHFD             {back to stack}
POP     EAX        {get back to EAX}
XOR     EAX,EDX    {check if ID bit affected}
JZ      @exit      {no, CPUID not availavle}
MOV     AL,True    {Result=True}
@exit:
end;

function GetCPUID: TCPUID; assembler; register;
asm
PUSH    EBX       {Save affected register}
PUSH    EDI
MOV     EDI,EAX   {@Resukt}
MOV     EAX,1
DW      $A20F     {CPUID Command}
STOSD             {CPUID[1]}
MOV     EAX,EBX
STOSD             {CPUID[2]}
MOV     EAX,ECX
STOSD             {CPUID[3]}
MOV     EAX,EDX
STOSD             {CPUID[4]}
POP     EDI       {Restore registers}
POP     EBX
end;

function CPUIP: string;
//IntToPos ist notwendig, da in extrem seltenen Fällen negative CPU-ID's vorkommen
  function IntToPos(Value: Integer): integer; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;
  function IntToPos(Value: Int64): int64; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;
begin
  if IsCPUID_Available then
    result := IntToStr(IntToPos(GetCPUID[1])) + IntToStr(IntToPos(GetCPUID[2]))
      + IntToStr(IntToPos(GetCPUID[3])) + IntToStr(IntToPos(GetCPUID[4]))
  else
    result := '175021702841343820673'; //Dummywert
end;

Habe gedacht dies ist ein funktionierender Code(Quelle weiss ich nicht mehr), leider scheint der Code nicht zu funktionieren.
Auf 3 Rechnern, die mit Images erstellt worden, liefert der Code jedesmal dieselbe ID.

Es wäre sehr nett, wenn jemand mit Assembler Kenntnissen mal genau schauen könnte, was der Code genau macht.

Sollte der auf allen Boards laufen? Was ist mit Dual-Prozessoren?

Welche alternative Möglichkeit bleibt für eine halbwegs eindeutige ID?
Aus dem Thread "Eindeutige ID" blieb nur die Festplattennummer übrig, oder?
(Ich weiss, nach Formatierung wieder geaendert)

Viele Gruesse
lkz633

[Daniel G]

Suche doch hier im Forum mal nach "CPUID" von scp. Das sollte dir eigentlich helfen.

Zu den Dual - Prozessoren:

Der CPUID - Code / Assembler wirkt natürlich nur auf dem Prozessor, auf dem das Programm auch läuft. Insofern bekommst du immer nur den Wert eines Prozessors. Was du unter NT-Systemen machen kannst, ist dein Programm (oder vielmehr den Prozesss) auf einen anderen Prozessor laufen zu lassen.

[taktaky]

Hallo,

vielleicht können Sie mir über die Format meiner CPU-ID helfen?
da:
http://www.delphipraxis.net/internal...=767325#767325

Gruß

[Muetze1]

Auch wenn es alt ist und nur ausgegraben wurde, es wird ja anscheinend immernoch gefunden. Von daher...

Zitat von lkz633:

Delphi-Quellcode:

//IntToPos ist notwendig, da in extrem seltenen Fällen negative CPU-ID's vorkommen
  function IntToPos(Value: Integer): integer; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;
  function IntToPos(Value: Int64): int64; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;

Was für ein Müll. Dann sollte er (der Original Author, der Threadersteller hat ihn auch nur gefunden) einfach mal ein LongWord anstatt einem LongInt/Integer nehmen, dann hat er auch kein Problem mit dem Vorzeichen...

Zitat von lkz633:

Auf 3 Rechnern, die mit Images erstellt worden, liefert der Code jedesmal dieselbe ID.

Dreimal der gleiche Prozessor. Es wird schliesslich nicht die Seriennummer ermittelt (die ja nach Protesten bei den meisten BIOS Herstellern per default ausgeschaltet wird) sondern die reine Typ, Familie, ID Kombination + Vendor. Da steckt nichts hinter...