Range check fixed bugs

src/core/UBaseTypes.pas

@@ -218,7 +218,8 @@ begin
   Move(ASerialized[0],Lsize,2);
   if (2 + Lsize > Length(ASerialized)) then Exit(False);
   SetLength(Self,Lsize);
-  Move(ASerialized[2],Self[0],Lsize);
+  if Lsize>0 then
+    Move(ASerialized[2],Self[0],Lsize);
   Result := True;
 end;
 

src/core/UCrypto.pas

@@ -632,8 +632,9 @@ Var PS : PAnsiChar;
 begin
 {$IFDEF Use_OpenSSL}
   If length(ResultSha256)<>32 then SetLength(ResultSha256,32);
-  PS := @ResultSha256[Low(ResultSha256)];
-  SHA256(@TheMessage[Low(TheMessage)],Length(TheMessage),PS);
+  PS := @ResultSha256[0];
+  if length(TheMessage)=0 then SHA256(Nil,0,PS)
+  else SHA256(@TheMessage[0],Length(TheMessage),PS);
 {$ELSE}
   TPCCryptoLib4Pascal.DoSHA256(TheMessage,ResultSha256);
 {$ENDIF}