/*

 * SHA-224 functions

 *

 * Copyright (C) 2011-2024, Joachim Metz <joachim.metz@gmail.com>

 *

 * Refer to AUTHORS for acknowledgements.

 *

 * This program is free software: you can redistribute it and/or modify

 * it under the terms of the GNU Lesser General Public License as published by

 * the Free Software Foundation, either version 3 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public License

 * along with this program.  If not, see <https://www.gnu.org/licenses/>.

 */

#include <common.h>

#include <byte_stream.h>

#include <memory.h>

#include <types.h>

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H )

#include <openssl/sha.h>

#elif defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_EVP_H )

#include <openssl/err.h>

#include <openssl/evp.h>

#endif

#include "libhmac_byte_stream.h"

#include "libhmac_definitions.h"

#include "libhmac_libcerror.h"

#include "libhmac_sha224_context.h"

#if !defined( LIBHMAC_HAVE_SHA224_SUPPORT )

/* FIPS 180-2 based SHA-224 functions

 */

/* The first 32-bits of the fractional parts of the square roots of the first 8 primes [ 2, 19 ]

 */

uint32_t libhmac_sha224_context_prime_square_roots[ 8 ] = {

  0xc1059ed8UL, 0x367cd507UL, 0x3070dd17UL, 0xf70e5939UL,

  0xffc00b31UL, 0x68581511UL, 0x64f98fa7UL, 0xbefa4fa4UL

};

/* The first 32-bits of the fractional parts of the cube roots of the first 64 primes [ 2, 311 ]

 */

uint32_t libhmac_sha224_context_prime_cube_roots[ 64 ] = {

  0x428a2f98UL, 0x71374491UL, 0xb5c0fbcfUL, 0xe9b5dba5UL,

  0x3956c25bUL, 0x59f111f1UL, 0x923f82a4UL, 0xab1c5ed5UL,

  0xd807aa98UL, 0x12835b01UL, 0x243185beUL, 0x550c7dc3UL,

  0x72be5d74UL, 0x80deb1feUL, 0x9bdc06a7UL, 0xc19bf174UL,

  0xe49b69c1UL, 0xefbe4786UL, 0x0fc19dc6UL, 0x240ca1ccUL,

  0x2de92c6fUL, 0x4a7484aaUL, 0x5cb0a9dcUL, 0x76f988daUL,

  0x983e5152UL, 0xa831c66dUL, 0xb00327c8UL, 0xbf597fc7UL,

  0xc6e00bf3UL, 0xd5a79147UL, 0x06ca6351UL, 0x14292967UL,

  0x27b70a85UL, 0x2e1b2138UL, 0x4d2c6dfcUL, 0x53380d13UL,

  0x650a7354UL, 0x766a0abbUL, 0x81c2c92eUL, 0x92722c85UL,

  0xa2bfe8a1UL, 0xa81a664bUL, 0xc24b8b70UL, 0xc76c51a3UL,

  0xd192e819UL, 0xd6990624UL, 0xf40e3585UL, 0x106aa070UL,

  0x19a4c116UL, 0x1e376c08UL, 0x2748774cUL, 0x34b0bcb5UL,

  0x391c0cb3UL, 0x4ed8aa4aUL, 0x5b9cca4fUL, 0x682e6ff3UL,

  0x748f82eeUL, 0x78a5636fUL, 0x84c87814UL, 0x8cc70208UL,

  0x90befffaUL, 0xa4506cebUL, 0xbef9a3f7UL, 0xc67178f2UL

};

#define libhmac_sha224_context_transform_extend_32bit_value( values_32bit, value_32bit_index, s0, s1 ) \

  s0 = byte_stream_bit_rotate_right_32bit( values_32bit[ value_32bit_index - 15 ], 7 ) \

     ^ byte_stream_bit_rotate_right_32bit( values_32bit[ value_32bit_index - 15 ], 18 ) \

     ^ ( values_32bit[ value_32bit_index - 15 ] >> 3 ); \

  s1 = byte_stream_bit_rotate_right_32bit( values_32bit[ value_32bit_index - 2 ], 17 ) \

     ^ byte_stream_bit_rotate_right_32bit( values_32bit[ value_32bit_index - 2 ], 19 ) \

     ^ ( values_32bit[ value_32bit_index - 2 ] >> 10 ); \

\

  values_32bit[ value_32bit_index ] = values_32bit[ value_32bit_index - 16 ] \

                                    + s0 \

                                    + values_32bit[ value_32bit_index - 7 ] \

                                    + s1

