Fix TDECCipher.DecodeRawByteString

MHumm · May 5, 2024 · 927061b · 927061b
1 parent 8d37cac
commit 927061b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/DECCipherBase.pas b/Source/DECCipherBase.pas
@@ -1156,6 +1156,8 @@ function TDECCipher.DecodeRawByteString(const Source: RawByteString; Format: TDE
     // This has been fixed in 10.3.0 Rio
     b := ValidFormat(Format).Decode(BytesOf(Source));
 
+    SetLength(Result, Length(b));
+
     {$IFDEF HAVE_STR_LIKE_ARRAY}
     DoDecode(@b[0], @Result[Low(Result)], Length(Result) * SizeOf(Result[Low(Result)]));
     {$ELSE}