Merge pull request #69 from danielmarschall/patch-4

Fix TDECCipher.DecodeRawByteString
MHumm · Dec 24, 2024 · a83963b · a83963b
2 parents 6c824e7 + 927061b
commit a83963b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/DECCipherBase.pas b/Source/DECCipherBase.pas
@@ -1186,6 +1186,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}