Intel在IVB架构的第三代CPU酷睿处理器（2012年开始生产）内置了一个利用电阻热噪声取得硬件真随机数的功能。

关于真随机数和伪随机数的区别，以及世上是否存在真随机数等哲学争论不在本文讨论范围。

下面给出delphi代码，一共4个函数，具体使用的是两个函数：

RdRand_isSupported 判断当前cpu是否支持该功能，

rdrand_16 取得16位随机数到aex寄存器，如果要取32位或者64位的随机数，请自行参考intel开发手册修改相应的指令。另外该函数内没有判断cpu是否支持该指令，所以请在程序开始阶段或者其他相应地方调用RdRand_isSupported来判断cpu是否支持该功能。

function GetCpuId(): UINT;
var
  bException: BOOL;
  //szCpu: array [0 .. 15] of BYTE;
  uCpuID: UINT;
begin
  Result := 0;
 // ZeroMemory(@szCpu, sizeof(szCpu));
  uCpuID := 0;
  bException := true;

  try
    asm
      mov eax, 1
      cpuid
   {   mov dword ptr szCpu[0], ebx
      mov dword ptr szCpu[4], edx
      mov dword ptr szCpu[8], ecx
      mov eax, 1
      cpuid  }
      mov uCpuID, ecx
    end;
  except
    bException := false;
  end;

  if bException then
    Result := uCpuID;
end;

function GetCpuName(): string;
var
  bException: BOOL;
  szCpu: array [0 .. 15] of BYTE;
 // uCpuID: UINT;
begin
  Result := ‘‘;
  ZeroMemory(@szCpu, sizeof(szCpu));
 // uCpuID := 0;
  bException := true;

  try
    asm
      mov eax, 0
      //cpuid
      db 0fh,0a2h
      mov dword ptr szCpu[0], ebx
      mov dword ptr szCpu[4], edx
      mov dword ptr szCpu[8], ecx
    //  mov eax, 1
    //  cpuid
   //   mov uCpuID, edx
    end;
  except
    bException := false;
  end;

  if bException then
   begin
    Result := StrPas(PAnsiChar(@szCpu));

   end;
end;

function RdRand_isSupported: boolean;
var info: dword;
    ss: string;
begin
  ss:= GetCpuName;
  if pos(‘Intel‘,ss)=0 then
   begin
     result:= false;
     exit;
   end;

    info:= GetCpuId;

  //   showmessage(INTTOSTR(info));

    if info and $40000000=$40000000 then
    result:= true
    else
     result:= false;

end;

function rdrand_16: dword; //取得一个16位的随机数
asm
db $0f, $c7, $f0
end;

Intel 第三代CPU酷睿处理器内置硬件随机数的获取方法