Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 1 | /** |
| 2 | * PSA API multi-part HMAC demonstration. |
Manuel Pégourié-Gonnard | 0e725c3 | 2022-01-27 11:15:33 +0100 | [diff] [blame] | 3 | * |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 4 | * This programs computes the HMAC of two messages using the multi-part API. |
| 5 | * |
Manuel Pégourié-Gonnard | 29088a4 | 2022-02-01 09:38:26 +0100 | [diff] [blame] | 6 | * It comes with a companion program hash/md_hmac_demo.c, which does the same |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 7 | * operations with the legacy MD API. The goal is that comparing the two |
| 8 | * programs will help people migrating to the PSA Crypto API. |
| 9 | * |
| 10 | * When it comes to multi-part HMAC operations, the `mbedtls_md_context` |
| 11 | * serves a dual purpose (1) hold the key, and (2) save progress information |
| 12 | * for the current operation. With PSA those roles are held by two disinct |
| 13 | * objects: (1) a psa_key_id_t to hold the key, and (2) a psa_operation_t for |
| 14 | * multi-part progress. |
| 15 | * |
Manuel Pégourié-Gonnard | 64754e1 | 2022-02-08 11:21:14 +0100 | [diff] [blame] | 16 | * This program and its companion hash/md_hmac_demo.c illustrate this by doing |
| 17 | * the same sequence of multi-part HMAC computation with both APIs; looking at |
| 18 | * the two side by side should make the differences and similarities clear. |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 19 | */ |
| 20 | |
| 21 | /* |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 22 | * Copyright The Mbed TLS Contributors |
Dave Rodgman | 16799db | 2023-11-02 19:47:20 +0000 | [diff] [blame] | 23 | * SPDX-License-Identifier: Apache-2.0 OR GPL-2.0-or-later |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 24 | */ |
| 25 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 26 | /* First include Mbed TLS headers to get the Mbed TLS configuration and |
| 27 | * platform definitions that we'll use in this program. Also include |
| 28 | * standard C headers for functions we'll use here. */ |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 29 | #include "mbedtls/build_info.h" |
| 30 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 31 | #include "psa/crypto.h" |
| 32 | |
Manuel Pégourié-Gonnard | 6349794 | 2022-01-31 12:23:37 +0100 | [diff] [blame] | 33 | #include "mbedtls/platform_util.h" // for mbedtls_platform_zeroize |
| 34 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 35 | #include <stdlib.h> |
| 36 | #include <stdio.h> |
| 37 | |
| 38 | /* If the build options we need are not enabled, compile a placeholder. */ |
Manuel Pégourié-Gonnard | edf6e83 | 2022-01-27 12:36:39 +0100 | [diff] [blame] | 39 | #if !defined(MBEDTLS_PSA_CRYPTO_C) || \ |
Manuel Pégourié-Gonnard | 9efbf53 | 2022-01-17 11:57:44 +0100 | [diff] [blame] | 40 | defined(MBEDTLS_PSA_CRYPTO_KEY_ID_ENCODES_OWNER) |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 41 | int main(void) |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 42 | { |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 43 | printf("MBEDTLS_PSA_CRYPTO_C not defined, " |
| 44 | "and/or MBEDTLS_PSA_CRYPTO_KEY_ID_ENCODES_OWNER defined\r\n"); |
| 45 | return 0; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 46 | } |
Manuel Pégourié-Gonnard | edf6e83 | 2022-01-27 12:36:39 +0100 | [diff] [blame] | 47 | #else |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 48 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 49 | /* The real program starts here. */ |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 50 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 51 | /* Dummy inputs for HMAC */ |
Manuel Pégourié-Gonnard | beef9c2 | 2022-01-27 11:42:47 +0100 | [diff] [blame] | 52 | const unsigned char msg1_part1[] = { 0x01, 0x02 }; |
| 53 | const unsigned char msg1_part2[] = { 0x03, 0x04 }; |
| 54 | const unsigned char msg2_part1[] = { 0x05, 0x05 }; |
| 55 | const unsigned char msg2_part2[] = { 0x06, 0x06 }; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 56 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 57 | /* Dummy key material - never do this in production! |
| 58 | * This example program uses SHA-256, so a 32-byte key makes sense. */ |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 59 | const unsigned char key_bytes[32] = { 0 }; |
| 60 | |
Michael Schuster | 9bf1875 | 2024-07-21 00:44:33 +0200 | [diff] [blame] | 61 | /* Print the contents of a buffer in hex */ |
Michael Schuster | 5830505 | 2024-07-21 00:46:10 +0200 | [diff] [blame] | 62 | static void print_buf(const char *title, uint8_t *buf, size_t len) |
Michael Schuster | 9bf1875 | 2024-07-21 00:44:33 +0200 | [diff] [blame] | 63 | { |
| 64 | printf("%s:", title); |
| 65 | for (size_t i = 0; i < len; i++) { |
| 66 | printf(" %02x", buf[i]); |
| 67 | } |
| 68 | printf("\n"); |
| 69 | } |
| 70 | |
Manuel Pégourié-Gonnard | 340808c | 2022-02-08 11:15:26 +0100 | [diff] [blame] | 71 | /* Run a PSA function and bail out if it fails. |
| 72 | * The symbolic name of the error code can be recovered using: |
Tom Cosgrove | 1797b05 | 2022-12-04 17:19:59 +0000 | [diff] [blame] | 73 | * programs/psa/psa_constant_name status <value> */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 74 | #define PSA_CHECK(expr) \ |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 75 | do \ |
| 76 | { \ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 77 | status = (expr); \ |
| 78 | if (status != PSA_SUCCESS) \ |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 79 | { \ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 80 | printf("Error %d at line %d: %s\n", \ |
| 81 | (int) status, \ |
| 82 | __LINE__, \ |
| 83 | #expr); \ |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 84 | goto exit; \ |
| 85 | } \ |
| 86 | } \ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 87 | while (0) |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 88 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 89 | /* |
| 90 | * This function demonstrates computation of the HMAC of two messages using |
| 91 | * the multipart API. |
| 92 | */ |
Michael Schuster | 6fa32fd | 2024-06-01 21:15:02 +0200 | [diff] [blame] | 93 | static psa_status_t hmac_demo(void) |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 94 | { |
| 95 | psa_status_t status; |
Manuel Pégourié-Gonnard | f6ea19c | 2022-02-01 13:08:21 +0100 | [diff] [blame] | 96 | const psa_algorithm_t alg = PSA_ALG_HMAC(PSA_ALG_SHA_256); |
| 97 | uint8_t out[PSA_MAC_MAX_SIZE]; // safe but not optimal |
| 98 | /* PSA_MAC_LENGTH(PSA_KEY_TYPE_HMAC, 8 * sizeof( key_bytes ), alg) |
Dave Rodgman | 017a199 | 2022-03-31 14:07:01 +0100 | [diff] [blame] | 99 | * should work but see https://github.com/Mbed-TLS/mbedtls/issues/4320 */ |
Manuel Pégourié-Gonnard | 6349794 | 2022-01-31 12:23:37 +0100 | [diff] [blame] | 100 | |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 101 | psa_key_attributes_t attributes = PSA_KEY_ATTRIBUTES_INIT; |
| 102 | psa_key_id_t key = 0; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 103 | |
| 104 | /* prepare key */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 105 | psa_set_key_usage_flags(&attributes, PSA_KEY_USAGE_SIGN_MESSAGE); |
| 106 | psa_set_key_algorithm(&attributes, alg); |
| 107 | psa_set_key_type(&attributes, PSA_KEY_TYPE_HMAC); |
| 108 | psa_set_key_bits(&attributes, 8 * sizeof(key_bytes)); // optional |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 109 | |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 110 | status = psa_import_key(&attributes, |
| 111 | key_bytes, sizeof(key_bytes), &key); |
| 112 | if (status != PSA_SUCCESS) { |
| 113 | return status; |
| 114 | } |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 115 | |
| 116 | /* prepare operation */ |
| 117 | psa_mac_operation_t op = PSA_MAC_OPERATION_INIT; |
| 118 | size_t out_len = 0; |
| 119 | |
Manuel Pégourié-Gonnard | beef9c2 | 2022-01-27 11:42:47 +0100 | [diff] [blame] | 120 | /* compute HMAC(key, msg1_part1 | msg1_part2) */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 121 | PSA_CHECK(psa_mac_sign_setup(&op, key, alg)); |
| 122 | PSA_CHECK(psa_mac_update(&op, msg1_part1, sizeof(msg1_part1))); |
| 123 | PSA_CHECK(psa_mac_update(&op, msg1_part2, sizeof(msg1_part2))); |
| 124 | PSA_CHECK(psa_mac_sign_finish(&op, out, sizeof(out), &out_len)); |
Michael Schuster | 9bf1875 | 2024-07-21 00:44:33 +0200 | [diff] [blame] | 125 | print_buf("msg1", out, out_len); |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 126 | |
Manuel Pégourié-Gonnard | beef9c2 | 2022-01-27 11:42:47 +0100 | [diff] [blame] | 127 | /* compute HMAC(key, msg2_part1 | msg2_part2) */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 128 | PSA_CHECK(psa_mac_sign_setup(&op, key, alg)); |
| 129 | PSA_CHECK(psa_mac_update(&op, msg2_part1, sizeof(msg2_part1))); |
| 130 | PSA_CHECK(psa_mac_update(&op, msg2_part2, sizeof(msg2_part2))); |
| 131 | PSA_CHECK(psa_mac_sign_finish(&op, out, sizeof(out), &out_len)); |
Michael Schuster | 9bf1875 | 2024-07-21 00:44:33 +0200 | [diff] [blame] | 132 | print_buf("msg2", out, out_len); |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 133 | |
| 134 | exit: |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 135 | psa_mac_abort(&op); // needed on error, harmless on success |
| 136 | psa_destroy_key(key); |
| 137 | mbedtls_platform_zeroize(out, sizeof(out)); |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 138 | |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 139 | return status; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 140 | } |
| 141 | |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 142 | int main(void) |
| 143 | { |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 144 | psa_status_t status = PSA_SUCCESS; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 145 | |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 146 | /* Initialize the PSA crypto library. */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 147 | PSA_CHECK(psa_crypto_init()); |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 148 | |
| 149 | /* Run the demo */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 150 | PSA_CHECK(hmac_demo()); |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 151 | |
| 152 | /* Deinitialize the PSA crypto library. */ |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 153 | mbedtls_psa_crypto_free(); |
Manuel Pégourié-Gonnard | f392a02 | 2022-01-31 12:06:07 +0100 | [diff] [blame] | 154 | |
| 155 | exit: |
Gilles Peskine | 449bd83 | 2023-01-11 14:50:10 +0100 | [diff] [blame] | 156 | return status == PSA_SUCCESS ? EXIT_SUCCESS : EXIT_FAILURE; |
Manuel Pégourié-Gonnard | 667b556 | 2021-11-22 13:00:17 +0100 | [diff] [blame] | 157 | } |
| 158 | |
Manuel Pégourié-Gonnard | edf6e83 | 2022-01-27 12:36:39 +0100 | [diff] [blame] | 159 | #endif |