#define libhmac_sha224_context_transform_unfolded_extend_32bit_values( values_32bit, s0, s1 ) \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 16, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 17, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 18, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 19, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 20, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 21, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 22, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 23, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 24, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 25, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 26, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 27, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 28, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 29, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 30, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 31, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 32, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 33, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 34, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 35, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 36, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 37, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 38, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 39, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 40, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 41, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 42, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 43, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 44, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 45, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 46, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 47, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 48, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 49, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 50, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 51, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 52, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 53, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 54, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 55, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 56, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 57, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 58, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 59, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 60, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 61, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 62, s0, s1 ); \

  libhmac_sha224_context_transform_extend_32bit_value( values_32bit, 63, s0, s1 );

#define libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, value_32bit_index, hash_values, hash_value_index0, hash_value_index1, hash_value_index2, hash_value_index3, hash_value_index4, hash_value_index5, hash_value_index6, hash_value_index7, s0, s1, t1, t2 ) \

  s0 = byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index0 ], 2 ) \

     ^ byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index0 ], 13 ) \

     ^ byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index0 ], 22 ); \

  s1 = byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index4 ], 6 ) \

     ^ byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index4 ], 11 ) \

     ^ byte_stream_bit_rotate_right_32bit( hash_values[ hash_value_index4 ], 25 ); \

\

  t1  = hash_values[ hash_value_index7 ]; \

  t1 += s1; \

  t1 += ( hash_values[ hash_value_index4 ] & hash_values[ hash_value_index5 ] ) \

      ^ ( ~( hash_values[ hash_value_index4 ] ) & hash_values[ hash_value_index6 ] ); \

  t1 += libhmac_sha224_context_prime_cube_roots[ value_32bit_index ]; \

  t1 += values_32bit[ value_32bit_index ]; \

  t2  = s0; \

  t2 += ( hash_values[ hash_value_index0 ] & hash_values[ hash_value_index1 ] ) \

      ^ ( hash_values[ hash_value_index0 ] & hash_values[ hash_value_index2 ] ) \

      ^ ( hash_values[ hash_value_index1 ] & hash_values[ hash_value_index2 ] ); \

\

  hash_values[ hash_value_index3 ] += t1; \

  hash_values[ hash_value_index7 ]  = t1 + t2;

#define libhmac_sha224_context_transform_unfolded_calculate_hash_values( values_32bit, hash_values, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 0, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 1, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 2, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 3, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 4, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 5, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 6, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 7, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 8, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 9, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 10, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 11, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 12, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 13, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 14, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 15, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 16, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 17, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 18, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 19, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 20, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 21, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 22, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 23, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 24, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 25, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 26, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 27, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 28, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 29, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 30, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 31, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 32, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 33, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 34, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 35, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 36, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 37, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 38, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 39, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 40, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 41, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 42, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 43, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 44, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 45, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 46, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 47, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 48, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 49, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 50, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 51, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 52, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 53, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 54, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 55, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 56, hash_values, 0, 1, 2, 3, 4, 5, 6, 7, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 57, hash_values, 7, 0, 1, 2, 3, 4, 5, 6, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 58, hash_values, 6, 7, 0, 1, 2, 3, 4, 5, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 59, hash_values, 5, 6, 7, 0, 1, 2, 3, 4, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 60, hash_values, 4, 5, 6, 7, 0, 1, 2, 3, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 61, hash_values, 3, 4, 5, 6, 7, 0, 1, 2, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 62, hash_values, 2, 3, 4, 5, 6, 7, 0, 1, s0, s1, t1, t2 ) \

  libhmac_sha224_context_transform_unfolded_calculate_hash_value( values_32bit, 63, hash_values, 1, 2, 3, 4, 5, 6, 7, 0, s0, s1, t1, t2 )

/* Calculates the SHA-224 of 64 byte sized blocks of data in a buffer

 * Returns the number of bytes used if successful or -1 on error

 */

ssize_t libhmac_sha224_context_transform(

         libhmac_internal_sha224_context_t *internal_context,

         const uint8_t *buffer,

         size_t size,

         libcerror_error_t **error )

