mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use isaac as fallback random generator

Browse source
This commit is contained in:
Alexander Koblov 2017-08-19 12:52:30 +00:00
commit 1920ea4606
1 changed files with 29 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/platform/urandom.pas
View file

@ -11,16 +11,22 @@ procedure Random(ABlock: PByte; ACount: Integer);
implementation
{$IF DEFINED(MSWINDOWS)}
uses
Windows;
ISAAC
{$IF DEFINED(MSWINDOWS)}
, Windows
{$ELSEIF DEFINED(UNIX)}
, DCOSUtils
{$ENDIF}
;
threadvar
Context: isaac_ctx;
{$IF DEFINED(MSWINDOWS)}
var
RtlGenRandom: function(RandomBuffer: PByte; RandomBufferLength: ULONG): LongBool; stdcall;
{$ELSEIF DEFINED(UNIX)}
uses
DCOSUtils;
const
random_dev = '/dev/urandom';
@ -30,7 +36,9 @@ var
procedure Random(ABlock: PByte; ACount: Integer);
var
I: THandle;
{$IF DEFINED(UNIX)}
Handle: THandle;
{$ENDIF}
Result: Boolean = False;
begin
{$IF DEFINED(MSWINDOWS)}
@ -39,16 +47,26 @@ begin
{$ELSEIF DEFINED(UNIX)}
if HasRandom then
begin
I:= mbFileOpen(random_dev, fmOpenRead or fmShareDenyNone);
Result:= (I <> feInvalidHandle);
Handle:= mbFileOpen(random_dev, fmOpenRead or fmShareDenyNone);
Result:= (Handle <> feInvalidHandle);
if Result then
begin
Result:= (FileRead(I, ABlock^, ACount) = ACount);
FileClose(I);
Result:= (FileRead(Handle, ABlock^, ACount) = ACount);
FileClose(Handle);
end;
end;
{$ENDIF}
if not Result then for I:= 0 to ACount - 1 do ABlock[I]:= Byte(System.Random(256));
if not Result then
begin
if (CompareDWord(Context.randrsl[0], Context.randrsl[128], 128) = 0) then
begin
isaac_inita({%H-}Context, [GetTickCount,
Integer(GetThreadID),
Integer(GetProcessID),
GetHeapStatus.TotalFree], 4);
end;
isaac_read(Context, ABlock, ACount);
end;
end;
initialization