util/mk-fipsmodule-cnf.pl

   1 #! /usr/bin/env perl
   2 # Copyright 2021-2023 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the Apache License 2.0 (the "License").  You may not use
   5 # this file except in compliance with the License.  You can obtain a copy
   6 # in the file LICENSE in the source distribution or at
   7 # https://www.openssl.org/source/license.html
   8
   9 use Getopt::Long;
  10
  11 # Module options for pedantic FIPS mode
  12 # self_test_onload happens if install_mac isn't included, don't add it below
  13 my $conditional_errors = 1;
  14 my $security_checks = 1;
  15 my $ems_check = 1;
  16 my $drgb_no_trunc_dgst = 1;
  17
  18 my $activate = 1;
  19 my $mac_key;
  20 my $module_name;
  21 my $section_name = "fips_sect";
  22
  23 GetOptions("key=s"              => \$mac_key,
  24            "module=s"           => \$module_name,
  25            "section_name=s"     => \$section_name)
  26     or die "Error when getting command line arguments";
  27
  28 my $mac_keylen = length($mac_key);
  29
  30 use Digest::SHA qw(hmac_sha256_hex);
  31 my $module_size = [ stat($module_name) ]->[7];
  32
  33 open my $fh, "<:raw", $module_name or die "Trying to open $module_name: $!";
  34 read $fh, my $data, $module_size or die "Trying to read $module_name: $!";
  35 close $fh;
  36
  37 # Calculate HMAC-SHA256 in hex, and split it into a list of two character
  38 # chunks, and join the chunks with colons.
  39 my @module_mac
  40     = ( uc(hmac_sha256_hex($data, pack("H$mac_keylen", $mac_key))) =~ m/../g );
  41 my $module_mac = join(':', @module_mac);
  42
  43 print <<_____;
  44 [$section_name]
  45 activate = $activate
  46 conditional-errors = $conditional_errors
  47 security-checks = $security_checks
  48 tls1-prf-ems-check = $ems_check
  49 drbg-no-trunc-md = $drgb_no_trunc_dgst
  50 module-mac = $module_mac
  51 _____