Code: Select all
include <sys/random.h>
unsigned char buffer[32];
ssize_t result = getrandom(buffer, sizeof(buffer), 0);
if (result != sizeof(buffer)) {
// handle error
}
Code: Select all
#define GetRandom BCryptGenRandom(hRand, Cast(Puchar, @Buffer(0)), 4*BufferSize, 0)Code: Select all
#ifdef __FB_LINUX__
#define GetRandom getrandom( Cast(Puchar, @Buffer(0)), 4*BufferSize, 0 )
#else
#define GetRandom BCryptGenRandom(hRand, Cast(Puchar, @Buffer(0)), 4*BufferSize, 0)
#endifCode: Select all
#Include Once "windows.bi"
#Inclib "bcrypt"
#Include Once "win/wincrypt.bi"So, it would work exactly like FB_RND_ (5)By default, getrandom() draws entropy from the urandom source (i.e., the same source as the /dev/urandom device).
Which is exactly what I want.angros47 wrote:Its purpose is to obtain a series of random values and put them in a buffer, not to use a specific algorithm.
That contradicts your quote above.So, it would work exactly like FB_RND_ (5)
That went down like a lead balloon.How many of you have the guts to stand next to me and say: "You're right - this forum is its own worst enemy."
Code: Select all
#Include Once "windows.bi"
#Inclib "bcrypt"
#Include Once "win/wincrypt.bi"
#define BufferSize 1024*1024
#undef Rnd
#define Rnd Rnd6
#define Range6 Rnd6Range
#define Range7 Rnd7Range
#define GetRandom BCryptGenRandom(hRand, Cast(Puchar, @Buffer(0)), 4*BufferSize, 0)
#macro Header
Static As Uint32 count
Static As Uint32 Buffer(BufferSize-1)
#endmacro
Namespace Globals
Dim As BCRYPT_ALG_HANDLE ptr hRand
Dim As Uint32 CounterIndex01, CounterIndexI, CounterIndexF
Dim As Int32 Seed01, SeedI, SeedF
End Namespace : Using Globals
Private Function Rnd6 As Double ' unseeded
Header
if count = 0 then GetRandom
function = Buffer(count)/2^32
count += 1 : if count = BufferSize then count = 0
End Function
Private Function Rnd7Count01 As Uint32
Function = CounterIndex01
End Function
Private Function Rnd7 As Double ' Rnd6 with seeding
Header
If count = 0 Or Seed01 = -1 Then GetRandom
If Seed01 = -1 Then ' ie Buffer refresh
Seed01 = 0 : count = 0
Else
count = Seed01
End If
Seed01+=1:If Seed01 >= BufferSize Then Seed01 = 1
Function = Buffer(Seed01)/2^32
count += 1:If count = BufferSize Then count = 0
CounterIndex01 = count
End Function
' Int32 range (unseeded)
Private Function Rnd6range Overload( First As Int32, Last As Int32 ) As Int32
Header
If First > Last then swap First, Last
if count = 0 then GetRandom
function = CLng( Buffer(count) Mod (Last-First+1)) + First ' Mod by dodicat
count += 1 : if count = BufferSize then count = 0
End Function
Private Function Rnd7CountI As Uint32
Function = CounterIndexI
End Function
' Int32 range (seeded)
Private Function Rnd7range Overload( First As Int32, Last As Int32 ) As Int32
Header
If First > Last Then Swap First, Last
If count = 0 Or SeedI = -1 Then GetRandom
If SeedI = -1 Then ' ie Buffer refresh
SeedI = 0 : count = 0
Else
count = SeedI
End If
SeedI+=1:If SeedI >= BufferSize Then SeedI = 1
Function = Clng( Buffer(SeedI) Mod (Last-First+1)) + First ' Mod by dodicat
count += 1 : If count = BufferSize Then count = 1
CounterIndexI = count
End Function
' Floating point range (unseeded)
Private Function Rnd6range Overload( First As Double, Last As Double ) As Double
Header
If First > Last Then Swap First, Last
if count = 0 then GetRandom
function = Buffer(count)/2^32 * ( Last - First ) + First
count += 1 : if count = BufferSize then count = 0
End Function
Private Function Rnd7CountF As Uint32
Function = CounterIndexF
End Function
' Floating point range (seeded)
Private Function Rnd7range Overload( First As Double, Last As Double ) As Double
Header
If First > Last Then Swap First, Last
If count = 0 Or SeedF = -1 Then GetRandom
If SeedF = -1 Then ' ie Buffer refresh
SeedF = 0 : count = 0
Else
count = SeedF
End If
SeedF+=1:If SeedF >= BufferSize Then SeedF = 1
Function = Buffer(SeedF)/2^32 * ( Last - First ) + First
count += 1 : If count = BufferSize Then count = 1
CounterIndexF = count
End Function
Sub on_init( ) constructor
BCryptOpenAlgorithmProvider(@hRand, BCRYPT_RNG_ALGORITHM, 0, 0)
End Sub
Sub on_exit( ) destructor
If hRand Then BCryptCloseAlgorithmProvider(hRand, 0)
End Sub