{

  uint32_t hash_values[ 8 ];

  uint32_t values_32bit[ 64 ];

  static char *function     = "libhmac_sha224_context_transform";

  uint32_t s0               = 0;

  uint32_t s1               = 0;

  uint32_t t1               = 0;

  uint32_t t2               = 0;

  size_t buffer_offset      = 0;

#if !defined( LIBHMAC_UNFOLLED_LOOPS )

  uint8_t hash_values_index = 0;

  uint8_t value_32bit_index = 0;

#endif

  if( internal_context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid internal context.",

     function );

    return( -1 );

  }

  if( buffer == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid buffer.",

     function );

    return( -1 );

  }

  if( size > (size_t) SSIZE_MAX )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_VALUE_EXCEEDS_MAXIMUM,

     "%s: invalid size value exceeds maximum.",

     function );

    return( -1 );

  }

  while( size >= LIBHMAC_SHA224_BLOCK_SIZE )

  {

    if( memory_copy(

         hash_values,

         internal_context->hash_values,

         sizeof( uint32_t ) * 8 ) == NULL )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_MEMORY,

       LIBCERROR_MEMORY_ERROR_COPY_FAILED,

       "%s: unable to copy hash values.",

       function );

      goto on_error;

    }

#if defined( LIBHMAC_UNFOLLED_LOOPS )

    /* Break the block into 16 x 32-bit values

     */

    libhmac_byte_stream_copy_to_16x_uint32_big_endian(

     &( buffer[ buffer_offset ] ),

     values_32bit );

    buffer_offset += LIBHMAC_SHA224_BLOCK_SIZE;

    /* Extend to 64 x 32-bit values

     */

    libhmac_sha224_context_transform_unfolded_extend_32bit_values(

     values_32bit,

     s0,

     s1 );

    /* Calculate the hash values for the 32-bit values

     */

    libhmac_sha224_context_transform_unfolded_calculate_hash_values(

     values_32bit,

     hash_values,

     s0,

     s1,

     t1,

     t2 );

    /* Update the hash values in the context

     */

    internal_context->hash_values[ 0 ] += hash_values[ 0 ];

    internal_context->hash_values[ 1 ] += hash_values[ 1 ];

    internal_context->hash_values[ 2 ] += hash_values[ 2 ];

    internal_context->hash_values[ 3 ] += hash_values[ 3 ];

    internal_context->hash_values[ 4 ] += hash_values[ 4 ];

    internal_context->hash_values[ 5 ] += hash_values[ 5 ];

    internal_context->hash_values[ 6 ] += hash_values[ 6 ];

    internal_context->hash_values[ 7 ] += hash_values[ 7 ];

#else

    /* Break the block into 16 x 32-bit values

     */

    for( value_32bit_index = 0;

         value_32bit_index < 16;

         value_32bit_index++ )

    {

      byte_stream_copy_to_uint32_big_endian(

       &( buffer[ buffer_offset ] ),

       values_32bit[ value_32bit_index ] );

      buffer_offset += sizeof( uint32_t );

    }

    /* Extend to 64 x 32-bit values

     */

    for( value_32bit_index = 16;

         value_32bit_index < 64;

         value_32bit_index++ )

    {

      libhmac_sha224_context_transform_extend_32bit_value(

       values_32bit,

       value_32bit_index,

       s0,

       s1 );

    }

    /* Calculate the hash values for the 32-bit values

     */

    for( value_32bit_index = 0;

         value_32bit_index < 64;

         value_32bit_index++ )

    {

      s0 = byte_stream_bit_rotate_right_32bit( hash_values[ 0 ], 2 )

         ^ byte_stream_bit_rotate_right_32bit( hash_values[ 0 ], 13 )

         ^ byte_stream_bit_rotate_right_32bit( hash_values[ 0 ], 22 );

      s1 = byte_stream_bit_rotate_right_32bit( hash_values[ 4 ], 6 )

         ^ byte_stream_bit_rotate_right_32bit( hash_values[ 4 ], 11 )

         ^ byte_stream_bit_rotate_right_32bit( hash_values[ 4 ], 25 );

      t1  = hash_values[ 7 ];

      t1 += s1;

      t1 += ( hash_values[ 4 ] & hash_values[ 5 ] )

          ^ ( ~( hash_values[ 4 ] ) & hash_values[ 6 ] );

      t1 += libhmac_sha224_context_prime_cube_roots[ value_32bit_index ];

      t1 += values_32bit[ value_32bit_index ];

      t2  = s0;

      t2 += ( hash_values[ 0 ] & hash_values[ 1 ] )

          ^ ( hash_values[ 0 ] & hash_values[ 2 ] )

          ^ ( hash_values[ 1 ] & hash_values[ 2 ] );

      hash_values[ 7 ] = hash_values[ 6 ];

      hash_values[ 6 ] = hash_values[ 5 ];

      hash_values[ 5 ] = hash_values[ 4 ];

      hash_values[ 4 ] = hash_values[ 3 ] + t1;

      hash_values[ 3 ] = hash_values[ 2 ];

      hash_values[ 2 ] = hash_values[ 1 ];

      hash_values[ 1 ] = hash_values[ 0 ];

      hash_values[ 0 ] = t1 + t2;

    }

    /* Update the hash values in the context

     */

    for( hash_values_index = 0;

         hash_values_index < 8;

         hash_values_index++ )

    {

      internal_context->hash_values[ hash_values_index ] += hash_values[ hash_values_index ];

    }

