some minor refactorings.

Author: Xor-el

HashLib.Tests/src/CryptoTests.pas

@@ -2718,7 +2718,7 @@ procedure TTestBlake2B.TestNullKeyVsUnKeyed;
 procedure TTestBlake2B.SetUp;
 var
   LIdx: Int32;
-  LConfig: TBlake2BConfig;
+  LConfig: IBlake2BConfig;
   LKey: TBytes;
 begin
   inherited;
@@ -2857,7 +2857,7 @@ procedure TTestBlake2S.TestNullKeyVsUnKeyed;
 procedure TTestBlake2S.SetUp;
 var
   LIdx: Int32;
-  LConfig: TBlake2SConfig;
+  LConfig: IBlake2SConfig;
   LKey: TBytes;
 begin
   inherited;

HashLib/src/Base/HlpHashFactory.pas

@@ -1173,25 +1173,25 @@ class function THashFactory.TCrypto.CreateBlake2B(const AConfig: IBlake2BConfig;
 class function THashFactory.TCrypto.CreateBlake2B_160: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2B
-    (TBlake2BConfig.Create(THashSize.hsHashSize160));
+    (TBlake2BConfig.Create(THashSize.hsHashSize160) as IBlake2BConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2B_256: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2B
-    (TBlake2BConfig.Create(THashSize.hsHashSize256));
+    (TBlake2BConfig.Create(THashSize.hsHashSize256) as IBlake2BConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2B_384: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2B
-    (TBlake2BConfig.Create(THashSize.hsHashSize384));
+    (TBlake2BConfig.Create(THashSize.hsHashSize384) as IBlake2BConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2B_512: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2B
-    (TBlake2BConfig.Create(THashSize.hsHashSize512));
+    (TBlake2BConfig.Create(THashSize.hsHashSize512) as IBlake2BConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2S(const AConfig: IBlake2SConfig;
@@ -1210,25 +1210,25 @@ class function THashFactory.TCrypto.CreateBlake2S(const AConfig: IBlake2SConfig;
 class function THashFactory.TCrypto.CreateBlake2S_128: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2S
-    (TBlake2SConfig.Create(THashSize.hsHashSize128));
+    (TBlake2SConfig.Create(THashSize.hsHashSize128) as IBlake2SConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2S_160: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2S
-    (TBlake2SConfig.Create(THashSize.hsHashSize160));
+    (TBlake2SConfig.Create(THashSize.hsHashSize160) as IBlake2SConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2S_224: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2S
-    (TBlake2SConfig.Create(THashSize.hsHashSize224));
+    (TBlake2SConfig.Create(THashSize.hsHashSize224) as IBlake2SConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2S_256: IHash;
 begin
   Result := THashFactory.TCrypto.CreateBlake2S
-    (TBlake2SConfig.Create(THashSize.hsHashSize256));
+    (TBlake2SConfig.Create(THashSize.hsHashSize256) as IBlake2SConfig);
 end;
 
 class function THashFactory.TCrypto.CreateBlake2BP(AHashSize: Int32;

HashLib/src/Crypto/HlpBlake2B.pas

@@ -2285,7 +2285,7 @@ function TBlake2BMACNotBuildInAdapter.Clone(): IHash;
 constructor TBlake2BMACNotBuildInAdapter.Create(const ABlake2BKey, ASalt,
   APersonalisation: THashLibByteArray; AOutputLengthInBits: Int32);
 var
-  LConfig: TBlake2BConfig;
+  LConfig: IBlake2BConfig;
 begin
   LConfig := TBlake2BConfig.Create(AOutputLengthInBits shr 3);
   LConfig.Key := ABlake2BKey;

HashLib/src/Crypto/HlpBlake2S.pas

@@ -2060,7 +2060,7 @@ function TBlake2SMACNotBuildInAdapter.Clone(): IHash;
 constructor TBlake2SMACNotBuildInAdapter.Create(const ABlake2SKey, ASalt,
   APersonalisation: THashLibByteArray; AOutputLengthInBits: Int32);
 var
-  LConfig: TBlake2SConfig;
+  LConfig: IBlake2SConfig;
 begin
   LConfig := TBlake2SConfig.Create(AOutputLengthInBits shr 3);
   LConfig.Key := ABlake2SKey;