|
@@ -473,11 +473,13 @@ begin
|
|
|
// >= (Mac OS X 10.7+)
|
|
// >= (Mac OS X 10.7+)
|
|
|
if NSAppKitVersionNumber >= 1138 then // NSAppKitVersionNumber10_7
|
|
if NSAppKitVersionNumber >= 1138 then // NSAppKitVersionNumber10_7
|
|
|
begin
|
|
begin
|
|
|
|
|
+ writeln('SecRandomCopyBytes');
|
|
|
result := SecRandomCopyBytes(kSecRandomDefault, LongWord(len), data);
|
|
result := SecRandomCopyBytes(kSecRandomDefault, LongWord(len), data);
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
// fallback for when SecRandomCopyBytes API is not available
|
|
// fallback for when SecRandomCopyBytes API is not available
|
|
|
|
|
+ writeln('dev/urandom');
|
|
|
result := dev_random_device_read(len, data);
|
|
result := dev_random_device_read(len, data);
|
|
|
end;
|
|
end;
|
|
|
{$ELSE}
|
|
{$ELSE}
|
|
@@ -583,6 +585,7 @@ begin
|
|
|
|
|
|
|
|
if IsGetRandomSupportedOnOS then
|
|
if IsGetRandomSupportedOnOS then
|
|
|
begin
|
|
begin
|
|
|
|
|
+ writeln('getRandom');
|
|
|
while (len > 0) do
|
|
while (len > 0) do
|
|
|
begin
|
|
begin
|
|
|
|
|
|
|
@@ -604,6 +607,7 @@ begin
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
|
|
+ writeln('dev/urandom');
|
|
|
// fallback for when getrandom API is not available
|
|
// fallback for when getrandom API is not available
|
|
|
result := dev_random_device_read(len, data);
|
|
result := dev_random_device_read(len, data);
|
|
|
end;
|
|
end;
|