#endif /* defined( LIBHMAC_UNFOLLED_LOOPS ) */

    size -= LIBHMAC_SHA224_BLOCK_SIZE;

  }

  /* Prevent sensitive data from leaking

   */

  if( memory_set(

       hash_values,

       0,

       sizeof( uint32_t ) * 8 ) == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_MEMORY,

     LIBCERROR_MEMORY_ERROR_SET_FAILED,

     "%s: unable to clear hash values.",

     function );

    goto on_error;

  }

  if( memory_set(

       values_32bit,

       0,

       sizeof( uint32_t ) * 64 ) == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_MEMORY,

     LIBCERROR_MEMORY_ERROR_SET_FAILED,

     "%s: unable to clear 32-bit values.",

     function );

    goto on_error;

  }

  return( (ssize_t) buffer_offset );

on_error:

  memory_set(

   values_32bit,

   0,

   sizeof( uint32_t ) * 64 );

  memory_set(

   hash_values,

   0,

   sizeof( uint32_t ) * 8 );

  return( -1 );

}

#endif /* !defined( LIBHMAC_HAVE_SHA224_SUPPORT ) */

/* Creates a SHA-224 context

 * Make sure the value context is referencing, is set to NULL

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_initialize(

     libhmac_sha224_context_t **context,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_initialize";

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_EVP_H ) && defined( HAVE_EVP_SHA224 )

  const EVP_MD *evp_md_type                           = NULL;

#endif

  if( context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid context.",

     function );

    return( -1 );

  }

  if( *context != NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_VALUE_ALREADY_SET,

     "%s: invalid context value already set.",

     function );

    return( -1 );

  }

  internal_context = memory_allocate_structure(

                      libhmac_internal_sha224_context_t );

  if( internal_context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_MEMORY,

     LIBCERROR_MEMORY_ERROR_INSUFFICIENT,

     "%s: unable to create context.",

     function );

    goto on_error;

  }

  if( memory_set(

       internal_context,

       0,

       sizeof( libhmac_internal_sha224_context_t ) ) == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_MEMORY,

     LIBCERROR_MEMORY_ERROR_SET_FAILED,

     "%s: unable to clear context.",

     function );

    memory_free(

     internal_context );

    return( -1 );

  }

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH )

  if( SHA224_Init(

       &( internal_context->sha224_context ) ) != 1 )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_INITIALIZE_FAILED,

     "%s: unable to initialize context.",

     function );

    goto on_error;

  }

#elif defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_EVP_H ) && defined( HAVE_EVP_SHA224 )

#if defined( HAVE_EVP_MD_CTX_INIT )

  EVP_MD_CTX_init(

   &( internal_context->internal_evp_md_context ) );

  internal_context->evp_md_context = &( internal_context->internal_evp_md_context );

#else

  internal_context->evp_md_context = EVP_MD_CTX_new();

  if( internal_context->evp_md_context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_INITIALIZE_FAILED,

     "%s: unable to create EVP message digest context.",

     function );

    goto on_error;

  }

#endif /* defined( HAVE_EVP_MD_CTX_INIT ) */

/* TODO use EVP_MD_fetch for EVP_DigestInit_ex2 */

  evp_md_type = EVP_sha224();

#if defined( HAVE_EVP_DIGESTINIT_EX2 )

  if( EVP_DigestInit_ex2(

       internal_context->evp_md_context,

       evp_md_type,

       NULL ) != 1 )

#else

  if( EVP_DigestInit_ex(

       internal_context->evp_md_context,

       evp_md_type,

       NULL ) != 1 )

#endif

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_INITIALIZE_FAILED,

     "%s: unable to initialize context.",

     function );

