Olá pessoal!
Eu próprio não faço criptografia, mas minha pequena pesquisa pode muito bem ser útil. Decidi lidar com as funções internas do processador RDRAND e RDSEED. O compilador Delphi disse um identificador não declarado. Hmm O IMC, o IMC2, o AVX, o AVX2 e até o AVX-512 já existem há muito tempo e os Delphians adotaram o SSE4.2. Isso não importa. Nós mesmos compilamos o código.
Primeiro, verifiquei o suporte dessas funções pelo processador. Claro, CPUID. Você pode usar o CPUID começando com os primeiros processadores Pentium. Espero que ninguém pense em executar o CPUID em uma máquina 486, porque ela ainda não existe. A propósito, RDRAND e RDSEED antes dos processadores IvyBridge também não existem.
function CPU_support_RDRAND: Boolean; asm mov rax, $01 cpuid test ecx, 40000000h
Acontece que o meu Core i7 G6950X Extreme suporta esses recursos. Então, eu decidi compilar o bytecode manualmente. Para experientes, darei os prefixos de código REX e REX.W. Você pode escrever o resultado em um registro diferente:
const REX_RDRAND32: Byte = $F0;
As funções podem funcionar no modo de 32 bits e no modo de 64 bits. Portanto, eu fiz os dois, e até em duas versões. O resultado são 4 funções:
function RDRand32: DWord; asm @Retry: db $0F, $C7, $F0
Eles são mais lentos que a função de biblioteca Random. O RDRand é de cerca de 35% e o RDSeed é de 50% ou mais, mas a qualidade da exclusividade dos valores gerados é muito maior. Existem alguns bons artigos sobre esse assunto neste recurso, mas minha missão (disponibilizar funções no Delphi) foi concluída. Não testei em Lázaro, mas provavelmente funcionará sem nenhuma alteração. No final da declaração da função, você só precisa adicionar a palavra de backup assembler.
Aqui está o código fonte do aplicativo do console de teste. Lá você pode encontrar um protótipo das funções Random32 e Random64 com base no processador embutido. Talvez seja isso que você estava procurando. Tchau pessoal!