Browse Source

minor fixes.

- loop range underflow fix
- fixed consistency with GetHashCode implementation.
Ugochukwu Mmaduekwe 7 years ago
parent
commit
1bbbd7d13e

+ 1 - 1
CryptoLib/src/Security/ClpCipherUtilities.pas

@@ -145,7 +145,7 @@ begin
   LowPoint := 1;
   HighPoint := System.Length(s);
 {$ENDIF DELPHIXE3_UP}
-  For i := LowPoint to System.Pred(HighPoint) do
+  For i := LowPoint to HighPoint do
   begin
     if (CharInSet(s[i], ['0' .. '9'])) then
     begin

+ 0 - 1
CryptoLib/src/Utils/Helpers/ClpStringHelper.pas

@@ -47,7 +47,6 @@ var
   LResult: UInt32;
 begin
   temp := Self;
-  temp := AnsiUpperCase(temp);
 
   LResult := 0;
 {$IFDEF DELPHIXE3_UP}