#if defined( HAVE_EVP_MD_CTX_CLEANUP )

    EVP_MD_CTX_cleanup(

     &( internal_context->internal_evp_md_context ) );

    ERR_remove_thread_state(

     NULL );

#else

    EVP_MD_CTX_free(

     internal_context->evp_md_context );

#endif

    internal_context->evp_md_context = NULL;

    goto on_error;

  }

#else

  if( memory_copy(

       internal_context->hash_values,

       libhmac_sha224_context_prime_square_roots,

       sizeof( uint32_t ) * 8 ) == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_MEMORY,

     LIBCERROR_MEMORY_ERROR_COPY_FAILED,

     "%s: unable to copy initial hash values.",

     function );

    return( -1 );

  }

#endif /* defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH ) */

  *context = (libhmac_sha224_context_t *) internal_context;

  return( 1 );

on_error:

  if( internal_context != NULL )

  {

    memory_free(

     internal_context );

  }

  return( -1 );

}

/* Frees a SHA-224 context

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_free(

     libhmac_sha224_context_t **context,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_free";

  if( context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid context.",

     function );

    return( -1 );

  }

  if( *context != NULL )

  {

    internal_context = (libhmac_internal_sha224_context_t *) *context;

    *context         = NULL;

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH )

    /* No additional clean up necessary

     */

#elif defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_EVP_H ) && defined( HAVE_EVP_SHA224 )

#if defined( HAVE_EVP_MD_CTX_CLEANUP )

    if( EVP_MD_CTX_cleanup(

         &( internal_context->internal_evp_md_context ) ) != 1 )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_RUNTIME,

       LIBCERROR_RUNTIME_ERROR_FINALIZE_FAILED,

       "%s: unable to clean up EVP message digest context.",

       function );

    }

    /* Make sure the error state is removed otherwise OpenSSL will leak memory

     */

    ERR_remove_thread_state(

     NULL );

#else

    EVP_MD_CTX_free(

     internal_context->evp_md_context );

#endif /* defined( HAVE_EVP_MD_CTX_CLEANUP ) */

    internal_context->evp_md_context = NULL;

#else

    /* No additional clean up necessary

     */

#endif /* defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH ) */

    memory_free(

     internal_context );

  }

  return( 1 );

}

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH )

