|
@@ -473,13 +473,11 @@ 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}
|
|
@@ -585,7 +583,6 @@ begin
|
|
|
|
|
|
|
|
if IsGetRandomSupportedOnOS then
|
|
if IsGetRandomSupportedOnOS then
|
|
|
begin
|
|
begin
|
|
|
- writeln('getRandom');
|
|
|
|
|
while (len > 0) do
|
|
while (len > 0) do
|
|
|
begin
|
|
begin
|
|
|
|
|
|
|
@@ -607,7 +604,6 @@ 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;
|