Skip to main content
Revision a5170a8249d01e4e9cf5890b49ff6623637df09b authored by erbsland-dev on 10 September 2024, 19:24:59 UTC, committed by Tomas Mraz on 13 September 2024, 08:13:16 UTC
Add Missing Error Messages for AES-OCB Tag Length Validation
Related to #8331
Addressing found issues by adding specific error messages to improve
feedback when tag length checks fail for the `EVP_CTRL_AEAD_SET_TAG`
parameter in the AES-OCB algorithm.

- Added PROV_R_INVALID_TAG_LENGTH error to indicate when the current tag
  length exceeds the maximum tag length of the algorithm.
- Added `PROV_R_INVALID_TAG_LENGTH` error to indicate when the current tag
  length in the context does not match a custom tag length provided as
  a parameter.
- Added `ERR_R_PASSED_INVALID_ARGUMENT` error to handle cases where an
  invalid pointer is passed in encryption mode.

Reviewed-by: Paul Dale <ppzgs1@gmail.com>
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/25425)

(cherry picked from commit 645edf50f0274448174d9739543bf01b1708b2f5)
1 parent 5cd025c
Raw File
build.info.in
SUBDIRS = man1

{-
 use File::Spec::Functions qw(:DEFAULT abs2rel rel2abs);
 use File::Basename;

 my $sourcedir = catdir($config{sourcedir}, 'doc');

 foreach my $section ((1, 3, 5, 7)) {
     my @imagefiles = ();
     my @htmlfiles = ();
     my @manfiles = ();
     my %pngfiles =
         map { $_ => 1 } glob catfile($sourcedir, "man$section", "img", "*.png");
     my %podfiles =
         map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod");
     my %podinfiles =
         map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod.in");

     foreach (keys %podinfiles) {
         (my $p = $_) =~ s|\.in$||i;
         $podfiles{$p} = 1;
     }

     foreach my $p (sort keys %podfiles) {
         my $podfile = abs2rel($p, $sourcedir);
         my $podname = basename($podfile, '.pod');
         my $podinfile = $podinfiles{"$p.in"} ? "$podfile.in" : undef;

         my $podname = basename($podfile, ".pod");

         my $htmlfile = abs2rel(catfile($buildtop, "doc", "html", "man$section",
                                        "$podname.html"),
                                catdir($buildtop, "doc"));
         my $manfile = abs2rel(catfile($buildtop, "doc", "man", "man$section",
                                       "$podname.$section"),
                               catdir($buildtop, "doc"));

         # The build.info format requires file specs to be in Unix format.
         # Especially, since VMS file specs use [ and ], the build.info parser
         # will otherwise get terribly confused.
         if ($^O eq 'VMS') {
             $htmlfile = VMS::Filespec::unixify($htmlfile);
             $manfile = VMS::Filespec::unixify($manfile);
             $podfile = VMS::Filespec::unixify($podfile);
             $podinfile = VMS::Filespec::unixify($podinfile)
                 if defined $podinfile;
         } elsif ($^O eq 'MSWin32') {
             $htmlfile =~ s|\\|/|g;
             $manfile =~ s|\\|/|g;
             $podfile =~ s|\\|/|g;
             $podinfile =~ s|\\|/|g
                 if defined $podinfile;
         }
         push @htmlfiles, $htmlfile;
         push @manfiles, $manfile;
         $OUT .= << "_____";
DEPEND[$htmlfile]=$podfile
GENERATE[$htmlfile]=$podfile
DEPEND[$manfile]=$podfile
GENERATE[$manfile]=$podfile
_____
         $OUT .= << "_____" if $podinfile;
DEPEND[$podfile]{pod}=$podinfile
GENERATE[$podfile]=$podinfile
_____
     }

     foreach my $p (sort keys %pngfiles) {
         my $relpath = abs2rel($p, $sourcedir);
         my $imagefile = abs2rel(catfile($buildtop, "doc", "$relpath"),
                                 catdir($buildtop, "doc"));
         push @imagefiles, $imagefile;
     }

     $OUT .= "IMAGEDOCS[man$section]=" . join(" \\\n", @imagefiles) . "\n";
     $OUT .= "HTMLDOCS[man$section]=" . join(" \\\n", @htmlfiles) . "\n";
     $OUT .= "MANDOCS[man$section]=" . join(" \\\n", @manfiles) . "\n";
 }
 -}
back to top