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

Update Renegade.Random.URandom.pas

This commit is contained in:
R. Eric Wheeler 2020-05-13 16:36:40 +00:00
parent fbc9aa0ca6
commit 4f09e7deb6
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Renegade.Random.URandom.pas
View File

@ -102,7 +102,6 @@ begin
begin begin
if FileExists('/dev/urandom') then if FileExists('/dev/urandom') then
begin begin
Writeln('URandom');
Buffer := TFileStream.Create('/dev/urandom', fmOpenRead); Buffer := TFileStream.Create('/dev/urandom', fmOpenRead);
Buffer.Position := 0; Buffer.Position := 0;
ReadBytes := 0; ReadBytes := 0;
@ -115,7 +114,6 @@ begin
end end
else if (not FileExists('/dev/udrandom')) then else if (not FileExists('/dev/udrandom')) then
begin begin
Writeln('Random');
RandomByteBuffer := MTRandomBytes((NBytes*2)); RandomByteBuffer := MTRandomBytes((NBytes*2));
end else end else
begin begin