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;