/* Updates the SHA-224 context using OpenSSL

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_update(

     libhmac_sha224_context_t *context,

     const uint8_t *buffer,

     size_t size,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_update";

  unsigned long safe_hash_size                        = 0;

  if( context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid context.",

     function );

    return( -1 );

  }

  internal_context = (libhmac_internal_sha224_context_t *) context;

  if( buffer == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid buffer.",

     function );

    return( -1 );

  }

#if ( SIZEOF_LONG < SIZEOF_SIZE_T )

  if( size > (size_t) ULONG_MAX )

#else

  if( size > (size_t) SSIZE_MAX )

#endif

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_VALUE_EXCEEDS_MAXIMUM,

     "%s: invalid size value exceeds maximum.",

     function );

    return( -1 );

  }

  if( size == 0 )

  {

    return( 1 );

  }

  safe_hash_size = (unsigned long) size;

  if( SHA256_Update(

       &( internal_context->sha224_context ),

       (const void *) buffer,

       size ) != 1 )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_SET_FAILED,

     "%s: unable to update context.",

     function );

    return( -1 );

  }

  return( 1 );

}

#elif defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_EVP_H ) && defined( HAVE_EVP_SHA224 )

/* Updates the SHA-224 context using OpenSSL EVP

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_update(

     libhmac_sha224_context_t *context,

     const uint8_t *buffer,

     size_t size,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_update";

  if( context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid context.",

     function );

    return( -1 );

  }

  internal_context = (libhmac_internal_sha224_context_t *) context;

  if( buffer == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid buffer.",

     function );

    return( -1 );

  }

  if( size > (size_t) SSIZE_MAX )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_VALUE_EXCEEDS_MAXIMUM,

     "%s: invalid size value exceeds maximum.",

     function );

    return( -1 );

  }

  if( size == 0 )

  {

    return( 1 );

  }

  if( EVP_DigestUpdate(

       internal_context->evp_md_context,

       (const void *) buffer,

       size ) != 1 )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_RUNTIME,

     LIBCERROR_RUNTIME_ERROR_SET_FAILED,

     "%s: unable to update context.",

     function );

    return( -1 );

  }

  return( 1 );

}

#else

/* Updates the SHA-224 context using fallback implementation

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_update(

     libhmac_sha224_context_t *context,

     const uint8_t *buffer,

     size_t size,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_update";

  size_t buffer_offset                                = 0;

  size_t remaining_block_size                         = 0;

  ssize_t process_count                               = 0;

  if( context == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid context.",

     function );

    return( -1 );

  }

  internal_context = (libhmac_internal_sha224_context_t *) context;

  if( buffer == NULL )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_INVALID_VALUE,

     "%s: invalid buffer.",

     function );

    return( -1 );

  }

  if( size > (size_t) SSIZE_MAX )

  {

    libcerror_error_set(

     error,

     LIBCERROR_ERROR_DOMAIN_ARGUMENTS,

     LIBCERROR_ARGUMENT_ERROR_VALUE_EXCEEDS_MAXIMUM,

     "%s: invalid size value exceeds maximum.",

     function );

    return( -1 );

  }

  if( size == 0 )

  {

    return( 1 );

  }

  if( internal_context->block_offset > 0 )

  {

    if( internal_context->block_offset >= LIBHMAC_SHA224_BLOCK_SIZE )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_RUNTIME,

       LIBCERROR_RUNTIME_ERROR_VALUE_OUT_OF_BOUNDS,

       "%s: invalid context - block offset value out of bounds.",

       function );

      return( -1 );

    }

    remaining_block_size = LIBHMAC_SHA224_BLOCK_SIZE - internal_context->block_offset;

    if( remaining_block_size > size )

    {

      remaining_block_size = size;

    }

    if( memory_copy(

         &( internal_context->block[ internal_context->block_offset ] ),

         buffer,

         remaining_block_size ) == NULL )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_MEMORY,

       LIBCERROR_MEMORY_ERROR_COPY_FAILED,

       "%s: unable to copy data to context block.",

       function );

      return( -1 );

    }

    internal_context->block_offset += remaining_block_size;

    if( internal_context->block_offset < LIBHMAC_SHA224_BLOCK_SIZE )

    {

      return( 1 );

    }

    buffer_offset += remaining_block_size;

    size          -= remaining_block_size;

    process_count = libhmac_sha224_context_transform(

                     internal_context,

                     internal_context->block,

                     LIBHMAC_SHA224_BLOCK_SIZE,

                     error );

    if( process_count == -1 )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_RUNTIME,

       LIBCERROR_RUNTIME_ERROR_SET_FAILED,

       "%s: unable to transform context block.",

       function );

      return( -1 );

    }

    internal_context->hash_count  += process_count;

    internal_context->block_offset = 0;

  }

  if( size > 0 )

  {

    process_count = libhmac_sha224_context_transform(

                     internal_context,

                     &( buffer[ buffer_offset ] ),

                     size,

                     error );

    if( process_count == -1 )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_RUNTIME,

       LIBCERROR_RUNTIME_ERROR_SET_FAILED,

       "%s: unable to transform buffer.",

       function );

      return( -1 );

    }

    internal_context->hash_count += process_count;

    buffer_offset += process_count;

    size          -= process_count;

  }

  if( size > 0 )

  {

    if( size >= LIBHMAC_SHA224_BLOCK_SIZE )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_RUNTIME,

       LIBCERROR_RUNTIME_ERROR_VALUE_OUT_OF_BOUNDS,

       "%s: invalid size value out of bounds.",

       function );

      return( -1 );

    }

    if( memory_copy(

         internal_context->block,

         &( buffer[ buffer_offset ] ),

         size ) == NULL )

    {

      libcerror_error_set(

       error,

       LIBCERROR_ERROR_DOMAIN_MEMORY,

       LIBCERROR_MEMORY_ERROR_COPY_FAILED,

       "%s: unable to copy remaining data to context block.",

       function );

      return( -1 );

    }

    internal_context->block_offset = size;

  }

  return( 1 );

}

#endif /* defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH ) */

#if defined( HAVE_LIBCRYPTO ) && defined( HAVE_OPENSSL_SHA_H ) && defined( SHA224_DIGEST_LENGTH )

/* Finalizes the SHA-224 context using OpenSSL

 * Returns 1 if successful or -1 on error

 */

int libhmac_sha224_context_finalize(

     libhmac_sha224_context_t *context,

     uint8_t *hash,

     size_t hash_size,

     libcerror_error_t **error )

{

  libhmac_internal_sha224_context_t *internal_context = NULL;

  static char *function                               = "libhmac_sha224_context_finalize";

  if( context == NULL )

  {

    libcerror_error_set(

     error,