盒子论坛 v2.1

{$R *.DFM}

type
  TCPUID  = array[1..4] of Longint;
  TVendor = array [0..11] of char;

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;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  CPUID : TCPUID;
  I     : Integer;
  S     : TVendor;
begin
  for I := Low(CPUID) to High(CPUID)  do CPUID[I] := -1;
  CPUID := GetCPUID;
  Label1.Caption := IntToHex(CPUID[1],8) + IntToHex(CPUID[2],8) + IntToHe　　　　　　　　　x(CPUID[3],8) + IntToHex(CPUID[4],8);
end
----------------------------------------------
因为笨，所以问！

作者：

shaoyy (远洋)	★☆☆☆☆	-
	盒子活跃会员

2004/5/18 12:00:09

1楼：

CPUID指令只有P3系列的CPU支持，但是没多久又取消了，后来的P3及P4都没有ID的（有没有这条指令不知道），据说是因为个人隐私问题,如果想用CPU ID来加密或作其它用途是不可行的。
----------------------------------------------
www.acreport.com

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/5/18 12:14:38

2楼：

那高手你认为用什么来加密是可行的呢？
----------------------------------------------
因为笨，所以问！

作者：

dacsd (ddd)	★☆☆☆☆	-
	盒子活跃会员

2004/5/25 8:20:14

3楼：

其实P4也能取出ID，但是，同一批机器ID是相同的，硬盘比较可靠。
----------------------------------------------
-

信息

登陆以后才能回复