consistency fix.

CryptoLib/src/Interfaces/ClpIRandomNumberGenerator.pas

@@ -28,9 +28,9 @@ type
   IRandomNumberGenerator = interface(IInterface)
     ['{48F39DBB-8BE4-4167-8CE9-265F9B3B785E}']
 
-    procedure GetBytes(data: TCryptoLibByteArray);
+    procedure GetBytes(const data: TCryptoLibByteArray);
 
-    procedure GetNonZeroBytes(data: TCryptoLibByteArray);
+    procedure GetNonZeroBytes(const data: TCryptoLibByteArray);
 
   end;
 

CryptoLib/src/Utils/Rng/ClpOSRandomNumberGenerator.pas

@@ -34,9 +34,9 @@ type
   public
     constructor Create();
 
-    procedure GetBytes(data: TCryptoLibByteArray); override;
+    procedure GetBytes(const data: TCryptoLibByteArray); override;
 
-    procedure GetNonZeroBytes(data: TCryptoLibByteArray); override;
+    procedure GetNonZeroBytes(const data: TCryptoLibByteArray); override;
 
   end;
 
@@ -49,12 +49,12 @@ begin
   inherited Create();
 end;
 
-procedure TOSRandomNumberGenerator.GetBytes(data: TCryptoLibByteArray);
+procedure TOSRandomNumberGenerator.GetBytes(const data: TCryptoLibByteArray);
 begin
   TOSRandom.GetBytes(data);
 end;
 
-procedure TOSRandomNumberGenerator.GetNonZeroBytes(data: TCryptoLibByteArray);
+procedure TOSRandomNumberGenerator.GetNonZeroBytes(const data: TCryptoLibByteArray);
 begin
   TOSRandom.GetNonZeroBytes(data);
 end;

CryptoLib/src/Utils/Rng/ClpPCGRandomNumberGenerator.pas

@@ -34,9 +34,9 @@ type
   public
     constructor Create();
 
-    procedure GetBytes(data: TCryptoLibByteArray); override;
+    procedure GetBytes(const data: TCryptoLibByteArray); override;
 
-    procedure GetNonZeroBytes(data: TCryptoLibByteArray); override;
+    procedure GetNonZeroBytes(const data: TCryptoLibByteArray); override;
 
   end;
 
@@ -49,7 +49,7 @@ begin
   inherited Create();
 end;
 
-procedure TPCGRandomNumberGenerator.GetBytes(data: TCryptoLibByteArray);
+procedure TPCGRandomNumberGenerator.GetBytes(const data: TCryptoLibByteArray);
 var
   i: Int64;
 begin
@@ -62,7 +62,7 @@ begin
 
 end;
 
-procedure TPCGRandomNumberGenerator.GetNonZeroBytes(data: TCryptoLibByteArray);
+procedure TPCGRandomNumberGenerator.GetNonZeroBytes(const data: TCryptoLibByteArray);
 var
   i: Int64;
   val: Byte;

CryptoLib/src/Utils/Rng/ClpRandomNumberGenerator.pas

@@ -39,9 +39,9 @@ type
     class function CreateRNG(const rngName: String): IRandomNumberGenerator;
       overload; static;
 
-    procedure GetBytes(data: TCryptoLibByteArray); virtual; abstract;
+    procedure GetBytes(const data: TCryptoLibByteArray); virtual; abstract;
 
-    procedure GetNonZeroBytes(data: TCryptoLibByteArray); virtual; abstract;
+    procedure GetNonZeroBytes(const data: TCryptoLibByteArray); virtual; abstract;
 
   end;