Delphi Cryptographically Secure Random Number Generator that works on all paltforms

MultiPlatformCryptoRando.pas

// Tested on Windows, MacOS, Linux, and Android. From what I've read /dev/urandom works on iOS too.

unit MultiPlatformCryptoRando;

interface

uses System.Classes, System.SysUtils;

function CryptoRandoCardinal: Cardinal;
function CryptoRandoFloat: Single;
function CryptoRandoRange(max: Cardinal): Cardinal;

implementation

{$IFDEF MSWindows}
uses WinAPI.Security.Cryptography;
{$ENDIF}

function CryptoRandoRange(max: Cardinal): Cardinal;
begin
  Result := CryptoRandoCardinal mod Max;
end;

function CryptoRandoFloat: Single;
begin
  Result := CryptoRandoCardinal/4294967295;
end;

function CryptoRandoCardinal: Cardinal;
begin
{$IFDEF MSWindows}
  var b := TCryptographicBuffer.Create;
  try
  Result := b.GenerateRandomNumber;
  finally
    b.Free;
  end;
{$ENDIF}
{$IFDEF POSIX}
  var RandomStream := TFileStream.Create('/dev/urandom', fmOpenRead);
  try
    RandomStream.Read(Result, SizeOf(Result));
  finally
    RandomStream.Free;
  end;
{$ENDIF}
end;

end.