F-5757 - Reject negative Size in Ada AES_Set_Cbc_Decrypt wrapper

2026-07-10 05:20:52 +02:00 · 2026-06-25 14:45:31 -07:00
parent bd18a9bfcc
commit c8ccffd84c
1 changed files with 4 additions and 0 deletions
@@ -1522,6 +1522,10 @@ package body WolfSSL is
                                  Size : Integer;
                                  Result : out Integer) is
   begin
+      if Size < 0 then
+         Result := Exception_Error;
+         return;
+      end if;
      declare
         R : int;
      begin