Olive
/
Olive.Random
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added GetSystemBytes for BSD Unit

This commit is contained in:
R. Eric Wheeler 2016-05-04 14:34:19 -07:00
parent 5e88923de4
commit d9678a6260
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Renegade.Random.BSDRandom.pas
View File

@ -57,11 +57,22 @@ type
function GetString(NBytes : SizeUInt) : AnsiString; function GetString(NBytes : SizeUInt) : AnsiString;
end; end;
procedure arc4random_buf(var Buffer : PCChar; StringLength : SizeInt); procedure arc4random_buf(var Buffer : PCChar; StringLength : CInt);
cdecl;varargs;external 'c' name 'arc4random_buf'; cdecl;varargs;external 'c' name 'arc4random_buf';
implementation implementation
function GetSystemBytes(var RandomByteBuffer : TBytes; NBytes : SizeUint) : CInt;
begin
arc4random_buf(@RandomByteBuffer^, NBytes);
if Length(RandomByteBuffer^) <> NBytes then
begin
Result := -1;
end else
begin
Result := Length(RandomByteBuffer^);
end;
end;
function BSDRandom.GetBytes(NBytes : SizeUInt) : TBytes; function BSDRandom.GetBytes(NBytes : SizeUInt) : TBytes;
var var