PureBasic Forums - English

Code: Select all

; from wikipedia
; The RDSEED instruction was added to Intel Secure Key
; For seeding another pseudorandom number generator, available in Broadwell CPUs. 
Global RDSEED.i
!XOR Rax, Rax
!XOR Rdx, Rdx
!XOR Rbx, Rbx
!XOR Rcx, Rcx
!INC Eax
!INC Eax
!INC Eax
!INC Eax
!INC Eax
!INC Eax
!INC Eax ;7
!CPUID
!XOR Rax, Rax
!XOR Rdx, Rdx
!XOR Rcx, Rcx
!INC Rdx
!INC Rcx
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl ; 5
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl ; 10
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl
!SHL Rdx, cl ; 15
!SHL Rdx, cl ; 16
!SHL Rdx, cl ; 17
!SHL Rdx, cl ; 18
!AND Ebx, Edx
!CMP Ebx, Edx
!JNE not_support_RDSEED
!INC Rax
!not_support_RDSEED:
!MOV [v_RDSEED], Rax
;
!XOR Rax, Rax
!XOR Rdx, Rdx
!XOR Rbx, Rbx
!XOR Rcx, Rcx
If Not RDSEED
  MessageRequester("ERROR", "This CPU can't support RDSEED.", #PB_MessageRequester_Ok|#PB_MessageRequester_Error)
  End
EndIf

Procedure Test()
  Protected Random_seed.i
  !XOR Rax, Rax
  !MOVNTI [p.v_Random_seed], Rax
  !RDSEED Rax
  !MOVNTI [p.v_Random_seed], Rax
  RandomSeed(Random_seed)
EndProcedure

Test()

; OR

Global Random_seed.i
!XOR Rax, Rax
!MOVNTI [v_Random_seed], Rax
!RDSEED Rax
!MOVNTI [v_Random_seed], Rax
RandomSeed(Random_seed)