Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 1 | #include <stdint.h> |
Philippe Antoine | 8b1ed1c | 2020-01-22 16:22:36 +0100 | [diff] [blame] | 2 | #include <stdlib.h> |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 3 | #include "mbedtls/pk.h" |
| 4 | |
| 5 | //4 Kb should be enough for every bug ;-) |
| 6 | #define MAX_LEN 0x1000 |
| 7 | |
| 8 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 9 | int LLVMFuzzerTestOneInput(const uint8_t *Data, size_t Size) |
| 10 | { |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 11 | #ifdef MBEDTLS_PK_PARSE_C |
| 12 | int ret; |
| 13 | mbedtls_pk_context pk; |
| 14 | |
| 15 | if (Size > MAX_LEN) { |
| 16 | //only work on small inputs |
| 17 | Size = MAX_LEN; |
| 18 | } |
| 19 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 20 | mbedtls_pk_init(&pk); |
| 21 | ret = mbedtls_pk_parse_key(&pk, Data, Size, NULL, 0); |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 22 | if (ret == 0) { |
| 23 | #if defined(MBEDTLS_RSA_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 24 | if (mbedtls_pk_get_type(&pk) == MBEDTLS_PK_RSA) { |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 25 | mbedtls_mpi N, P, Q, D, E, DP, DQ, QP; |
| 26 | mbedtls_rsa_context *rsa; |
| 27 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 28 | mbedtls_mpi_init(&N); mbedtls_mpi_init(&P); mbedtls_mpi_init(&Q); |
| 29 | mbedtls_mpi_init(&D); mbedtls_mpi_init(&E); mbedtls_mpi_init(&DP); |
| 30 | mbedtls_mpi_init(&DQ); mbedtls_mpi_init(&QP); |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 31 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 32 | rsa = mbedtls_pk_rsa(pk); |
| 33 | if (mbedtls_rsa_export(rsa, &N, &P, &Q, &D, &E) != 0) { |
Philippe Antoine | 66070bc | 2020-01-22 13:54:56 +0100 | [diff] [blame] | 34 | abort(); |
| 35 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 36 | if (mbedtls_rsa_export_crt(rsa, &DP, &DQ, &QP) != 0) { |
Philippe Antoine | 7d4bd6f | 2020-01-22 14:13:08 +0100 | [diff] [blame] | 37 | abort(); |
| 38 | } |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 39 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 40 | mbedtls_mpi_free(&N); mbedtls_mpi_free(&P); mbedtls_mpi_free(&Q); |
| 41 | mbedtls_mpi_free(&D); mbedtls_mpi_free(&E); mbedtls_mpi_free(&DP); |
| 42 | mbedtls_mpi_free(&DQ); mbedtls_mpi_free(&QP); |
| 43 | } else |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 44 | #endif |
| 45 | #if defined(MBEDTLS_ECP_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 46 | if (mbedtls_pk_get_type(&pk) == MBEDTLS_PK_ECKEY || |
| 47 | mbedtls_pk_get_type(&pk) == MBEDTLS_PK_ECKEY_DH) { |
| 48 | mbedtls_ecp_keypair *ecp = mbedtls_pk_ec(pk); |
Gilles Peskine | f02b984 | 2020-02-25 19:52:44 +0100 | [diff] [blame] | 49 | mbedtls_ecp_group_id grp_id = ecp->grp.id; |
| 50 | const mbedtls_ecp_curve_info *curve_info = |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 51 | mbedtls_ecp_curve_info_from_grp_id(grp_id); |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 52 | |
Gilles Peskine | f02b984 | 2020-02-25 19:52:44 +0100 | [diff] [blame] | 53 | /* If the curve is not supported, the key should not have been |
| 54 | * accepted. */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 55 | if (curve_info == NULL) { |
| 56 | abort(); |
| 57 | } |
| 58 | } else |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 59 | #endif |
Gilles Peskine | d7fb66f | 2020-02-25 19:54:27 +0100 | [diff] [blame] | 60 | { |
| 61 | /* The key is valid but is not of a supported type. |
| 62 | * This should not happen. */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 63 | abort(); |
Gilles Peskine | d7fb66f | 2020-02-25 19:54:27 +0100 | [diff] [blame] | 64 | } |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 65 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame^] | 66 | mbedtls_pk_free(&pk); |
Philippe Antoine | 7233352 | 2018-05-03 16:40:24 +0200 | [diff] [blame] | 67 | #else |
| 68 | (void) Data; |
| 69 | (void) Size; |
| 70 | #endif //MBEDTLS_PK_PARSE_C |
| 71 | |
| 72 | return 0; |
| 73 | } |