quickjs-tart

quickjs-based runtime for wallet-core logic
Log | Files | Refs | README | LICENSE

ssl_client2.c (129855B)


      1 /*
      2  *  SSL client with certificate authentication
      3  *
      4  *  Copyright The Mbed TLS Contributors
      5  *  SPDX-License-Identifier: Apache-2.0 OR GPL-2.0-or-later
      6  */
      7 
      8 #define MBEDTLS_ALLOW_PRIVATE_ACCESS
      9 
     10 #include "ssl_test_lib.h"
     11 
     12 #if defined(MBEDTLS_USE_PSA_CRYPTO) || defined(MBEDTLS_SSL_PROTO_TLS1_3)
     13 #include "test/psa_crypto_helpers.h"
     14 #endif /* MBEDTLS_USE_PSA_CRYPTO || MBEDTLS_SSL_PROTO_TLS1_3 */
     15 
     16 #if defined(MBEDTLS_SSL_TEST_IMPOSSIBLE)
     17 int main(void)
     18 {
     19     mbedtls_printf(MBEDTLS_SSL_TEST_IMPOSSIBLE);
     20     mbedtls_exit(0);
     21 }
     22 #elif !defined(MBEDTLS_SSL_CLI_C)
     23 int main(void)
     24 {
     25     mbedtls_printf("MBEDTLS_SSL_CLI_C not defined.\n");
     26     mbedtls_exit(0);
     27 }
     28 #else /* !MBEDTLS_SSL_TEST_IMPOSSIBLE && MBEDTLS_SSL_CLI_C */
     29 
     30 /* Size of memory to be allocated for the heap, when using the library's memory
     31  * management and MBEDTLS_MEMORY_BUFFER_ALLOC_C is enabled. */
     32 #define MEMORY_HEAP_SIZE      120000
     33 
     34 #define MAX_REQUEST_SIZE      20000
     35 #define MAX_REQUEST_SIZE_STR "20000"
     36 
     37 #define DFL_SERVER_NAME         "localhost"
     38 #define DFL_SERVER_ADDR         NULL
     39 #define DFL_SERVER_PORT         "4433"
     40 #define DFL_REQUEST_PAGE        "/"
     41 #define DFL_REQUEST_SIZE        -1
     42 #define DFL_DEBUG_LEVEL         0
     43 #define DFL_CONTEXT_CRT_CB      0
     44 #define DFL_NBIO                0
     45 #define DFL_EVENT               0
     46 #define DFL_READ_TIMEOUT        0
     47 #define DFL_MAX_RESEND          0
     48 #define DFL_CA_FILE             ""
     49 #define DFL_CA_PATH             ""
     50 #define DFL_CRT_FILE            ""
     51 #define DFL_KEY_FILE            ""
     52 #define DFL_KEY_OPAQUE          0
     53 #define DFL_KEY_PWD             ""
     54 #define DFL_PSK                 ""
     55 #define DFL_EARLY_DATA          -1
     56 #define DFL_PSK_OPAQUE          0
     57 #define DFL_PSK_IDENTITY        "Client_identity"
     58 #define DFL_ECJPAKE_PW          NULL
     59 #define DFL_ECJPAKE_PW_OPAQUE   0
     60 #define DFL_EC_MAX_OPS          -1
     61 #define DFL_FORCE_CIPHER        0
     62 #define DFL_TLS1_3_KEX_MODES    MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_ALL
     63 #define DFL_RENEGOTIATION       MBEDTLS_SSL_RENEGOTIATION_DISABLED
     64 #define DFL_ALLOW_LEGACY        -2
     65 #define DFL_RENEGOTIATE         0
     66 #define DFL_EXCHANGES           1
     67 #define DFL_MIN_VERSION         -1
     68 #define DFL_MAX_VERSION         -1
     69 #define DFL_SHA1                -1
     70 #define DFL_AUTH_MODE           -1
     71 #define DFL_SET_HOSTNAME        1
     72 #define DFL_MFL_CODE            MBEDTLS_SSL_MAX_FRAG_LEN_NONE
     73 #define DFL_TRUNC_HMAC          -1
     74 #define DFL_RECSPLIT            -1
     75 #define DFL_DHMLEN              -1
     76 #define DFL_RECONNECT           0
     77 #define DFL_RECO_SERVER_NAME    NULL
     78 #define DFL_RECO_DELAY          0
     79 #define DFL_RECO_MODE           1
     80 #define DFL_RENEGO_DELAY        -2
     81 #define DFL_CID_ENABLED         0
     82 #define DFL_CID_VALUE           ""
     83 #define DFL_CID_ENABLED_RENEGO  -1
     84 #define DFL_CID_VALUE_RENEGO    NULL
     85 #define DFL_RECONNECT_HARD      0
     86 #define DFL_TICKETS             MBEDTLS_SSL_SESSION_TICKETS_ENABLED
     87 #define DFL_NEW_SESSION_TICKETS -1
     88 #define DFL_ALPN_STRING         NULL
     89 #define DFL_GROUPS              NULL
     90 #define DFL_SIG_ALGS            NULL
     91 #define DFL_TRANSPORT           MBEDTLS_SSL_TRANSPORT_STREAM
     92 #define DFL_HS_TO_MIN           0
     93 #define DFL_HS_TO_MAX           0
     94 #define DFL_DTLS_MTU            -1
     95 #define DFL_DGRAM_PACKING        1
     96 #define DFL_FALLBACK            -1
     97 #define DFL_EXTENDED_MS         -1
     98 #define DFL_ETM                 -1
     99 #define DFL_SERIALIZE           0
    100 #define DFL_CONTEXT_FILE        ""
    101 #define DFL_EXTENDED_MS_ENFORCE -1
    102 #define DFL_CA_CALLBACK         0
    103 #define DFL_EAP_TLS             0
    104 #define DFL_REPRODUCIBLE        0
    105 #define DFL_NSS_KEYLOG          0
    106 #define DFL_NSS_KEYLOG_FILE     NULL
    107 #define DFL_SKIP_CLOSE_NOTIFY   0
    108 #define DFL_EXP_LABEL           NULL
    109 #define DFL_EXP_LEN             20
    110 #define DFL_QUERY_CONFIG_MODE   0
    111 #define DFL_USE_SRTP            0
    112 #define DFL_SRTP_FORCE_PROFILE  0
    113 #define DFL_SRTP_MKI            ""
    114 #define DFL_KEY_OPAQUE_ALG      "none"
    115 
    116 #define GET_REQUEST "GET %s HTTP/1.0\r\nHost: %s\r\nExtra-header: "
    117 #define GET_REQUEST_END "\r\n\r\n"
    118 
    119 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    120 #define USAGE_CONTEXT_CRT_CB \
    121     "    context_crt_cb=%%d   This determines whether the CRT verification callback is bound\n" \
    122     "                        to the SSL configuration of the SSL context.\n" \
    123     "                        Possible values:\n" \
    124     "                        - 0 (default): Use CRT callback bound to configuration\n" \
    125     "                        - 1: Use CRT callback bound to SSL context\n"
    126 #else
    127 #define USAGE_CONTEXT_CRT_CB ""
    128 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
    129 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    130 #if defined(MBEDTLS_FS_IO)
    131 #define USAGE_IO \
    132     "    ca_file=%%s          The single file containing the top-level CA(s) you fully trust\n" \
    133     "                        default: \"\" (pre-loaded)\n" \
    134     "                        use \"none\" to skip loading any top-level CAs.\n" \
    135     "    ca_path=%%s          The path containing the top-level CA(s) you fully trust\n" \
    136     "                        default: \"\" (pre-loaded) (overrides ca_file)\n" \
    137     "                        use \"none\" to skip loading any top-level CAs.\n" \
    138     "    crt_file=%%s         Your own cert and chain (in bottom to top order, top may be omitted)\n" \
    139     "                        default: \"\" (pre-loaded)\n" \
    140     "    key_file=%%s         default: \"\" (pre-loaded)\n" \
    141     "    key_pwd=%%s          Password for key specified by key_file argument\n" \
    142     "                        default: none\n"
    143 #else
    144 #define USAGE_IO \
    145     "    No file operations available (MBEDTLS_FS_IO not defined)\n"
    146 #endif /* MBEDTLS_FS_IO */
    147 #else /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
    148 #define USAGE_IO ""
    149 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
    150 #if defined(MBEDTLS_USE_PSA_CRYPTO) && defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    151 #define USAGE_KEY_OPAQUE \
    152     "    key_opaque=%%d       Handle your private key as if it were opaque\n" \
    153     "                        default: 0 (disabled)\n"
    154 #else
    155 #define USAGE_KEY_OPAQUE ""
    156 #endif
    157 
    158 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
    159 #define USAGE_CID \
    160     "    cid=%%d             Disable (0) or enable (1) the use of the DTLS Connection ID extension.\n" \
    161     "                       default: 0 (disabled)\n"     \
    162     "    cid_renego=%%d      Disable (0) or enable (1) the use of the DTLS Connection ID extension during renegotiation.\n" \
    163     "                       default: same as 'cid' parameter\n"     \
    164     "    cid_val=%%s          The CID to use for incoming messages (in hex, without 0x).\n"  \
    165     "                        default: \"\"\n" \
    166     "    cid_val_renego=%%s   The CID to use for incoming messages (in hex, without 0x) after renegotiation.\n"  \
    167     "                        default: same as 'cid_val' parameter\n"
    168 #else /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
    169 #define USAGE_CID ""
    170 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
    171 
    172 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
    173 #define USAGE_PSK_RAW                                               \
    174     "    psk=%%s              default: \"\" (disabled)\n"     \
    175     "                          The PSK values are in hex, without 0x.\n" \
    176     "    psk_identity=%%s     default: \"Client_identity\"\n"
    177 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    178 #define USAGE_PSK_SLOT                          \
    179     "    psk_opaque=%%d       default: 0 (don't use opaque static PSK)\n"     \
    180     "                          Enable this to store the PSK configured through command line\n" \
    181     "                          parameter `psk` in a PSA-based key slot.\n" \
    182     "                          Note: Currently only supported in conjunction with\n"                  \
    183     "                          the use of min_version to force TLS 1.2 and force_ciphersuite \n"      \
    184     "                          to force a particular PSK-only ciphersuite.\n"                         \
    185     "                          Note: This is to test integration of PSA-based opaque PSKs with\n"     \
    186     "                          Mbed TLS only. Production systems are likely to configure Mbed TLS\n"  \
    187     "                          with prepopulated key slots instead of importing raw key material.\n"
    188 #else
    189 #define USAGE_PSK_SLOT ""
    190 #endif /* MBEDTLS_USE_PSA_CRYPTO */
    191 #define USAGE_PSK USAGE_PSK_RAW USAGE_PSK_SLOT
    192 #else
    193 #define USAGE_PSK ""
    194 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED */
    195 
    196 #if defined(MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK)
    197 #define USAGE_CA_CALLBACK                       \
    198     "   ca_callback=%%d       default: 0 (disabled)\n"      \
    199     "                         Enable this to use the trusted certificate callback function\n"
    200 #else
    201 #define USAGE_CA_CALLBACK ""
    202 #endif /* MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK */
    203 
    204 #if defined(MBEDTLS_SSL_SESSION_TICKETS)
    205 #define USAGE_TICKETS                                       \
    206     "    tickets=%%d              default: 1 (enabled)\n"    \
    207     "    new_session_tickets=%%d  default: (library default: disabled)\n"
    208 #else
    209 #define USAGE_TICKETS ""
    210 #endif /* MBEDTLS_SSL_SESSION_TICKETS */
    211 
    212 #define USAGE_EAP_TLS                                       \
    213     "    eap_tls=%%d          default: 0 (disabled)\n"
    214 #define USAGE_NSS_KEYLOG                                    \
    215     "    nss_keylog=%%d          default: 0 (disabled)\n"               \
    216     "                             This cannot be used with eap_tls=1\n"
    217 #define USAGE_NSS_KEYLOG_FILE                               \
    218     "    nss_keylog_file=%%s\n"
    219 #if defined(MBEDTLS_SSL_DTLS_SRTP)
    220 #define USAGE_SRTP \
    221     "    use_srtp=%%d         default: 0 (disabled)\n" \
    222     "                          This cannot be used with eap_tls=1 or " \
    223     "                          nss_keylog=1\n"             \
    224     "    srtp_force_profile=%%d  default: 0 (all enabled)\n"   \
    225     "                        available profiles:\n"       \
    226     "                        1 - SRTP_AES128_CM_HMAC_SHA1_80\n"  \
    227     "                        2 - SRTP_AES128_CM_HMAC_SHA1_32\n"  \
    228     "                        3 - SRTP_NULL_HMAC_SHA1_80\n"       \
    229     "                        4 - SRTP_NULL_HMAC_SHA1_32\n"       \
    230     "    mki=%%s              default: \"\" (in hex, without 0x)\n"
    231 #else /* MBEDTLS_SSL_DTLS_SRTP */
    232 #define USAGE_SRTP ""
    233 #endif
    234 
    235 #if defined(MBEDTLS_SSL_MAX_FRAGMENT_LENGTH)
    236 #define USAGE_MAX_FRAG_LEN                                      \
    237     "    max_frag_len=%%d     default: 16384 (tls default)\n"   \
    238     "                        options: 512, 1024, 2048, 4096\n"
    239 #else
    240 #define USAGE_MAX_FRAG_LEN ""
    241 #endif /* MBEDTLS_SSL_MAX_FRAGMENT_LENGTH */
    242 
    243 #if defined(MBEDTLS_DHM_C)
    244 #define USAGE_DHMLEN \
    245     "    dhmlen=%%d           default: (library default: 1024 bits)\n"
    246 #else
    247 #define USAGE_DHMLEN
    248 #endif
    249 
    250 #if defined(MBEDTLS_SSL_ALPN)
    251 #define USAGE_ALPN \
    252     "    alpn=%%s             default: \"\" (disabled)\n"   \
    253     "                        example: spdy/1,http/1.1\n"
    254 #else
    255 #define USAGE_ALPN ""
    256 #endif /* MBEDTLS_SSL_ALPN */
    257 
    258 #if defined(MBEDTLS_PK_HAVE_ECC_KEYS) || \
    259     (defined(MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_SOME_EPHEMERAL_ENABLED) && \
    260     defined(PSA_WANT_ALG_FFDH))
    261 #define USAGE_GROUPS \
    262     "    groups=a,b,c,d      default: \"default\" (library default)\n"        \
    263     "                        example: \"secp521r1,brainpoolP512r1\"\n"        \
    264     "                        - use \"none\" for empty list\n"                 \
    265     "                        - see mbedtls_ecp_curve_list()\n"                \
    266     "                          for acceptable EC group names\n"               \
    267     "                        - the following ffdh groups are supported:\n"    \
    268     "                          ffdhe2048, ffdhe3072, ffdhe4096, ffdhe6144,\n" \
    269     "                          ffdhe8192\n"
    270 #else
    271 #define USAGE_GROUPS ""
    272 #endif
    273 
    274 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    275 #define USAGE_SIG_ALGS \
    276     "    sig_algs=a,b,c,d      default: \"default\" (library default)\n"  \
    277     "                          example: \"ecdsa_secp256r1_sha256,ecdsa_secp384r1_sha384\"\n"
    278 #else
    279 #define USAGE_SIG_ALGS ""
    280 #endif
    281 
    282 #if defined(MBEDTLS_SSL_PROTO_DTLS)
    283 #define USAGE_DTLS \
    284     "    dtls=%%d             default: 0 (TLS)\n"                           \
    285     "    hs_timeout=%%d-%%d    default: (library default: 1000-60000)\n"    \
    286     "                        range of DTLS handshake timeouts in millisecs\n" \
    287     "    mtu=%%d              default: (library default: unlimited)\n"  \
    288     "    dgram_packing=%%d    default: 1 (allowed)\n"                   \
    289     "                        allow or forbid packing of multiple\n" \
    290     "                        records within a single datgram.\n"
    291 #else
    292 #define USAGE_DTLS ""
    293 #endif
    294 
    295 #if defined(MBEDTLS_SSL_EXTENDED_MASTER_SECRET)
    296 #define USAGE_EMS \
    297     "    extended_ms=0/1     default: (library default: on)\n"
    298 #else
    299 #define USAGE_EMS ""
    300 #endif
    301 
    302 #if defined(MBEDTLS_SSL_ENCRYPT_THEN_MAC)
    303 #define USAGE_ETM \
    304     "    etm=0/1             default: (library default: on)\n"
    305 #else
    306 #define USAGE_ETM ""
    307 #endif
    308 
    309 #define USAGE_REPRODUCIBLE \
    310     "    reproducible=0/1     default: 0 (disabled)\n"
    311 
    312 #if defined(MBEDTLS_SSL_RENEGOTIATION)
    313 #define USAGE_RENEGO \
    314     "    renegotiation=%%d    default: 0 (disabled)\n"      \
    315     "    renegotiate=%%d      default: 0 (disabled)\n"      \
    316     "    renego_delay=%%d     default: -2 (library default)\n"
    317 #else
    318 #define USAGE_RENEGO ""
    319 #endif
    320 
    321 #if defined(MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED)
    322 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    323 #define USAGE_ECJPAKE \
    324     "    ecjpake_pw=%%s           default: none (disabled)\n"   \
    325     "    ecjpake_pw_opaque=%%d    default: 0 (disabled)\n"
    326 #else /* MBEDTLS_USE_PSA_CRYPTO */
    327 #define USAGE_ECJPAKE \
    328     "    ecjpake_pw=%%s           default: none (disabled)\n"
    329 #endif /* MBEDTLS_USE_PSA_CRYPTO */
    330 #else /* MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED */
    331 #define USAGE_ECJPAKE ""
    332 #endif /* MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED */
    333 
    334 #if defined(MBEDTLS_ECP_RESTARTABLE)
    335 #define USAGE_ECRESTART \
    336     "    ec_max_ops=%%s       default: library default (restart disabled)\n"
    337 #else
    338 #define USAGE_ECRESTART ""
    339 #endif
    340 
    341 #if defined(MBEDTLS_SSL_CONTEXT_SERIALIZATION)
    342 #define USAGE_SERIALIZATION \
    343     "    serialize=%%d        default: 0 (do not serialize/deserialize)\n"     \
    344     "                        options: 1 (serialize)\n"                         \
    345     "                                 2 (serialize with re-initialization)\n"  \
    346     "    context_file=%%s     The file path to write a serialized connection\n" \
    347     "                        in the form of base64 code (serialize option\n"   \
    348     "                        must be set)\n"                                   \
    349     "                         default: \"\" (do nothing)\n"                    \
    350     "                         option: a file path\n"
    351 #else
    352 #define USAGE_SERIALIZATION ""
    353 #endif
    354 
    355 #if defined(MBEDTLS_SSL_EARLY_DATA)
    356 #define USAGE_EARLY_DATA \
    357     "    early_data=%%d      default: library default\n" \
    358     "                        options: 0 (disabled), 1 (enabled)\n"
    359 #else
    360 #define USAGE_EARLY_DATA ""
    361 #endif /* MBEDTLS_SSL_EARLY_DATA && MBEDTLS_SSL_PROTO_TLS1_3 */
    362 
    363 #define USAGE_KEY_OPAQUE_ALGS \
    364     "    key_opaque_algs=%%s  Allowed opaque key algorithms.\n"                      \
    365     "                        comma-separated pair of values among the following:\n"    \
    366     "                        rsa-sign-pkcs1, rsa-sign-pss, rsa-sign-pss-sha256,\n"     \
    367     "                        rsa-sign-pss-sha384, rsa-sign-pss-sha512, rsa-decrypt,\n" \
    368     "                        ecdsa-sign, ecdh, none (only acceptable for\n"            \
    369     "                        the second value).\n"                                     \
    370 
    371 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
    372 #define USAGE_TLS1_3_KEY_EXCHANGE_MODES \
    373     "    tls13_kex_modes=%%s   default: all\n"     \
    374     "                          options: psk, psk_ephemeral, psk_all, ephemeral,\n"     \
    375     "                                   ephemeral_all, all, psk_or_ephemeral\n"
    376 #else
    377 #define USAGE_TLS1_3_KEY_EXCHANGE_MODES ""
    378 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
    379 
    380 #if defined(MBEDTLS_SSL_KEYING_MATERIAL_EXPORT)
    381 #define USAGE_EXPORT \
    382     "    exp_label=%%s       Label to input into TLS-Exporter\n" \
    383     "                         default: None (don't try to export a key)\n" \
    384     "    exp_len=%%d         Length of key to extract from TLS-Exporter \n" \
    385     "                         default: 20\n"
    386 #else
    387 #define USAGE_EXPORT ""
    388 #endif /* defined(MBEDTLS_SSL_KEYING_MATERIAL_EXPORT) */
    389 
    390 /* USAGE is arbitrarily split to stay under the portable string literal
    391  * length limit: 4095 bytes in C99. */
    392 #define USAGE1 \
    393     "\n usage: ssl_client2 param=<>...\n"                   \
    394     "\n acceptable parameters:\n"                           \
    395     "    server_name=%%s      default: localhost\n"         \
    396     "    server_addr=%%s      default: given by name\n"     \
    397     "    server_port=%%d      default: 4433\n"              \
    398     "    request_page=%%s     default: \".\"\n"             \
    399     "    request_size=%%d     default: about 34 (basic request)\n"           \
    400     "                        (minimum: 0, max: " MAX_REQUEST_SIZE_STR ")\n"  \
    401                                                                       "                        If 0, in the first exchange only an empty\n"    \
    402                                                                       "                        application data message is sent followed by\n" \
    403                                                                       "                        a second non-empty message before attempting\n" \
    404                                                                       "                        to read a response from the server\n"           \
    405                                                                       "    debug_level=%%d      default: 0 (disabled)\n"             \
    406                                                                       "    build_version=%%d    default: none (disabled)\n"                     \
    407                                                                       "                        option: 1 (print build version only and stop)\n" \
    408                                                                       "    nbio=%%d             default: 0 (blocking I/O)\n"         \
    409                                                                       "                        options: 1 (non-blocking), 2 (added delays)\n"   \
    410                                                                       "    event=%%d            default: 0 (loop)\n"                            \
    411                                                                       "                        options: 1 (level-triggered, implies nbio=1),\n" \
    412                                                                       "    read_timeout=%%d     default: 0 ms (no timeout)\n"        \
    413                                                                       "    max_resend=%%d       default: 0 (no resend on timeout)\n" \
    414                                                                       "    skip_close_notify=%%d default: 0 (send close_notify)\n" \
    415                                                                       "\n"                                                    \
    416     USAGE_DTLS                                              \
    417     USAGE_CID                                               \
    418     USAGE_SRTP                                              \
    419     "\n"
    420 #define USAGE2 \
    421     "    auth_mode=%%s        default: (library default: none)\n" \
    422     "                        options: none, optional, required\n" \
    423     "    set_hostname=%%s     call mbedtls_ssl_set_hostname()?" \
    424     "                        options: no, server_name, NULL\n" \
    425     "                        default: server_name (but ignored if certs disabled)\n"  \
    426     USAGE_IO                                                \
    427     USAGE_KEY_OPAQUE                                        \
    428     USAGE_CA_CALLBACK                                       \
    429     "\n"                                                    \
    430     USAGE_PSK                                               \
    431     USAGE_ECJPAKE                                           \
    432     USAGE_ECRESTART                                         \
    433     "\n"
    434 #define USAGE3 \
    435     "    allow_legacy=%%d     default: (library default: no)\n"   \
    436     USAGE_RENEGO                                            \
    437     "    exchanges=%%d        default: 1\n"                 \
    438     "    reconnect=%%d        number of reconnections using session resumption\n" \
    439     "                        default: 0 (disabled)\n"       \
    440     "    reco_server_name=%%s  default: NULL\n"             \
    441     "    reco_delay=%%d       default: 0 milliseconds\n"         \
    442     "    reco_mode=%%d        0: copy session, 1: serialize session\n" \
    443     "                        default: 1\n"      \
    444     "    reconnect_hard=%%d   default: 0 (disabled)\n"      \
    445     USAGE_TICKETS                                           \
    446     USAGE_EAP_TLS                                           \
    447     USAGE_MAX_FRAG_LEN                                      \
    448     USAGE_CONTEXT_CRT_CB                                    \
    449     USAGE_ALPN                                              \
    450     USAGE_EMS                                               \
    451     USAGE_ETM                                               \
    452     USAGE_REPRODUCIBLE                                      \
    453     USAGE_GROUPS                                            \
    454     USAGE_SIG_ALGS                                          \
    455     USAGE_EARLY_DATA                                        \
    456     USAGE_DHMLEN                                            \
    457     USAGE_KEY_OPAQUE_ALGS                                   \
    458     "\n"
    459 
    460 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
    461 #define TLS1_3_VERSION_OPTIONS  ", tls13"
    462 #else /* MBEDTLS_SSL_PROTO_TLS1_3 */
    463 #define TLS1_3_VERSION_OPTIONS  ""
    464 #endif /* !MBEDTLS_SSL_PROTO_TLS1_3 */
    465 
    466 #define USAGE4 \
    467     "    allow_sha1=%%d       default: 0\n"                                   \
    468     "    min_version=%%s      default: (library default: tls12)\n"            \
    469     "    max_version=%%s      default: (library default: tls12)\n"            \
    470     "    force_version=%%s    default: \"\" (none)\n"                         \
    471     "                         options: tls12, dtls12" TLS1_3_VERSION_OPTIONS  \
    472     "\n\n"                                                                    \
    473     "    force_ciphersuite=<name>    default: all enabled\n"                  \
    474     USAGE_TLS1_3_KEY_EXCHANGE_MODES                                           \
    475     "    query_config=<name>         return 0 if the specified\n"             \
    476     "                                configuration macro is defined and 1\n"  \
    477     "                                otherwise. The expansion of the macro\n" \
    478     "                                is printed if it is defined\n"           \
    479     USAGE_SERIALIZATION                                                       \
    480     USAGE_EXPORT                                                              \
    481     "\n"
    482 
    483 /*
    484  * global options
    485  */
    486 struct options {
    487     const char *server_name;    /* hostname of the server (client only)     */
    488     const char *server_addr;    /* address of the server (client only)      */
    489     const char *server_port;    /* port on which the ssl service runs       */
    490     int debug_level;            /* level of debugging                       */
    491     int nbio;                   /* should I/O be blocking?                  */
    492     int event;                  /* loop or event-driven IO? level or edge triggered? */
    493     uint32_t read_timeout;      /* timeout on mbedtls_ssl_read() in milliseconds     */
    494     int max_resend;             /* DTLS times to resend on read timeout     */
    495     const char *request_page;   /* page on server to request                */
    496     int request_size;           /* pad request with header to requested size */
    497     const char *ca_file;        /* the file with the CA certificate(s)      */
    498     const char *ca_path;        /* the path with the CA certificate(s) reside */
    499     const char *crt_file;       /* the file with the client certificate     */
    500     const char *key_file;       /* the file with the client key             */
    501     int key_opaque;             /* handle private key as if it were opaque  */
    502 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    503     int psk_opaque;
    504 #endif
    505 #if defined(MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK)
    506     int ca_callback;            /* Use callback for trusted certificate list */
    507 #endif
    508     const char *key_pwd;        /* the password for the client key          */
    509     const char *psk;            /* the pre-shared key                       */
    510     const char *psk_identity;   /* the pre-shared key identity              */
    511     const char *ecjpake_pw;     /* the EC J-PAKE password                   */
    512 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    513     int ecjpake_pw_opaque;      /* set to 1 to use the opaque method for setting the password */
    514 #endif
    515     int ec_max_ops;             /* EC consecutive operations limit          */
    516     int force_ciphersuite[2];   /* protocol/ciphersuite to use, or all      */
    517 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
    518     int tls13_kex_modes;        /* supported TLS 1.3 key exchange modes     */
    519 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
    520     int renegotiation;          /* enable / disable renegotiation           */
    521     int allow_legacy;           /* allow legacy renegotiation               */
    522     int renegotiate;            /* attempt renegotiation?                   */
    523     int renego_delay;           /* delay before enforcing renegotiation     */
    524     int exchanges;              /* number of data exchanges                 */
    525     int min_version;            /* minimum protocol version accepted        */
    526     int max_version;            /* maximum protocol version accepted        */
    527     int allow_sha1;             /* flag for SHA-1 support                   */
    528     int auth_mode;              /* verify mode for connection               */
    529     int set_hostname;           /* call mbedtls_ssl_set_hostname()?         */
    530                                 /* 0=no, 1=yes, -1=NULL */
    531     unsigned char mfl_code;     /* code for maximum fragment length         */
    532     int trunc_hmac;             /* negotiate truncated hmac or not          */
    533     int recsplit;               /* enable record splitting?                 */
    534     int dhmlen;                 /* minimum DHM params len in bits           */
    535     int reconnect;              /* attempt to resume session                */
    536     const char *reco_server_name;     /* hostname of the server (re-connect)     */
    537     int reco_delay;             /* delay in seconds before resuming session */
    538     int reco_mode;              /* how to keep the session around           */
    539     int reconnect_hard;         /* unexpectedly reconnect from the same port */
    540     int tickets;                /* enable / disable session tickets (TLS 1.2) */
    541     int new_session_tickets;    /* enable / disable new session tickets (TLS 1.3) */
    542     const char *groups;         /* list of supported groups                 */
    543     const char *sig_algs;       /* supported TLS 1.3 signature algorithms   */
    544     const char *alpn_string;    /* ALPN supported protocols                 */
    545     int transport;              /* TLS or DTLS?                             */
    546     uint32_t hs_to_min;         /* Initial value of DTLS handshake timer    */
    547     uint32_t hs_to_max;         /* Max value of DTLS handshake timer        */
    548     int dtls_mtu;               /* UDP Maximum transport unit for DTLS       */
    549     int fallback;               /* is this a fallback connection?           */
    550     int dgram_packing;          /* allow/forbid datagram packing            */
    551     int extended_ms;            /* negotiate extended master secret?        */
    552     int etm;                    /* negotiate encrypt then mac?              */
    553     int context_crt_cb;         /* use context-specific CRT verify callback */
    554     int eap_tls;                /* derive EAP-TLS keying material?          */
    555     int nss_keylog;             /* export NSS key log material              */
    556     const char *nss_keylog_file; /* NSS key log file                        */
    557     int cid_enabled;            /* whether to use the CID extension or not  */
    558     int cid_enabled_renego;     /* whether to use the CID extension or not
    559                                  * during renegotiation                     */
    560     const char *cid_val;        /* the CID to use for incoming messages     */
    561     int serialize;              /* serialize/deserialize connection         */
    562     const char *context_file;   /* the file to write a serialized connection
    563                                  * in the form of base64 code (serialize
    564                                  * option must be set)                      */
    565     const char *cid_val_renego; /* the CID to use for incoming messages
    566                                  * after renegotiation                      */
    567     int reproducible;           /* make communication reproducible          */
    568     int skip_close_notify;      /* skip sending the close_notify alert      */
    569     const char *exp_label;      /* label to input into mbedtls_ssl_export_keying_material() */
    570     int exp_len;                /* Length of key to export using mbedtls_ssl_export_keying_material() */
    571 #if defined(MBEDTLS_SSL_EARLY_DATA)
    572     int early_data;             /* early data enablement flag               */
    573 #endif
    574     int query_config_mode;      /* whether to read config                   */
    575     int use_srtp;               /* Support SRTP                             */
    576     int force_srtp_profile;     /* SRTP protection profile to use or all    */
    577     const char *mki;            /* The dtls mki value to use                */
    578     const char *key_opaque_alg1; /* Allowed opaque key alg 1                */
    579     const char *key_opaque_alg2; /* Allowed Opaque key alg 2                */
    580 } opt;
    581 
    582 #include "ssl_test_common_source.c"
    583 
    584 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    585 static unsigned char peer_crt_info[1024];
    586 
    587 /*
    588  * Enabled if debug_level > 1 in code below
    589  */
    590 static int my_verify(void *data, mbedtls_x509_crt *crt,
    591                      int depth, uint32_t *flags)
    592 {
    593     char buf[1024];
    594     ((void) data);
    595 
    596     mbedtls_printf("\nVerify requested for (Depth %d):\n", depth);
    597 
    598 #if !defined(MBEDTLS_X509_REMOVE_INFO)
    599     mbedtls_x509_crt_info(buf, sizeof(buf) - 1, "", crt);
    600     if (depth == 0) {
    601         memcpy(peer_crt_info, buf, sizeof(buf));
    602     }
    603 
    604     if (opt.debug_level == 0) {
    605         return 0;
    606     }
    607 
    608     mbedtls_printf("%s", buf);
    609 #else
    610     ((void) crt);
    611     ((void) depth);
    612 #endif
    613 
    614     if ((*flags) == 0) {
    615         mbedtls_printf("  This certificate has no flags\n");
    616     } else {
    617         x509_crt_verify_info(buf, sizeof(buf), "  ! ", *flags);
    618         mbedtls_printf("%s\n", buf);
    619     }
    620 
    621     return 0;
    622 }
    623 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
    624 
    625 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
    626 static int report_cid_usage(mbedtls_ssl_context *ssl,
    627                             const char *additional_description)
    628 {
    629     int ret;
    630     unsigned char peer_cid[MBEDTLS_SSL_CID_OUT_LEN_MAX];
    631     size_t peer_cid_len;
    632     int cid_negotiated;
    633 
    634     if (opt.transport != MBEDTLS_SSL_TRANSPORT_DATAGRAM) {
    635         return 0;
    636     }
    637 
    638     /* Check if the use of a CID has been negotiated,
    639      * but don't ask for the CID value and length.
    640      *
    641      * Note: Here and below, we're demonstrating the various ways
    642      *       in which mbedtls_ssl_get_peer_cid() can be called,
    643      *       depending on whether or not the length/value of the
    644      *       peer's CID is needed.
    645      *
    646      *       An actual application, however, should use
    647      *       just one call to mbedtls_ssl_get_peer_cid(). */
    648     ret = mbedtls_ssl_get_peer_cid(ssl, &cid_negotiated,
    649                                    NULL, NULL);
    650     if (ret != 0) {
    651         mbedtls_printf(" failed\n  ! mbedtls_ssl_get_peer_cid returned -0x%x\n\n",
    652                        (unsigned int) -ret);
    653         return ret;
    654     }
    655 
    656     if (cid_negotiated == MBEDTLS_SSL_CID_DISABLED) {
    657         if (opt.cid_enabled == MBEDTLS_SSL_CID_ENABLED) {
    658             mbedtls_printf("(%s) Use of Connection ID was rejected by the server.\n",
    659                            additional_description);
    660         }
    661     } else {
    662         size_t idx = 0;
    663         mbedtls_printf("(%s) Use of Connection ID has been negotiated.\n",
    664                        additional_description);
    665 
    666         /* Ask for just the length of the peer's CID. */
    667         ret = mbedtls_ssl_get_peer_cid(ssl, &cid_negotiated,
    668                                        NULL, &peer_cid_len);
    669         if (ret != 0) {
    670             mbedtls_printf(" failed\n  ! mbedtls_ssl_get_peer_cid returned -0x%x\n\n",
    671                            (unsigned int) -ret);
    672             return ret;
    673         }
    674 
    675         /* Ask for just length + value of the peer's CID. */
    676         ret = mbedtls_ssl_get_peer_cid(ssl, &cid_negotiated,
    677                                        peer_cid, &peer_cid_len);
    678         if (ret != 0) {
    679             mbedtls_printf(" failed\n  ! mbedtls_ssl_get_peer_cid returned -0x%x\n\n",
    680                            (unsigned int) -ret);
    681             return ret;
    682         }
    683         mbedtls_printf("(%s) Peer CID (length %u Bytes): ",
    684                        additional_description,
    685                        (unsigned) peer_cid_len);
    686         while (idx < peer_cid_len) {
    687             mbedtls_printf("%02x ", peer_cid[idx]);
    688             idx++;
    689         }
    690         mbedtls_printf("\n");
    691     }
    692 
    693     return 0;
    694 }
    695 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
    696 
    697 static int ssl_save_session_serialize(mbedtls_ssl_context *ssl,
    698                                       unsigned char **session_data,
    699                                       size_t *session_data_len)
    700 {
    701     int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
    702     mbedtls_ssl_session exported_session;
    703 
    704     /* free any previously saved data */
    705     if (*session_data != NULL) {
    706         mbedtls_platform_zeroize(*session_data, *session_data_len);
    707         mbedtls_free(*session_data);
    708         *session_data = NULL;
    709         *session_data_len = 0;
    710     }
    711 
    712     mbedtls_ssl_session_init(&exported_session);
    713     ret = mbedtls_ssl_get_session(ssl, &exported_session);
    714     if (ret != 0) {
    715         mbedtls_printf(
    716             "failed\n  ! mbedtls_ssl_get_session() returned -%#02x\n",
    717             (unsigned) -ret);
    718         goto exit;
    719     }
    720 
    721     /* get size of the buffer needed */
    722     (void) mbedtls_ssl_session_save(&exported_session, NULL, 0, session_data_len);
    723     *session_data = mbedtls_calloc(1, *session_data_len);
    724     if (*session_data == NULL) {
    725         mbedtls_printf(" failed\n  ! alloc %u bytes for session data\n",
    726                        (unsigned) *session_data_len);
    727         ret = MBEDTLS_ERR_SSL_ALLOC_FAILED;
    728         goto exit;
    729     }
    730 
    731     /* actually save session data */
    732     if ((ret = mbedtls_ssl_session_save(&exported_session,
    733                                         *session_data, *session_data_len,
    734                                         session_data_len)) != 0) {
    735         mbedtls_printf(" failed\n  ! mbedtls_ssl_session_saved returned -0x%04x\n\n",
    736                        (unsigned int) -ret);
    737         goto exit;
    738     }
    739 
    740 exit:
    741     mbedtls_ssl_session_free(&exported_session);
    742     return ret;
    743 }
    744 
    745 /*
    746  * Build HTTP request
    747  */
    748 static int build_http_request(unsigned char *buf, size_t buf_size, size_t *request_len)
    749 {
    750     int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
    751     size_t len, tail_len, request_size;
    752 
    753     ret = mbedtls_snprintf((char *) buf, buf_size, GET_REQUEST, opt.request_page, opt.server_name);
    754     if (ret < 0) {
    755         return ret;
    756     }
    757 
    758     len = (size_t) ret;
    759     tail_len = strlen(GET_REQUEST_END);
    760     if (opt.request_size != DFL_REQUEST_SIZE) {
    761         request_size = (size_t) opt.request_size;
    762     } else {
    763         request_size = len + tail_len;
    764     }
    765 
    766     if (request_size > buf_size) {
    767         return MBEDTLS_ERR_SSL_BUFFER_TOO_SMALL;
    768     }
    769 
    770     /* Add padding to GET request to reach opt.request_size in length */
    771     if (opt.request_size != DFL_REQUEST_SIZE &&
    772         len + tail_len < request_size) {
    773         memset(buf + len, 'A', request_size - len - tail_len);
    774         len = request_size - tail_len;
    775     }
    776 
    777     strncpy((char *) buf + len, GET_REQUEST_END, buf_size - len);
    778     len += tail_len;
    779 
    780     /* Truncate if request size is smaller than the "natural" size */
    781     if (opt.request_size != DFL_REQUEST_SIZE &&
    782         len > request_size) {
    783         len = request_size;
    784 
    785         /* Still end with \r\n unless that's really not possible */
    786         if (len >= 2) {
    787             buf[len - 2] = '\r';
    788         }
    789         if (len >= 1) {
    790             buf[len - 1] = '\n';
    791         }
    792     }
    793 
    794     *request_len = len;
    795 
    796     return 0;
    797 }
    798 
    799 int main(int argc, char *argv[])
    800 {
    801     int ret = 0, i;
    802     size_t len, written, frags, retry_left;
    803     int query_config_ret = 0;
    804     mbedtls_net_context server_fd;
    805     io_ctx_t io_ctx;
    806 
    807 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    808     uint16_t sig_alg_list[SIG_ALG_LIST_SIZE];
    809 #endif
    810 
    811     unsigned char buf[MAX_REQUEST_SIZE + 1];
    812 
    813 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
    814     unsigned char psk[MBEDTLS_PSK_MAX_LEN];
    815     size_t psk_len = 0;
    816 #endif
    817 
    818 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
    819     unsigned char cid[MBEDTLS_SSL_CID_IN_LEN_MAX];
    820     unsigned char cid_renego[MBEDTLS_SSL_CID_IN_LEN_MAX];
    821     size_t cid_len = 0;
    822     size_t cid_renego_len = 0;
    823 #endif
    824 
    825 #if defined(MBEDTLS_SSL_ALPN)
    826     const char *alpn_list[ALPN_LIST_SIZE];
    827 #endif
    828 
    829 #if defined(MBEDTLS_MEMORY_BUFFER_ALLOC_C)
    830     unsigned char alloc_buf[MEMORY_HEAP_SIZE];
    831 #endif
    832     uint16_t group_list[GROUP_LIST_SIZE];
    833 #if defined(MBEDTLS_SSL_DTLS_SRTP)
    834     unsigned char mki[MBEDTLS_TLS_SRTP_MAX_MKI_LENGTH];
    835     size_t mki_len = 0;
    836 #endif
    837 
    838     const char *pers = "ssl_client2";
    839 
    840 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    841 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
    842     mbedtls_svc_key_id_t slot = MBEDTLS_SVC_KEY_ID_INIT;
    843     psa_algorithm_t alg = 0;
    844     psa_key_attributes_t key_attributes;
    845 #endif
    846     psa_status_t status;
    847 #endif
    848 
    849     rng_context_t rng;
    850     mbedtls_ssl_context ssl;
    851     mbedtls_ssl_config conf;
    852     mbedtls_ssl_session saved_session;
    853     unsigned char *session_data = NULL;
    854     size_t session_data_len = 0;
    855 #if defined(MBEDTLS_TIMING_C)
    856     mbedtls_timing_delay_context timer;
    857 #endif
    858 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    859     uint32_t flags;
    860     mbedtls_x509_crt cacert;
    861     mbedtls_x509_crt clicert;
    862     mbedtls_pk_context pkey;
    863     mbedtls_x509_crt_profile crt_profile_for_test = mbedtls_x509_crt_profile_default;
    864 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    865     mbedtls_svc_key_id_t key_slot = MBEDTLS_SVC_KEY_ID_INIT; /* invalid key slot */
    866 #endif
    867 #endif  /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
    868     char *p, *q;
    869     const int *list;
    870 #if defined(MBEDTLS_SSL_CONTEXT_SERIALIZATION)
    871     unsigned char *context_buf = NULL;
    872     size_t context_buf_len;
    873 #endif
    874     unsigned char eap_tls_keymaterial[16];
    875     unsigned char eap_tls_iv[8];
    876     const char *eap_tls_label = "client EAP encryption";
    877     eap_tls_keys eap_tls_keying;
    878 #if defined(MBEDTLS_SSL_DTLS_SRTP)
    879     /*! master keys and master salt for SRTP generated during handshake */
    880     unsigned char dtls_srtp_key_material[MBEDTLS_TLS_SRTP_MAX_KEY_MATERIAL_LENGTH];
    881     const char *dtls_srtp_label = "EXTRACTOR-dtls_srtp";
    882     dtls_srtp_keys dtls_srtp_keying;
    883     const mbedtls_ssl_srtp_profile default_profiles[] = {
    884         MBEDTLS_TLS_SRTP_AES128_CM_HMAC_SHA1_80,
    885         MBEDTLS_TLS_SRTP_AES128_CM_HMAC_SHA1_32,
    886         MBEDTLS_TLS_SRTP_NULL_HMAC_SHA1_80,
    887         MBEDTLS_TLS_SRTP_NULL_HMAC_SHA1_32,
    888         MBEDTLS_TLS_SRTP_UNSET
    889     };
    890 #endif /* MBEDTLS_SSL_DTLS_SRTP */
    891 #if defined(MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED) && \
    892     defined(MBEDTLS_USE_PSA_CRYPTO)
    893     mbedtls_svc_key_id_t ecjpake_pw_slot = MBEDTLS_SVC_KEY_ID_INIT; /* ecjpake password key slot */
    894 #endif /* MBEDTLS_USE_PSA_CRYPTO && MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED */
    895 
    896 #if defined(MBEDTLS_MEMORY_BUFFER_ALLOC_C)
    897     mbedtls_memory_buffer_alloc_init(alloc_buf, sizeof(alloc_buf));
    898 #endif
    899 
    900 #if defined(MBEDTLS_TEST_HOOKS)
    901     test_hooks_init();
    902 #endif /* MBEDTLS_TEST_HOOKS */
    903 
    904     /*
    905      * Make sure memory references are valid.
    906      */
    907     mbedtls_net_init(&server_fd);
    908     mbedtls_ssl_init(&ssl);
    909     mbedtls_ssl_config_init(&conf);
    910     mbedtls_ssl_session_init(&saved_session);
    911     rng_init(&rng);
    912 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
    913     mbedtls_x509_crt_init(&cacert);
    914     mbedtls_x509_crt_init(&clicert);
    915     mbedtls_pk_init(&pkey);
    916 #endif
    917 #if defined(MBEDTLS_SSL_ALPN)
    918     memset((void *) alpn_list, 0, sizeof(alpn_list));
    919 #endif
    920 
    921     /* For builds with TLS 1.3 enabled but not MBEDTLS_USE_PSA_CRYPTO,
    922      * we deliberately do not call psa_crypto_init() here, to test that
    923      * the library is backward-compatible with versions prior to 3.6.0
    924      * where calling psa_crypto_init() was not required to open a TLS
    925      * connection in the default configuration. See
    926      * https://github.com/Mbed-TLS/mbedtls/issues/9072 and
    927      * mbedtls_ssl_tls13_crypto_init().
    928      */
    929 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    930     status = psa_crypto_init();
    931     if (status != PSA_SUCCESS) {
    932         mbedtls_fprintf(stderr, "Failed to initialize PSA Crypto implementation: %d\n",
    933                         (int) status);
    934         ret = MBEDTLS_ERR_SSL_HW_ACCEL_FAILED;
    935         goto exit;
    936     }
    937 #endif  /* MBEDTLS_USE_PSA_CRYPTO || MBEDTLS_SSL_PROTO_TLS1_3 */
    938 #if defined(MBEDTLS_PSA_CRYPTO_EXTERNAL_RNG)
    939     mbedtls_test_enable_insecure_external_rng();
    940 #endif  /* MBEDTLS_PSA_CRYPTO_EXTERNAL_RNG */
    941 
    942     opt.server_name         = DFL_SERVER_NAME;
    943     opt.server_addr         = DFL_SERVER_ADDR;
    944     opt.server_port         = DFL_SERVER_PORT;
    945     opt.debug_level         = DFL_DEBUG_LEVEL;
    946     opt.cid_enabled         = DFL_CID_ENABLED;
    947     opt.cid_val             = DFL_CID_VALUE;
    948     opt.cid_enabled_renego  = DFL_CID_ENABLED_RENEGO;
    949     opt.cid_val_renego      = DFL_CID_VALUE_RENEGO;
    950     opt.nbio                = DFL_NBIO;
    951     opt.event               = DFL_EVENT;
    952     opt.context_crt_cb      = DFL_CONTEXT_CRT_CB;
    953     opt.read_timeout        = DFL_READ_TIMEOUT;
    954     opt.max_resend          = DFL_MAX_RESEND;
    955     opt.request_page        = DFL_REQUEST_PAGE;
    956     opt.request_size        = DFL_REQUEST_SIZE;
    957     opt.ca_file             = DFL_CA_FILE;
    958     opt.ca_path             = DFL_CA_PATH;
    959     opt.crt_file            = DFL_CRT_FILE;
    960     opt.key_file            = DFL_KEY_FILE;
    961     opt.key_opaque          = DFL_KEY_OPAQUE;
    962     opt.key_pwd             = DFL_KEY_PWD;
    963     opt.psk                 = DFL_PSK;
    964 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    965     opt.psk_opaque          = DFL_PSK_OPAQUE;
    966 #endif
    967 #if defined(MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK)
    968     opt.ca_callback         = DFL_CA_CALLBACK;
    969 #endif
    970     opt.psk_identity        = DFL_PSK_IDENTITY;
    971     opt.ecjpake_pw          = DFL_ECJPAKE_PW;
    972 #if defined(MBEDTLS_USE_PSA_CRYPTO)
    973     opt.ecjpake_pw_opaque   = DFL_ECJPAKE_PW_OPAQUE;
    974 #endif
    975     opt.ec_max_ops          = DFL_EC_MAX_OPS;
    976     opt.force_ciphersuite[0] = DFL_FORCE_CIPHER;
    977 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
    978     opt.tls13_kex_modes     = DFL_TLS1_3_KEX_MODES;
    979 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
    980     opt.renegotiation       = DFL_RENEGOTIATION;
    981     opt.allow_legacy        = DFL_ALLOW_LEGACY;
    982     opt.renegotiate         = DFL_RENEGOTIATE;
    983     opt.renego_delay        = DFL_RENEGO_DELAY;
    984     opt.exchanges           = DFL_EXCHANGES;
    985     opt.min_version         = DFL_MIN_VERSION;
    986     opt.max_version         = DFL_MAX_VERSION;
    987     opt.allow_sha1          = DFL_SHA1;
    988     opt.auth_mode           = DFL_AUTH_MODE;
    989     opt.set_hostname        = DFL_SET_HOSTNAME;
    990     opt.mfl_code            = DFL_MFL_CODE;
    991     opt.trunc_hmac          = DFL_TRUNC_HMAC;
    992     opt.recsplit            = DFL_RECSPLIT;
    993     opt.dhmlen              = DFL_DHMLEN;
    994     opt.reconnect           = DFL_RECONNECT;
    995     opt.reco_server_name    = DFL_RECO_SERVER_NAME;
    996     opt.reco_delay          = DFL_RECO_DELAY;
    997     opt.reco_mode           = DFL_RECO_MODE;
    998     opt.reconnect_hard      = DFL_RECONNECT_HARD;
    999     opt.tickets             = DFL_TICKETS;
   1000     opt.new_session_tickets = DFL_NEW_SESSION_TICKETS;
   1001     opt.alpn_string         = DFL_ALPN_STRING;
   1002     opt.groups              = DFL_GROUPS;
   1003     opt.sig_algs            = DFL_SIG_ALGS;
   1004 #if defined(MBEDTLS_SSL_EARLY_DATA)
   1005     opt.early_data          = DFL_EARLY_DATA;
   1006 #endif
   1007     opt.transport           = DFL_TRANSPORT;
   1008     opt.hs_to_min           = DFL_HS_TO_MIN;
   1009     opt.hs_to_max           = DFL_HS_TO_MAX;
   1010     opt.dtls_mtu            = DFL_DTLS_MTU;
   1011     opt.fallback            = DFL_FALLBACK;
   1012     opt.extended_ms         = DFL_EXTENDED_MS;
   1013     opt.etm                 = DFL_ETM;
   1014     opt.dgram_packing       = DFL_DGRAM_PACKING;
   1015     opt.serialize           = DFL_SERIALIZE;
   1016     opt.context_file        = DFL_CONTEXT_FILE;
   1017     opt.eap_tls             = DFL_EAP_TLS;
   1018     opt.reproducible        = DFL_REPRODUCIBLE;
   1019     opt.nss_keylog          = DFL_NSS_KEYLOG;
   1020     opt.nss_keylog_file     = DFL_NSS_KEYLOG_FILE;
   1021     opt.skip_close_notify   = DFL_SKIP_CLOSE_NOTIFY;
   1022     opt.exp_label           = DFL_EXP_LABEL;
   1023     opt.exp_len             = DFL_EXP_LEN;
   1024     opt.query_config_mode   = DFL_QUERY_CONFIG_MODE;
   1025     opt.use_srtp            = DFL_USE_SRTP;
   1026     opt.force_srtp_profile  = DFL_SRTP_FORCE_PROFILE;
   1027     opt.mki                 = DFL_SRTP_MKI;
   1028     opt.key_opaque_alg1     = DFL_KEY_OPAQUE_ALG;
   1029     opt.key_opaque_alg2     = DFL_KEY_OPAQUE_ALG;
   1030 
   1031     p = q = NULL;
   1032     if (argc < 1) {
   1033 usage:
   1034         if (p != NULL && q != NULL) {
   1035             printf("unrecognized value for '%s': '%s'\n", p, q);
   1036         } else if (p != NULL && q == NULL) {
   1037             printf("unrecognized param: '%s'\n", p);
   1038         }
   1039 
   1040         mbedtls_printf("usage: ssl_client2 [param=value] [...]\n");
   1041         mbedtls_printf("       ssl_client2 help[_theme]\n");
   1042         mbedtls_printf("'help' lists acceptable 'param' and 'value'\n");
   1043         mbedtls_printf("'help_ciphersuites' lists available ciphersuites\n");
   1044         mbedtls_printf("\n");
   1045 
   1046         if (ret == 0) {
   1047             ret = 1;
   1048         }
   1049         goto exit;
   1050     }
   1051 
   1052     for (i = 1; i < argc; i++) {
   1053         p = argv[i];
   1054 
   1055         if (strcmp(p, "help") == 0) {
   1056             mbedtls_printf(USAGE1);
   1057             mbedtls_printf(USAGE2);
   1058             mbedtls_printf(USAGE3);
   1059             mbedtls_printf(USAGE4);
   1060 
   1061             ret = 0;
   1062             goto exit;
   1063         }
   1064         if (strcmp(p, "help_ciphersuites") == 0) {
   1065             mbedtls_printf(" acceptable ciphersuite names:\n");
   1066             for (list = mbedtls_ssl_list_ciphersuites();
   1067                  *list != 0;
   1068                  list++) {
   1069                 mbedtls_printf(" %s\n", mbedtls_ssl_get_ciphersuite_name(*list));
   1070             }
   1071 
   1072             ret = 0;
   1073             goto exit;
   1074         }
   1075 
   1076         if ((q = strchr(p, '=')) == NULL) {
   1077             mbedtls_printf("param requires a value: '%s'\n", p);
   1078             p = NULL; // avoid "unrecnognized param" message
   1079             goto usage;
   1080         }
   1081         *q++ = '\0';
   1082 
   1083         if (strcmp(p, "server_name") == 0) {
   1084             opt.server_name = q;
   1085         } else if (strcmp(p, "server_addr") == 0) {
   1086             opt.server_addr = q;
   1087         } else if (strcmp(p, "server_port") == 0) {
   1088             opt.server_port = q;
   1089         } else if (strcmp(p, "dtls") == 0) {
   1090             int t = atoi(q);
   1091             if (t == 0) {
   1092                 opt.transport = MBEDTLS_SSL_TRANSPORT_STREAM;
   1093             } else if (t == 1) {
   1094                 opt.transport = MBEDTLS_SSL_TRANSPORT_DATAGRAM;
   1095             } else {
   1096                 goto usage;
   1097             }
   1098         } else if (strcmp(p, "debug_level") == 0) {
   1099             opt.debug_level = atoi(q);
   1100             if (opt.debug_level < 0 || opt.debug_level > 65535) {
   1101                 goto usage;
   1102             }
   1103         } else if (strcmp(p, "build_version") == 0) {
   1104             if (strcmp(q, "1") == 0) {
   1105                 mbedtls_printf("build version: %s (build %d)\n",
   1106                                MBEDTLS_VERSION_STRING_FULL,
   1107                                MBEDTLS_VERSION_NUMBER);
   1108                 goto exit;
   1109             }
   1110         } else if (strcmp(p, "context_crt_cb") == 0) {
   1111             opt.context_crt_cb = atoi(q);
   1112             if (opt.context_crt_cb != 0 && opt.context_crt_cb != 1) {
   1113                 goto usage;
   1114             }
   1115         } else if (strcmp(p, "nbio") == 0) {
   1116             opt.nbio = atoi(q);
   1117             if (opt.nbio < 0 || opt.nbio > 2) {
   1118                 goto usage;
   1119             }
   1120         } else if (strcmp(p, "event") == 0) {
   1121             opt.event = atoi(q);
   1122             if (opt.event < 0 || opt.event > 2) {
   1123                 goto usage;
   1124             }
   1125         } else if (strcmp(p, "read_timeout") == 0) {
   1126             opt.read_timeout = atoi(q);
   1127         } else if (strcmp(p, "max_resend") == 0) {
   1128             opt.max_resend = atoi(q);
   1129             if (opt.max_resend < 0) {
   1130                 goto usage;
   1131             }
   1132         } else if (strcmp(p, "request_page") == 0) {
   1133             opt.request_page = q;
   1134         } else if (strcmp(p, "request_size") == 0) {
   1135             opt.request_size = atoi(q);
   1136             if (opt.request_size < 0 ||
   1137                 opt.request_size > MAX_REQUEST_SIZE) {
   1138                 goto usage;
   1139             }
   1140         } else if (strcmp(p, "ca_file") == 0) {
   1141             opt.ca_file = q;
   1142         } else if (strcmp(p, "ca_path") == 0) {
   1143             opt.ca_path = q;
   1144         } else if (strcmp(p, "crt_file") == 0) {
   1145             opt.crt_file = q;
   1146         } else if (strcmp(p, "key_file") == 0) {
   1147             opt.key_file = q;
   1148         } else if (strcmp(p, "key_pwd") == 0) {
   1149             opt.key_pwd = q;
   1150         }
   1151 #if defined(MBEDTLS_USE_PSA_CRYPTO) && defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   1152         else if (strcmp(p, "key_opaque") == 0) {
   1153             opt.key_opaque = atoi(q);
   1154         }
   1155 #endif
   1156 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   1157         else if (strcmp(p, "cid") == 0) {
   1158             opt.cid_enabled = atoi(q);
   1159             if (opt.cid_enabled != 0 && opt.cid_enabled != 1) {
   1160                 goto usage;
   1161             }
   1162         } else if (strcmp(p, "cid_renego") == 0) {
   1163             opt.cid_enabled_renego = atoi(q);
   1164             if (opt.cid_enabled_renego != 0 && opt.cid_enabled_renego != 1) {
   1165                 goto usage;
   1166             }
   1167         } else if (strcmp(p, "cid_val") == 0) {
   1168             opt.cid_val = q;
   1169         } else if (strcmp(p, "cid_val_renego") == 0) {
   1170             opt.cid_val_renego = q;
   1171         }
   1172 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   1173         else if (strcmp(p, "psk") == 0) {
   1174             opt.psk = q;
   1175         }
   1176 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   1177         else if (strcmp(p, "psk_opaque") == 0) {
   1178             opt.psk_opaque = atoi(q);
   1179         }
   1180 #endif
   1181 #if defined(MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK)
   1182         else if (strcmp(p, "ca_callback") == 0) {
   1183             opt.ca_callback = atoi(q);
   1184         }
   1185 #endif
   1186         else if (strcmp(p, "psk_identity") == 0) {
   1187             opt.psk_identity = q;
   1188         } else if (strcmp(p, "ecjpake_pw") == 0) {
   1189             opt.ecjpake_pw = q;
   1190         }
   1191 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   1192         else if (strcmp(p, "ecjpake_pw_opaque") == 0) {
   1193             opt.ecjpake_pw_opaque = atoi(q);
   1194         }
   1195 #endif
   1196         else if (strcmp(p, "ec_max_ops") == 0) {
   1197             opt.ec_max_ops = atoi(q);
   1198         } else if (strcmp(p, "force_ciphersuite") == 0) {
   1199             opt.force_ciphersuite[0] = mbedtls_ssl_get_ciphersuite_id(q);
   1200 
   1201             if (opt.force_ciphersuite[0] == 0) {
   1202                 ret = 2;
   1203                 goto usage;
   1204             }
   1205             opt.force_ciphersuite[1] = 0;
   1206         } else if (strcmp(p, "renegotiation") == 0) {
   1207             opt.renegotiation = (atoi(q)) ?
   1208                                 MBEDTLS_SSL_RENEGOTIATION_ENABLED :
   1209                                 MBEDTLS_SSL_RENEGOTIATION_DISABLED;
   1210         } else if (strcmp(p, "allow_legacy") == 0) {
   1211             switch (atoi(q)) {
   1212                 case -1:
   1213                     opt.allow_legacy = MBEDTLS_SSL_LEGACY_BREAK_HANDSHAKE;
   1214                     break;
   1215                 case 0:
   1216                     opt.allow_legacy = MBEDTLS_SSL_LEGACY_NO_RENEGOTIATION;
   1217                     break;
   1218                 case 1:
   1219                     opt.allow_legacy = MBEDTLS_SSL_LEGACY_ALLOW_RENEGOTIATION;
   1220                     break;
   1221                 default: goto usage;
   1222             }
   1223         } else if (strcmp(p, "renego_delay") == 0) {
   1224             opt.renego_delay = (atoi(q));
   1225         } else if (strcmp(p, "renegotiate") == 0) {
   1226             opt.renegotiate = atoi(q);
   1227             if (opt.renegotiate < 0 || opt.renegotiate > 1) {
   1228                 goto usage;
   1229             }
   1230         } else if (strcmp(p, "exchanges") == 0) {
   1231             opt.exchanges = atoi(q);
   1232             if (opt.exchanges < 1) {
   1233                 goto usage;
   1234             }
   1235         } else if (strcmp(p, "reconnect") == 0) {
   1236             opt.reconnect = atoi(q);
   1237             if (opt.reconnect < 0 || opt.reconnect > 2) {
   1238                 goto usage;
   1239             }
   1240         } else if (strcmp(p, "reco_server_name") == 0) {
   1241             opt.reco_server_name = q;
   1242         } else if (strcmp(p, "reco_delay") == 0) {
   1243             opt.reco_delay = atoi(q);
   1244             if (opt.reco_delay < 0) {
   1245                 goto usage;
   1246             }
   1247         } else if (strcmp(p, "reco_mode") == 0) {
   1248             opt.reco_mode = atoi(q);
   1249             if (opt.reco_mode < 0) {
   1250                 goto usage;
   1251             }
   1252         } else if (strcmp(p, "reconnect_hard") == 0) {
   1253             opt.reconnect_hard = atoi(q);
   1254             if (opt.reconnect_hard < 0 || opt.reconnect_hard > 1) {
   1255                 goto usage;
   1256             }
   1257         } else if (strcmp(p, "tickets") == 0) {
   1258             opt.tickets = atoi(q);
   1259             if (opt.tickets < 0) {
   1260                 goto usage;
   1261             }
   1262         } else if (strcmp(p, "new_session_tickets") == 0) {
   1263             opt.new_session_tickets = atoi(q);
   1264             if (opt.new_session_tickets < 0) {
   1265                 goto usage;
   1266             }
   1267         } else if (strcmp(p, "alpn") == 0) {
   1268             opt.alpn_string = q;
   1269         } else if (strcmp(p, "extended_ms") == 0) {
   1270             switch (atoi(q)) {
   1271                 case 0:
   1272                     opt.extended_ms = MBEDTLS_SSL_EXTENDED_MS_DISABLED;
   1273                     break;
   1274                 case 1:
   1275                     opt.extended_ms = MBEDTLS_SSL_EXTENDED_MS_ENABLED;
   1276                     break;
   1277                 default: goto usage;
   1278             }
   1279         } else if (strcmp(p, "groups") == 0) {
   1280             opt.groups = q;
   1281         }
   1282 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   1283         else if (strcmp(p, "sig_algs") == 0) {
   1284             opt.sig_algs = q;
   1285         }
   1286 #endif
   1287         else if (strcmp(p, "etm") == 0) {
   1288             switch (atoi(q)) {
   1289                 case 0: opt.etm = MBEDTLS_SSL_ETM_DISABLED; break;
   1290                 case 1: opt.etm = MBEDTLS_SSL_ETM_ENABLED; break;
   1291                 default: goto usage;
   1292             }
   1293         }
   1294 
   1295 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   1296 #if defined(MBEDTLS_SSL_EARLY_DATA)
   1297         else if (strcmp(p, "early_data") == 0) {
   1298             switch (atoi(q)) {
   1299                 case 0:
   1300                     opt.early_data = MBEDTLS_SSL_EARLY_DATA_DISABLED;
   1301                     break;
   1302                 case 1:
   1303                     opt.early_data = MBEDTLS_SSL_EARLY_DATA_ENABLED;
   1304                     break;
   1305                 default: goto usage;
   1306             }
   1307         }
   1308 #endif /* MBEDTLS_SSL_EARLY_DATA */
   1309 
   1310         else if (strcmp(p, "tls13_kex_modes") == 0) {
   1311             if (strcmp(q, "psk") == 0) {
   1312                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_PSK;
   1313             } else if (strcmp(q, "psk_ephemeral") == 0) {
   1314                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_PSK_EPHEMERAL;
   1315             } else if (strcmp(q, "ephemeral") == 0) {
   1316                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_EPHEMERAL;
   1317             } else if (strcmp(q, "ephemeral_all") == 0) {
   1318                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_EPHEMERAL_ALL;
   1319             } else if (strcmp(q, "psk_all") == 0) {
   1320                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_PSK_ALL;
   1321             } else if (strcmp(q, "all") == 0) {
   1322                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_ALL;
   1323             } else if (strcmp(q, "psk_or_ephemeral") == 0) {
   1324                 opt.tls13_kex_modes = MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_PSK |
   1325                                       MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_EPHEMERAL;
   1326             } else {
   1327                 goto usage;
   1328             }
   1329         }
   1330 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   1331         else if (strcmp(p, "min_version") == 0) {
   1332             if (strcmp(q, "tls12") == 0 ||
   1333                 strcmp(q, "dtls12") == 0) {
   1334                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1335             }
   1336 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   1337             else if (strcmp(q, "tls13") == 0) {
   1338                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_3;
   1339             }
   1340 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   1341             else {
   1342                 goto usage;
   1343             }
   1344         } else if (strcmp(p, "max_version") == 0) {
   1345             if (strcmp(q, "tls12") == 0 ||
   1346                 strcmp(q, "dtls12") == 0) {
   1347                 opt.max_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1348             }
   1349 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   1350             else if (strcmp(q, "tls13") == 0) {
   1351                 opt.max_version = MBEDTLS_SSL_VERSION_TLS1_3;
   1352             }
   1353 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   1354             else {
   1355                 goto usage;
   1356             }
   1357         } else if (strcmp(p, "allow_sha1") == 0) {
   1358             switch (atoi(q)) {
   1359                 case 0:     opt.allow_sha1 = 0;   break;
   1360                 case 1:     opt.allow_sha1 = 1;    break;
   1361                 default:    goto usage;
   1362             }
   1363         } else if (strcmp(p, "force_version") == 0) {
   1364             if (strcmp(q, "tls12") == 0) {
   1365                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1366                 opt.max_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1367             } else if (strcmp(q, "dtls12") == 0) {
   1368                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1369                 opt.max_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1370                 opt.transport = MBEDTLS_SSL_TRANSPORT_DATAGRAM;
   1371             }
   1372 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   1373             else if (strcmp(q, "tls13") == 0) {
   1374                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_3;
   1375                 opt.max_version = MBEDTLS_SSL_VERSION_TLS1_3;
   1376             }
   1377 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   1378             else {
   1379                 goto usage;
   1380             }
   1381         } else if (strcmp(p, "auth_mode") == 0) {
   1382             if (strcmp(q, "none") == 0) {
   1383                 opt.auth_mode = MBEDTLS_SSL_VERIFY_NONE;
   1384             } else if (strcmp(q, "optional") == 0) {
   1385                 opt.auth_mode = MBEDTLS_SSL_VERIFY_OPTIONAL;
   1386             } else if (strcmp(q, "required") == 0) {
   1387                 opt.auth_mode = MBEDTLS_SSL_VERIFY_REQUIRED;
   1388             } else {
   1389                 goto usage;
   1390             }
   1391         } else if (strcmp(p, "set_hostname") == 0) {
   1392             if (strcmp(q, "no") == 0) {
   1393                 opt.set_hostname = 0;
   1394             } else if (strcmp(q, "server_name") == 0) {
   1395                 opt.set_hostname = 1;
   1396             } else if (strcmp(q, "NULL") == 0) {
   1397                 opt.set_hostname = -1;
   1398             } else {
   1399                 goto usage;
   1400             }
   1401         } else if (strcmp(p, "max_frag_len") == 0) {
   1402             if (strcmp(q, "512") == 0) {
   1403                 opt.mfl_code = MBEDTLS_SSL_MAX_FRAG_LEN_512;
   1404             } else if (strcmp(q, "1024") == 0) {
   1405                 opt.mfl_code = MBEDTLS_SSL_MAX_FRAG_LEN_1024;
   1406             } else if (strcmp(q, "2048") == 0) {
   1407                 opt.mfl_code = MBEDTLS_SSL_MAX_FRAG_LEN_2048;
   1408             } else if (strcmp(q, "4096") == 0) {
   1409                 opt.mfl_code = MBEDTLS_SSL_MAX_FRAG_LEN_4096;
   1410             } else {
   1411                 goto usage;
   1412             }
   1413         } else if (strcmp(p, "trunc_hmac") == 0) {
   1414             switch (atoi(q)) {
   1415                 case 0: opt.trunc_hmac = MBEDTLS_SSL_TRUNC_HMAC_DISABLED; break;
   1416                 case 1: opt.trunc_hmac = MBEDTLS_SSL_TRUNC_HMAC_ENABLED; break;
   1417                 default: goto usage;
   1418             }
   1419         } else if (strcmp(p, "hs_timeout") == 0) {
   1420             if ((p = strchr(q, '-')) == NULL) {
   1421                 goto usage;
   1422             }
   1423             *p++ = '\0';
   1424             opt.hs_to_min = atoi(q);
   1425             opt.hs_to_max = atoi(p);
   1426             if (opt.hs_to_min == 0 || opt.hs_to_max < opt.hs_to_min) {
   1427                 goto usage;
   1428             }
   1429         } else if (strcmp(p, "mtu") == 0) {
   1430             opt.dtls_mtu = atoi(q);
   1431             if (opt.dtls_mtu < 0) {
   1432                 goto usage;
   1433             }
   1434         } else if (strcmp(p, "dgram_packing") == 0) {
   1435             opt.dgram_packing = atoi(q);
   1436             if (opt.dgram_packing != 0 &&
   1437                 opt.dgram_packing != 1) {
   1438                 goto usage;
   1439             }
   1440         } else if (strcmp(p, "recsplit") == 0) {
   1441             opt.recsplit = atoi(q);
   1442             if (opt.recsplit < 0 || opt.recsplit > 1) {
   1443                 goto usage;
   1444             }
   1445         } else if (strcmp(p, "dhmlen") == 0) {
   1446             opt.dhmlen = atoi(q);
   1447             if (opt.dhmlen < 0) {
   1448                 goto usage;
   1449             }
   1450         } else if (strcmp(p, "query_config") == 0) {
   1451             opt.query_config_mode = 1;
   1452             query_config_ret = query_config(q);
   1453             goto exit;
   1454         } else if (strcmp(p, "serialize") == 0) {
   1455             opt.serialize = atoi(q);
   1456             if (opt.serialize < 0 || opt.serialize > 2) {
   1457                 goto usage;
   1458             }
   1459         } else if (strcmp(p, "context_file") == 0) {
   1460             opt.context_file = q;
   1461         } else if (strcmp(p, "eap_tls") == 0) {
   1462             opt.eap_tls = atoi(q);
   1463             if (opt.eap_tls < 0 || opt.eap_tls > 1) {
   1464                 goto usage;
   1465             }
   1466         } else if (strcmp(p, "reproducible") == 0) {
   1467             opt.reproducible = 1;
   1468         } else if (strcmp(p, "nss_keylog") == 0) {
   1469             opt.nss_keylog = atoi(q);
   1470             if (opt.nss_keylog < 0 || opt.nss_keylog > 1) {
   1471                 goto usage;
   1472             }
   1473         } else if (strcmp(p, "nss_keylog_file") == 0) {
   1474             opt.nss_keylog_file = q;
   1475         } else if (strcmp(p, "skip_close_notify") == 0) {
   1476             opt.skip_close_notify = atoi(q);
   1477             if (opt.skip_close_notify < 0 || opt.skip_close_notify > 1) {
   1478                 goto usage;
   1479             }
   1480         } else if (strcmp(p, "exp_label") == 0) {
   1481             opt.exp_label = q;
   1482         } else if (strcmp(p, "exp_len") == 0) {
   1483             opt.exp_len = atoi(q);
   1484         } else if (strcmp(p, "use_srtp") == 0) {
   1485             opt.use_srtp = atoi(q);
   1486         } else if (strcmp(p, "srtp_force_profile") == 0) {
   1487             opt.force_srtp_profile = atoi(q);
   1488         } else if (strcmp(p, "mki") == 0) {
   1489             opt.mki = q;
   1490         } else if (strcmp(p, "key_opaque_algs") == 0) {
   1491             if (key_opaque_alg_parse(q, &opt.key_opaque_alg1,
   1492                                      &opt.key_opaque_alg2) != 0) {
   1493                 goto usage;
   1494             }
   1495         } else {
   1496             /* This signals that the problem is with p not q */
   1497             q = NULL;
   1498             goto usage;
   1499         }
   1500     }
   1501     /* This signals that any further errors are not with a single option */
   1502     p = q = NULL;
   1503 
   1504     if (opt.nss_keylog != 0 && opt.eap_tls != 0) {
   1505         mbedtls_printf("Error: eap_tls and nss_keylog options cannot be used together.\n");
   1506         goto usage;
   1507     }
   1508 
   1509     /* Event-driven IO is incompatible with the above custom
   1510      * receive and send functions, as the polling builds on
   1511      * refers to the underlying net_context. */
   1512     if (opt.event == 1 && opt.nbio != 1) {
   1513         mbedtls_printf("Warning: event-driven IO mandates nbio=1 - overwrite\n");
   1514         opt.nbio = 1;
   1515     }
   1516 
   1517 #if defined(MBEDTLS_DEBUG_C)
   1518     mbedtls_debug_set_threshold(opt.debug_level);
   1519 #endif
   1520 
   1521 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
   1522     /*
   1523      * Unhexify the pre-shared key if any is given
   1524      */
   1525     if (strlen(opt.psk)) {
   1526         if (mbedtls_test_unhexify(psk, sizeof(psk),
   1527                                   opt.psk, &psk_len) != 0) {
   1528             mbedtls_printf("pre-shared key not valid\n");
   1529             goto exit;
   1530         }
   1531     }
   1532 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED */
   1533 
   1534 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   1535     if (opt.psk_opaque != 0) {
   1536         if (opt.psk == NULL) {
   1537             mbedtls_printf("psk_opaque set but no psk to be imported specified.\n");
   1538             ret = 2;
   1539             goto usage;
   1540         }
   1541 
   1542         if (opt.force_ciphersuite[0] <= 0) {
   1543             mbedtls_printf(
   1544                 "opaque PSKs are only supported in conjunction with forcing TLS 1.2 and a PSK-only ciphersuite through the 'force_ciphersuite' option.\n");
   1545             ret = 2;
   1546             goto usage;
   1547         }
   1548     }
   1549 #endif /* MBEDTLS_USE_PSA_CRYPTO */
   1550 
   1551     if (opt.force_ciphersuite[0] > 0) {
   1552         const mbedtls_ssl_ciphersuite_t *ciphersuite_info;
   1553         ciphersuite_info =
   1554             mbedtls_ssl_ciphersuite_from_id(opt.force_ciphersuite[0]);
   1555 
   1556         if (opt.max_version != -1 &&
   1557             ciphersuite_info->min_tls_version > opt.max_version) {
   1558             mbedtls_printf("forced ciphersuite not allowed with this protocol version\n");
   1559             ret = 2;
   1560             goto usage;
   1561         }
   1562         if (opt.min_version != -1 &&
   1563             ciphersuite_info->max_tls_version < opt.min_version) {
   1564             mbedtls_printf("forced ciphersuite not allowed with this protocol version\n");
   1565             ret = 2;
   1566             goto usage;
   1567         }
   1568 
   1569         /* If the server selects a version that's not supported by
   1570          * this suite, then there will be no common ciphersuite... */
   1571         if (opt.max_version == -1 ||
   1572             opt.max_version > ciphersuite_info->max_tls_version) {
   1573             opt.max_version = ciphersuite_info->max_tls_version;
   1574         }
   1575         if (opt.min_version < ciphersuite_info->min_tls_version) {
   1576             opt.min_version = ciphersuite_info->min_tls_version;
   1577             /* DTLS starts with TLS 1.2 */
   1578             if (opt.transport == MBEDTLS_SSL_TRANSPORT_DATAGRAM &&
   1579                 opt.min_version < MBEDTLS_SSL_VERSION_TLS1_2) {
   1580                 opt.min_version = MBEDTLS_SSL_VERSION_TLS1_2;
   1581             }
   1582         }
   1583 
   1584 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   1585 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
   1586         if (opt.psk_opaque != 0) {
   1587             /* Determine KDF algorithm the opaque PSK will be used in. */
   1588 #if defined(MBEDTLS_MD_CAN_SHA384)
   1589             if (ciphersuite_info->mac == MBEDTLS_MD_SHA384) {
   1590                 alg = PSA_ALG_TLS12_PSK_TO_MS(PSA_ALG_SHA_384);
   1591             } else
   1592 #endif /* MBEDTLS_MD_CAN_SHA384 */
   1593             alg = PSA_ALG_TLS12_PSK_TO_MS(PSA_ALG_SHA_256);
   1594         }
   1595 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED */
   1596 #endif /* MBEDTLS_USE_PSA_CRYPTO */
   1597     }
   1598 
   1599 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   1600     if (mbedtls_test_unhexify(cid, sizeof(cid),
   1601                               opt.cid_val, &cid_len) != 0) {
   1602         mbedtls_printf("CID not valid\n");
   1603         goto exit;
   1604     }
   1605 
   1606     /* Keep CID settings for renegotiation unless
   1607      * specified otherwise. */
   1608     if (opt.cid_enabled_renego == DFL_CID_ENABLED_RENEGO) {
   1609         opt.cid_enabled_renego = opt.cid_enabled;
   1610     }
   1611     if (opt.cid_val_renego == DFL_CID_VALUE_RENEGO) {
   1612         opt.cid_val_renego = opt.cid_val;
   1613     }
   1614 
   1615     if (mbedtls_test_unhexify(cid_renego, sizeof(cid_renego),
   1616                               opt.cid_val_renego, &cid_renego_len) != 0) {
   1617         mbedtls_printf("CID not valid\n");
   1618         goto exit;
   1619     }
   1620 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   1621 
   1622     if (opt.groups != NULL) {
   1623         if (parse_groups(opt.groups, group_list, GROUP_LIST_SIZE) != 0) {
   1624             goto exit;
   1625         }
   1626     }
   1627 
   1628 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   1629     if (opt.sig_algs != NULL) {
   1630         p = (char *) opt.sig_algs;
   1631         i = 0;
   1632 
   1633         /* Leave room for a final MBEDTLS_TLS1_3_SIG_NONE in signature algorithm list (sig_alg_list). */
   1634         while (i < SIG_ALG_LIST_SIZE - 1 && *p != '\0') {
   1635             q = p;
   1636 
   1637             /* Terminate the current string */
   1638             while (*p != ',' && *p != '\0') {
   1639                 p++;
   1640             }
   1641             if (*p == ',') {
   1642                 *p++ = '\0';
   1643             }
   1644 
   1645             if (strcmp(q, "rsa_pkcs1_sha256") == 0) {
   1646                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PKCS1_SHA256;
   1647             } else if (strcmp(q, "rsa_pkcs1_sha384") == 0) {
   1648                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PKCS1_SHA384;
   1649             } else if (strcmp(q, "rsa_pkcs1_sha512") == 0) {
   1650                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PKCS1_SHA512;
   1651             } else if (strcmp(q, "ecdsa_secp256r1_sha256") == 0) {
   1652                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ECDSA_SECP256R1_SHA256;
   1653             } else if (strcmp(q, "ecdsa_secp384r1_sha384") == 0) {
   1654                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ECDSA_SECP384R1_SHA384;
   1655             } else if (strcmp(q, "ecdsa_secp521r1_sha512") == 0) {
   1656                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ECDSA_SECP521R1_SHA512;
   1657             } else if (strcmp(q, "rsa_pss_rsae_sha256") == 0) {
   1658                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_RSAE_SHA256;
   1659             } else if (strcmp(q, "rsa_pss_rsae_sha384") == 0) {
   1660                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_RSAE_SHA384;
   1661             } else if (strcmp(q, "rsa_pss_rsae_sha512") == 0) {
   1662                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_RSAE_SHA512;
   1663             } else if (strcmp(q, "ed25519") == 0) {
   1664                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ED25519;
   1665             } else if (strcmp(q, "ed448") == 0) {
   1666                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ED448;
   1667             } else if (strcmp(q, "rsa_pss_pss_sha256") == 0) {
   1668                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_PSS_SHA256;
   1669             } else if (strcmp(q, "rsa_pss_pss_sha384") == 0) {
   1670                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_PSS_SHA384;
   1671             } else if (strcmp(q, "rsa_pss_pss_sha512") == 0) {
   1672                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PSS_PSS_SHA512;
   1673             } else if (strcmp(q, "rsa_pkcs1_sha1") == 0) {
   1674                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_RSA_PKCS1_SHA1;
   1675             } else if (strcmp(q, "ecdsa_sha1") == 0) {
   1676                 sig_alg_list[i++] = MBEDTLS_TLS1_3_SIG_ECDSA_SHA1;
   1677             } else {
   1678                 ret = -1;
   1679                 mbedtls_printf("unknown signature algorithm \"%s\"\n", q);
   1680                 mbedtls_print_supported_sig_algs();
   1681                 goto exit;
   1682             }
   1683         }
   1684 
   1685         if (i == (SIG_ALG_LIST_SIZE - 1) && *p != '\0') {
   1686             mbedtls_printf("signature algorithm list too long, maximum %d",
   1687                            SIG_ALG_LIST_SIZE - 1);
   1688             goto exit;
   1689         }
   1690 
   1691         sig_alg_list[i] = MBEDTLS_TLS1_3_SIG_NONE;
   1692     }
   1693 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   1694 
   1695 #if defined(MBEDTLS_SSL_ALPN)
   1696     if (opt.alpn_string != NULL) {
   1697         p = (char *) opt.alpn_string;
   1698         i = 0;
   1699 
   1700         /* Leave room for a final NULL in alpn_list */
   1701         while (i < ALPN_LIST_SIZE - 1 && *p != '\0') {
   1702             alpn_list[i++] = p;
   1703 
   1704             /* Terminate the current string and move on to next one */
   1705             while (*p != ',' && *p != '\0') {
   1706                 p++;
   1707             }
   1708             if (*p == ',') {
   1709                 *p++ = '\0';
   1710             }
   1711         }
   1712     }
   1713 #endif /* MBEDTLS_SSL_ALPN */
   1714 
   1715     mbedtls_printf("build version: %s (build %d)\n",
   1716                    MBEDTLS_VERSION_STRING_FULL, MBEDTLS_VERSION_NUMBER);
   1717 
   1718     /*
   1719      * 0. Initialize the RNG and the session data
   1720      */
   1721     mbedtls_printf("\n  . Seeding the random number generator...");
   1722     fflush(stdout);
   1723 
   1724     ret = rng_seed(&rng, opt.reproducible, pers);
   1725     if (ret != 0) {
   1726         goto exit;
   1727     }
   1728     mbedtls_printf(" ok\n");
   1729 
   1730 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   1731     /*
   1732      * 1.1. Load the trusted CA
   1733      */
   1734     mbedtls_printf("  . Loading the CA root certificate ...");
   1735     fflush(stdout);
   1736 
   1737     if (strcmp(opt.ca_path, "none") == 0 ||
   1738         strcmp(opt.ca_file, "none") == 0) {
   1739         ret = 0;
   1740     } else
   1741 #if defined(MBEDTLS_FS_IO)
   1742     if (strlen(opt.ca_path)) {
   1743         ret = mbedtls_x509_crt_parse_path(&cacert, opt.ca_path);
   1744     } else if (strlen(opt.ca_file)) {
   1745         ret = mbedtls_x509_crt_parse_file(&cacert, opt.ca_file);
   1746     } else
   1747 #endif
   1748     {
   1749 #if defined(MBEDTLS_PEM_PARSE_C)
   1750         for (i = 0; mbedtls_test_cas[i] != NULL; i++) {
   1751             ret = mbedtls_x509_crt_parse(&cacert,
   1752                                          (const unsigned char *) mbedtls_test_cas[i],
   1753                                          mbedtls_test_cas_len[i]);
   1754             if (ret != 0) {
   1755                 break;
   1756             }
   1757         }
   1758 #endif /* MBEDTLS_PEM_PARSE_C */
   1759         if (ret == 0) {
   1760             for (i = 0; mbedtls_test_cas_der[i] != NULL; i++) {
   1761                 ret = mbedtls_x509_crt_parse_der(&cacert,
   1762                                                  (const unsigned char *) mbedtls_test_cas_der[i],
   1763                                                  mbedtls_test_cas_der_len[i]);
   1764                 if (ret != 0) {
   1765                     break;
   1766                 }
   1767             }
   1768         }
   1769     }
   1770     if (ret < 0) {
   1771         mbedtls_printf(" failed\n  !  mbedtls_x509_crt_parse returned -0x%x\n\n",
   1772                        (unsigned int) -ret);
   1773         goto exit;
   1774     }
   1775 
   1776     mbedtls_printf(" ok (%d skipped)\n", ret);
   1777 
   1778     /*
   1779      * 1.2. Load own certificate and private key
   1780      *
   1781      * (can be skipped if client authentication is not required)
   1782      */
   1783     mbedtls_printf("  . Loading the client cert. and key...");
   1784     fflush(stdout);
   1785 
   1786     if (strcmp(opt.crt_file, "none") == 0) {
   1787         ret = 0;
   1788     } else
   1789 #if defined(MBEDTLS_FS_IO)
   1790     if (strlen(opt.crt_file)) {
   1791         ret = mbedtls_x509_crt_parse_file(&clicert, opt.crt_file);
   1792     } else
   1793 #endif
   1794     { ret = mbedtls_x509_crt_parse(&clicert,
   1795                                    (const unsigned char *) mbedtls_test_cli_crt,
   1796                                    mbedtls_test_cli_crt_len); }
   1797     if (ret != 0) {
   1798         mbedtls_printf(" failed\n  !  mbedtls_x509_crt_parse returned -0x%x\n\n",
   1799                        (unsigned int) -ret);
   1800         goto exit;
   1801     }
   1802 
   1803     if (strcmp(opt.key_file, "none") == 0) {
   1804         ret = 0;
   1805     } else
   1806 #if defined(MBEDTLS_FS_IO)
   1807     if (strlen(opt.key_file)) {
   1808         ret = mbedtls_pk_parse_keyfile(&pkey, opt.key_file, opt.key_pwd, rng_get, &rng);
   1809     } else
   1810 #endif
   1811     { ret = mbedtls_pk_parse_key(&pkey,
   1812                                  (const unsigned char *) mbedtls_test_cli_key,
   1813                                  mbedtls_test_cli_key_len, NULL, 0, rng_get, &rng); }
   1814     if (ret != 0) {
   1815         mbedtls_printf(" failed\n  !  mbedtls_pk_parse_key returned -0x%x\n\n",
   1816                        (unsigned int) -ret);
   1817         goto exit;
   1818     }
   1819 
   1820 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   1821     if (opt.key_opaque != 0) {
   1822         psa_algorithm_t psa_alg, psa_alg2 = PSA_ALG_NONE;
   1823         psa_key_usage_t usage = 0;
   1824 
   1825         if (key_opaque_set_alg_usage(opt.key_opaque_alg1,
   1826                                      opt.key_opaque_alg2,
   1827                                      &psa_alg, &psa_alg2,
   1828                                      &usage,
   1829                                      mbedtls_pk_get_type(&pkey)) == 0) {
   1830             ret = pk_wrap_as_opaque(&pkey, psa_alg, psa_alg2, usage, &key_slot);
   1831             if (ret != 0) {
   1832                 mbedtls_printf(" failed\n  !  "
   1833                                "mbedtls_pk_get_psa_attributes returned -0x%x\n\n",
   1834                                (unsigned int)  -ret);
   1835                 goto exit;
   1836             }
   1837         }
   1838     }
   1839 #endif /* MBEDTLS_USE_PSA_CRYPTO */
   1840 
   1841     mbedtls_printf(" ok (key type: %s)\n",
   1842                    strlen(opt.key_file) || strlen(opt.key_opaque_alg1) ?
   1843                    mbedtls_pk_get_name(&pkey) : "none");
   1844 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   1845 
   1846     /*
   1847      * 2. Setup stuff
   1848      */
   1849     mbedtls_printf("  . Setting up the SSL/TLS structure...");
   1850     fflush(stdout);
   1851 
   1852     if ((ret = mbedtls_ssl_config_defaults(&conf,
   1853                                            MBEDTLS_SSL_IS_CLIENT,
   1854                                            opt.transport,
   1855                                            MBEDTLS_SSL_PRESET_DEFAULT)) != 0) {
   1856         mbedtls_printf(" failed\n  ! mbedtls_ssl_config_defaults returned -0x%x\n\n",
   1857                        (unsigned int) -ret);
   1858         goto exit;
   1859     }
   1860 
   1861 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   1862     /* The default algorithms profile disables SHA-1, but our tests still
   1863        rely on it heavily. */
   1864     if (opt.allow_sha1 > 0) {
   1865         crt_profile_for_test.allowed_mds |= MBEDTLS_X509_ID_FLAG(MBEDTLS_MD_SHA1);
   1866         mbedtls_ssl_conf_cert_profile(&conf, &crt_profile_for_test);
   1867         mbedtls_ssl_conf_sig_algs(&conf, ssl_sig_algs_for_test);
   1868     }
   1869     if (opt.context_crt_cb == 0) {
   1870         mbedtls_ssl_conf_verify(&conf, my_verify, NULL);
   1871     }
   1872 
   1873     memset(peer_crt_info, 0, sizeof(peer_crt_info));
   1874 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   1875 
   1876 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   1877     if (opt.cid_enabled == 1 || opt.cid_enabled_renego == 1) {
   1878         if (opt.cid_enabled == 1        &&
   1879             opt.cid_enabled_renego == 1 &&
   1880             cid_len != cid_renego_len) {
   1881             mbedtls_printf("CID length must not change during renegotiation\n");
   1882             goto usage;
   1883         }
   1884 
   1885         if (opt.cid_enabled == 1) {
   1886             ret = mbedtls_ssl_conf_cid(&conf, cid_len,
   1887                                        MBEDTLS_SSL_UNEXPECTED_CID_IGNORE);
   1888         } else {
   1889             ret = mbedtls_ssl_conf_cid(&conf, cid_renego_len,
   1890                                        MBEDTLS_SSL_UNEXPECTED_CID_IGNORE);
   1891         }
   1892 
   1893         if (ret != 0) {
   1894             mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_cid_len returned -%#04x\n\n",
   1895                            (unsigned int) -ret);
   1896             goto exit;
   1897         }
   1898     }
   1899 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   1900 
   1901     if (opt.auth_mode != DFL_AUTH_MODE) {
   1902         mbedtls_ssl_conf_authmode(&conf, opt.auth_mode);
   1903     }
   1904 
   1905 #if defined(MBEDTLS_SSL_PROTO_DTLS)
   1906     if (opt.hs_to_min != DFL_HS_TO_MIN || opt.hs_to_max != DFL_HS_TO_MAX) {
   1907         mbedtls_ssl_conf_handshake_timeout(&conf, opt.hs_to_min,
   1908                                            opt.hs_to_max);
   1909     }
   1910 
   1911     if (opt.dgram_packing != DFL_DGRAM_PACKING) {
   1912         mbedtls_ssl_set_datagram_packing(&ssl, opt.dgram_packing);
   1913     }
   1914 #endif /* MBEDTLS_SSL_PROTO_DTLS */
   1915 
   1916 #if defined(MBEDTLS_SSL_MAX_FRAGMENT_LENGTH)
   1917     if ((ret = mbedtls_ssl_conf_max_frag_len(&conf, opt.mfl_code)) != 0) {
   1918         mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_max_frag_len returned %d\n\n",
   1919                        ret);
   1920         goto exit;
   1921     }
   1922 #endif
   1923 
   1924 #if defined(MBEDTLS_SSL_DTLS_SRTP)
   1925     const mbedtls_ssl_srtp_profile forced_profile[] =
   1926     { opt.force_srtp_profile, MBEDTLS_TLS_SRTP_UNSET };
   1927     if (opt.use_srtp == 1) {
   1928         if (opt.force_srtp_profile != 0) {
   1929             ret = mbedtls_ssl_conf_dtls_srtp_protection_profiles(&conf, forced_profile);
   1930         } else {
   1931             ret = mbedtls_ssl_conf_dtls_srtp_protection_profiles(&conf, default_profiles);
   1932         }
   1933 
   1934         if (ret != 0) {
   1935             mbedtls_printf(" failed\n  ! "
   1936                            "mbedtls_ssl_conf_dtls_srtp_protection_profiles returned %d\n\n",
   1937                            ret);
   1938             goto exit;
   1939         }
   1940 
   1941     } else if (opt.force_srtp_profile != 0) {
   1942         mbedtls_printf(" failed\n  ! must enable use_srtp to force srtp profile\n\n");
   1943         goto exit;
   1944     }
   1945 #endif /* MBEDTLS_SSL_DTLS_SRTP */
   1946 
   1947 #if defined(MBEDTLS_SSL_EXTENDED_MASTER_SECRET)
   1948     if (opt.extended_ms != DFL_EXTENDED_MS) {
   1949         mbedtls_ssl_conf_extended_master_secret(&conf, opt.extended_ms);
   1950     }
   1951 #endif
   1952 
   1953 #if defined(MBEDTLS_SSL_ENCRYPT_THEN_MAC)
   1954     if (opt.etm != DFL_ETM) {
   1955         mbedtls_ssl_conf_encrypt_then_mac(&conf, opt.etm);
   1956     }
   1957 #endif
   1958 
   1959 #if defined(MBEDTLS_DHM_C)
   1960     if (opt.dhmlen != DFL_DHMLEN) {
   1961         mbedtls_ssl_conf_dhm_min_bitlen(&conf, opt.dhmlen);
   1962     }
   1963 #endif
   1964 
   1965 #if defined(MBEDTLS_SSL_ALPN)
   1966     if (opt.alpn_string != NULL) {
   1967         if ((ret = mbedtls_ssl_conf_alpn_protocols(&conf, alpn_list)) != 0) {
   1968             mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_alpn_protocols returned %d\n\n",
   1969                            ret);
   1970             goto exit;
   1971         }
   1972     }
   1973 #endif
   1974 
   1975     if (opt.reproducible) {
   1976 #if defined(MBEDTLS_HAVE_TIME)
   1977 #if defined(MBEDTLS_PLATFORM_TIME_ALT)
   1978         mbedtls_platform_set_time(dummy_constant_time);
   1979 #else
   1980         fprintf(stderr, "Warning: reproducible option used without constant time\n");
   1981 #endif
   1982 #endif  /* MBEDTLS_HAVE_TIME */
   1983     }
   1984     mbedtls_ssl_conf_rng(&conf, rng_get, &rng);
   1985     mbedtls_ssl_conf_dbg(&conf, my_debug, stdout);
   1986 
   1987     mbedtls_ssl_conf_read_timeout(&conf, opt.read_timeout);
   1988 
   1989 #if defined(MBEDTLS_SSL_SESSION_TICKETS)
   1990     mbedtls_ssl_conf_session_tickets(&conf, opt.tickets);
   1991 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   1992     if (opt.new_session_tickets != DFL_NEW_SESSION_TICKETS) {
   1993         mbedtls_ssl_conf_tls13_enable_signal_new_session_tickets(
   1994             &conf, opt.new_session_tickets);
   1995     }
   1996 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   1997 #endif /* MBEDTLS_SSL_SESSION_TICKETS */
   1998 
   1999     if (opt.force_ciphersuite[0] != DFL_FORCE_CIPHER) {
   2000         mbedtls_ssl_conf_ciphersuites(&conf, opt.force_ciphersuite);
   2001     }
   2002 
   2003 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   2004     mbedtls_ssl_conf_tls13_key_exchange_modes(&conf, opt.tls13_kex_modes);
   2005 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   2006 
   2007     if (opt.allow_legacy != DFL_ALLOW_LEGACY) {
   2008         mbedtls_ssl_conf_legacy_renegotiation(&conf, opt.allow_legacy);
   2009     }
   2010 #if defined(MBEDTLS_SSL_RENEGOTIATION)
   2011     mbedtls_ssl_conf_renegotiation(&conf, opt.renegotiation);
   2012     if (opt.renego_delay != DFL_RENEGO_DELAY) {
   2013         mbedtls_ssl_conf_renegotiation_enforced(&conf, opt.renego_delay);
   2014     }
   2015 #endif
   2016 
   2017 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2018     if (strcmp(opt.ca_path, "none") != 0 &&
   2019         strcmp(opt.ca_file, "none") != 0) {
   2020 #if defined(MBEDTLS_X509_TRUSTED_CERTIFICATE_CALLBACK)
   2021         if (opt.ca_callback != 0) {
   2022             mbedtls_ssl_conf_ca_cb(&conf, ca_callback, &cacert);
   2023         } else
   2024 #endif
   2025         mbedtls_ssl_conf_ca_chain(&conf, &cacert, NULL);
   2026     }
   2027     if (strcmp(opt.crt_file, "none") != 0 &&
   2028         strcmp(opt.key_file, "none") != 0) {
   2029         if ((ret = mbedtls_ssl_conf_own_cert(&conf, &clicert, &pkey)) != 0) {
   2030             mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_own_cert returned %d\n\n",
   2031                            ret);
   2032             goto exit;
   2033         }
   2034     }
   2035 #endif  /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   2036 
   2037 #if defined(MBEDTLS_PK_HAVE_ECC_KEYS) || \
   2038     (defined(MBEDTLS_SSL_TLS1_3_KEY_EXCHANGE_MODE_SOME_EPHEMERAL_ENABLED) && \
   2039     defined(PSA_WANT_ALG_FFDH))
   2040     if (opt.groups != NULL &&
   2041         strcmp(opt.groups, "default") != 0) {
   2042         mbedtls_ssl_conf_groups(&conf, group_list);
   2043     }
   2044 #endif
   2045 
   2046 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2047     if (opt.sig_algs != NULL) {
   2048         mbedtls_ssl_conf_sig_algs(&conf, sig_alg_list);
   2049     }
   2050 #endif
   2051 
   2052 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED)
   2053 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   2054     if (opt.psk_opaque != 0) {
   2055         key_attributes = psa_key_attributes_init();
   2056         psa_set_key_usage_flags(&key_attributes, PSA_KEY_USAGE_DERIVE);
   2057         psa_set_key_algorithm(&key_attributes, alg);
   2058         psa_set_key_type(&key_attributes, PSA_KEY_TYPE_DERIVE);
   2059 
   2060         status = psa_import_key(&key_attributes, psk, psk_len, &slot);
   2061         if (status != PSA_SUCCESS) {
   2062             ret = MBEDTLS_ERR_SSL_HW_ACCEL_FAILED;
   2063             goto exit;
   2064         }
   2065 
   2066         if ((ret = mbedtls_ssl_conf_psk_opaque(&conf, slot,
   2067                                                (const unsigned char *) opt.psk_identity,
   2068                                                strlen(opt.psk_identity))) != 0) {
   2069             mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_psk_opaque returned %d\n\n",
   2070                            ret);
   2071             goto exit;
   2072         }
   2073     } else
   2074 #endif /* MBEDTLS_USE_PSA_CRYPTO */
   2075     if (psk_len > 0) {
   2076         ret = mbedtls_ssl_conf_psk(&conf, psk, psk_len,
   2077                                    (const unsigned char *) opt.psk_identity,
   2078                                    strlen(opt.psk_identity));
   2079         if (ret != 0) {
   2080             mbedtls_printf(" failed\n  ! mbedtls_ssl_conf_psk returned %d\n\n", ret);
   2081             goto exit;
   2082         }
   2083     }
   2084 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED */
   2085 
   2086     if (opt.min_version != DFL_MIN_VERSION) {
   2087         mbedtls_ssl_conf_min_tls_version(&conf, opt.min_version);
   2088     }
   2089 
   2090     if (opt.max_version != DFL_MAX_VERSION) {
   2091         mbedtls_ssl_conf_max_tls_version(&conf, opt.max_version);
   2092     }
   2093 
   2094 #if defined(MBEDTLS_SSL_EARLY_DATA)
   2095     if (opt.early_data != DFL_EARLY_DATA) {
   2096         mbedtls_ssl_conf_early_data(&conf, opt.early_data);
   2097     }
   2098 #endif /* MBEDTLS_SSL_EARLY_DATA */
   2099 
   2100     if ((ret = mbedtls_ssl_setup(&ssl, &conf)) != 0) {
   2101         mbedtls_printf(" failed\n  ! mbedtls_ssl_setup returned -0x%x\n\n",
   2102                        (unsigned int) -ret);
   2103         goto exit;
   2104     }
   2105 
   2106     if (opt.eap_tls != 0) {
   2107         mbedtls_ssl_set_export_keys_cb(&ssl, eap_tls_key_derivation,
   2108                                        &eap_tls_keying);
   2109     } else if (opt.nss_keylog != 0) {
   2110         mbedtls_ssl_set_export_keys_cb(&ssl,
   2111                                        nss_keylog_export,
   2112                                        NULL);
   2113     }
   2114 #if defined(MBEDTLS_SSL_DTLS_SRTP)
   2115     else if (opt.use_srtp != 0) {
   2116         mbedtls_ssl_set_export_keys_cb(&ssl, dtls_srtp_key_derivation,
   2117                                        &dtls_srtp_keying);
   2118     }
   2119 #endif /* MBEDTLS_SSL_DTLS_SRTP */
   2120 
   2121 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2122     switch (opt.set_hostname) {
   2123         case -1:
   2124             if ((ret = mbedtls_ssl_set_hostname(&ssl, NULL)) != 0) {
   2125                 mbedtls_printf(" failed\n  ! mbedtls_ssl_set_hostname returned %d\n\n",
   2126                                ret);
   2127                 goto exit;
   2128             }
   2129             break;
   2130         case 0:
   2131             /* Skip the call */
   2132             break;
   2133         default:
   2134             if ((ret = mbedtls_ssl_set_hostname(&ssl, opt.server_name)) != 0) {
   2135                 mbedtls_printf(" failed\n  ! mbedtls_ssl_set_hostname returned %d\n\n",
   2136                                ret);
   2137                 goto exit;
   2138             }
   2139             break;
   2140     }
   2141 #endif
   2142 
   2143 #if defined(MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED)
   2144     if (opt.ecjpake_pw != DFL_ECJPAKE_PW) {
   2145 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   2146         if (opt.ecjpake_pw_opaque != DFL_ECJPAKE_PW_OPAQUE) {
   2147             psa_key_attributes_t attributes = PSA_KEY_ATTRIBUTES_INIT;
   2148 
   2149             psa_set_key_usage_flags(&attributes, PSA_KEY_USAGE_DERIVE);
   2150             psa_set_key_algorithm(&attributes, PSA_ALG_JPAKE);
   2151             psa_set_key_type(&attributes, PSA_KEY_TYPE_PASSWORD);
   2152 
   2153             status = psa_import_key(&attributes,
   2154                                     (const unsigned char *) opt.ecjpake_pw,
   2155                                     strlen(opt.ecjpake_pw),
   2156                                     &ecjpake_pw_slot);
   2157             if (status != PSA_SUCCESS) {
   2158                 mbedtls_printf(" failed\n  ! psa_import_key returned %d\n\n",
   2159                                status);
   2160                 goto exit;
   2161             }
   2162             if ((ret = mbedtls_ssl_set_hs_ecjpake_password_opaque(&ssl,
   2163                                                                   ecjpake_pw_slot)) != 0) {
   2164                 mbedtls_printf(
   2165                     " failed\n  ! mbedtls_ssl_set_hs_ecjpake_password_opaque returned %d\n\n",
   2166                     ret);
   2167                 goto exit;
   2168             }
   2169             mbedtls_printf("using opaque password\n");
   2170         } else
   2171 #endif  /* MBEDTLS_USE_PSA_CRYPTO */
   2172         {
   2173             if ((ret = mbedtls_ssl_set_hs_ecjpake_password(&ssl,
   2174                                                            (const unsigned char *) opt.ecjpake_pw,
   2175                                                            strlen(opt.ecjpake_pw))) != 0) {
   2176                 mbedtls_printf(" failed\n  ! mbedtls_ssl_set_hs_ecjpake_password returned %d\n\n",
   2177                                ret);
   2178                 goto exit;
   2179             }
   2180         }
   2181     }
   2182 #endif /* MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED */
   2183 
   2184 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2185     if (opt.context_crt_cb == 1) {
   2186         mbedtls_ssl_set_verify(&ssl, my_verify, NULL);
   2187     }
   2188 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   2189 
   2190     io_ctx.ssl = &ssl;
   2191     io_ctx.net = &server_fd;
   2192     mbedtls_ssl_set_bio(&ssl, &io_ctx, send_cb, recv_cb,
   2193                         opt.nbio == 0 ? recv_timeout_cb : NULL);
   2194 
   2195 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   2196     if (opt.transport == MBEDTLS_SSL_TRANSPORT_DATAGRAM) {
   2197         if ((ret = mbedtls_ssl_set_cid(&ssl, opt.cid_enabled,
   2198                                        cid, cid_len)) != 0) {
   2199             mbedtls_printf(" failed\n  ! mbedtls_ssl_set_cid returned %d\n\n",
   2200                            ret);
   2201             goto exit;
   2202         }
   2203     }
   2204 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   2205 
   2206 #if defined(MBEDTLS_SSL_PROTO_DTLS)
   2207     if (opt.dtls_mtu != DFL_DTLS_MTU) {
   2208         mbedtls_ssl_set_mtu(&ssl, opt.dtls_mtu);
   2209     }
   2210 #endif
   2211 
   2212 #if defined(MBEDTLS_TIMING_C)
   2213     mbedtls_ssl_set_timer_cb(&ssl, &timer, mbedtls_timing_set_delay,
   2214                              mbedtls_timing_get_delay);
   2215 #endif
   2216 
   2217 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2218     if (opt.ec_max_ops != DFL_EC_MAX_OPS) {
   2219         mbedtls_ecp_set_max_ops(opt.ec_max_ops);
   2220     }
   2221 #endif
   2222 
   2223 #if defined(MBEDTLS_SSL_DTLS_SRTP)
   2224     if (opt.use_srtp != 0 && strlen(opt.mki) != 0) {
   2225         if (mbedtls_test_unhexify(mki, sizeof(mki),
   2226                                   opt.mki, &mki_len) != 0) {
   2227             mbedtls_printf("mki value not valid hex\n");
   2228             goto exit;
   2229         }
   2230 
   2231         mbedtls_ssl_conf_srtp_mki_value_supported(&conf, MBEDTLS_SSL_DTLS_SRTP_MKI_SUPPORTED);
   2232         if ((ret = mbedtls_ssl_dtls_srtp_set_mki_value(&ssl, mki,
   2233                                                        (uint16_t) strlen(opt.mki) / 2)) != 0) {
   2234             mbedtls_printf(" failed\n  ! mbedtls_ssl_dtls_srtp_set_mki_value returned %d\n\n", ret);
   2235             goto exit;
   2236         }
   2237     }
   2238 #endif
   2239 
   2240     mbedtls_printf(" ok\n");
   2241 
   2242     /*
   2243      * 3. Start the connection
   2244      */
   2245     if (opt.server_addr == NULL) {
   2246         opt.server_addr = opt.server_name;
   2247     }
   2248 
   2249     mbedtls_printf("  . Connecting to %s/%s/%s...",
   2250                    opt.transport == MBEDTLS_SSL_TRANSPORT_STREAM ? "tcp" : "udp",
   2251                    opt.server_addr, opt.server_port);
   2252     fflush(stdout);
   2253 
   2254     if ((ret = mbedtls_net_connect(&server_fd,
   2255                                    opt.server_addr, opt.server_port,
   2256                                    opt.transport == MBEDTLS_SSL_TRANSPORT_STREAM ?
   2257                                    MBEDTLS_NET_PROTO_TCP : MBEDTLS_NET_PROTO_UDP)) != 0) {
   2258         mbedtls_printf(" failed\n  ! mbedtls_net_connect returned -0x%x\n\n",
   2259                        (unsigned int) -ret);
   2260         goto exit;
   2261     }
   2262 
   2263     if (opt.nbio > 0) {
   2264         ret = mbedtls_net_set_nonblock(&server_fd);
   2265     } else {
   2266         ret = mbedtls_net_set_block(&server_fd);
   2267     }
   2268     if (ret != 0) {
   2269         mbedtls_printf(" failed\n  ! net_set_(non)block() returned -0x%x\n\n",
   2270                        (unsigned int) -ret);
   2271         goto exit;
   2272     }
   2273 
   2274     mbedtls_printf(" ok\n");
   2275 
   2276     /*
   2277      * 4. Handshake
   2278      */
   2279     mbedtls_printf("  . Performing the SSL/TLS handshake...");
   2280     fflush(stdout);
   2281 
   2282     while ((ret = mbedtls_ssl_handshake(&ssl)) != 0) {
   2283         if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2284             ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   2285             ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2286             mbedtls_printf(" failed\n  ! mbedtls_ssl_handshake returned -0x%x\n",
   2287                            (unsigned int) -ret);
   2288 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2289             if (ret == MBEDTLS_ERR_X509_CERT_VERIFY_FAILED ||
   2290                 ret == MBEDTLS_ERR_SSL_BAD_CERTIFICATE) {
   2291                 mbedtls_printf(
   2292                     "    Unable to verify the server's certificate. "
   2293                     "Either it is invalid,\n"
   2294                     "    or you didn't set ca_file or ca_path "
   2295                     "to an appropriate value.\n"
   2296                     "    Alternatively, you may want to use "
   2297                     "auth_mode=optional for testing purposes if "
   2298                     "not using TLS 1.3.\n"
   2299                     "    For TLS 1.3 server, try `ca_path=/etc/ssl/certs/`"
   2300                     "or other folder that has root certificates\n");
   2301 
   2302                 flags = mbedtls_ssl_get_verify_result(&ssl);
   2303                 char vrfy_buf[512];
   2304                 x509_crt_verify_info(vrfy_buf, sizeof(vrfy_buf), "  ! ", flags);
   2305                 mbedtls_printf("%s\n", vrfy_buf);
   2306             }
   2307 #endif
   2308             mbedtls_printf("\n");
   2309             goto exit;
   2310         }
   2311 
   2312 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2313         if (ret == MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2314             continue;
   2315         }
   2316 #endif
   2317 
   2318         /* For event-driven IO, wait for socket to become available */
   2319         if (opt.event == 1 /* level triggered IO */) {
   2320 #if defined(MBEDTLS_TIMING_C)
   2321             ret = idle(&server_fd, &timer, ret);
   2322 #else
   2323             ret = idle(&server_fd, ret);
   2324 #endif
   2325             if (ret != 0) {
   2326                 goto exit;
   2327             }
   2328         }
   2329     }
   2330 
   2331     {
   2332         int suite_id = mbedtls_ssl_get_ciphersuite_id_from_ssl(&ssl);
   2333         const mbedtls_ssl_ciphersuite_t *ciphersuite_info;
   2334         ciphersuite_info = mbedtls_ssl_ciphersuite_from_id(suite_id);
   2335 
   2336         mbedtls_printf(" ok\n    [ Protocol is %s ]\n"
   2337                        "    [ Ciphersuite is %s ]\n"
   2338                        "    [ Key size is %u ]\n",
   2339                        mbedtls_ssl_get_version(&ssl),
   2340                        mbedtls_ssl_ciphersuite_get_name(ciphersuite_info),
   2341                        (unsigned int)
   2342                        mbedtls_ssl_ciphersuite_get_cipher_key_bitlen(ciphersuite_info));
   2343     }
   2344 
   2345     if ((ret = mbedtls_ssl_get_record_expansion(&ssl)) >= 0) {
   2346         mbedtls_printf("    [ Record expansion is %d ]\n", ret);
   2347     } else {
   2348         mbedtls_printf("    [ Record expansion is unknown ]\n");
   2349     }
   2350 
   2351 #if defined(MBEDTLS_SSL_MAX_FRAGMENT_LENGTH)
   2352     mbedtls_printf("    [ Maximum incoming record payload length is %u ]\n",
   2353                    (unsigned int) mbedtls_ssl_get_max_in_record_payload(&ssl));
   2354     mbedtls_printf("    [ Maximum outgoing record payload length is %u ]\n",
   2355                    (unsigned int) mbedtls_ssl_get_max_out_record_payload(&ssl));
   2356 #endif
   2357 
   2358 #if defined(MBEDTLS_SSL_ALPN)
   2359     if (opt.alpn_string != NULL) {
   2360         const char *alp = mbedtls_ssl_get_alpn_protocol(&ssl);
   2361         mbedtls_printf("    [ Application Layer Protocol is %s ]\n",
   2362                        alp ? alp : "(none)");
   2363     }
   2364 #endif
   2365 
   2366     if (opt.eap_tls != 0) {
   2367         size_t j = 0;
   2368 
   2369         if ((ret = mbedtls_ssl_tls_prf(eap_tls_keying.tls_prf_type,
   2370                                        eap_tls_keying.master_secret,
   2371                                        sizeof(eap_tls_keying.master_secret),
   2372                                        eap_tls_label,
   2373                                        eap_tls_keying.randbytes,
   2374                                        sizeof(eap_tls_keying.randbytes),
   2375                                        eap_tls_keymaterial,
   2376                                        sizeof(eap_tls_keymaterial)))
   2377             != 0) {
   2378             mbedtls_printf(" failed\n  ! mbedtls_ssl_tls_prf returned -0x%x\n\n",
   2379                            (unsigned int) -ret);
   2380             goto exit;
   2381         }
   2382 
   2383         mbedtls_printf("    EAP-TLS key material is:");
   2384         for (j = 0; j < sizeof(eap_tls_keymaterial); j++) {
   2385             if (j % 8 == 0) {
   2386                 mbedtls_printf("\n    ");
   2387             }
   2388             mbedtls_printf("%02x ", eap_tls_keymaterial[j]);
   2389         }
   2390         mbedtls_printf("\n");
   2391 
   2392         if ((ret = mbedtls_ssl_tls_prf(eap_tls_keying.tls_prf_type, NULL, 0,
   2393                                        eap_tls_label,
   2394                                        eap_tls_keying.randbytes,
   2395                                        sizeof(eap_tls_keying.randbytes),
   2396                                        eap_tls_iv,
   2397                                        sizeof(eap_tls_iv))) != 0) {
   2398             mbedtls_printf(" failed\n  ! mbedtls_ssl_tls_prf returned -0x%x\n\n",
   2399                            (unsigned int) -ret);
   2400             goto exit;
   2401         }
   2402 
   2403         mbedtls_printf("    EAP-TLS IV is:");
   2404         for (j = 0; j < sizeof(eap_tls_iv); j++) {
   2405             if (j % 8 == 0) {
   2406                 mbedtls_printf("\n    ");
   2407             }
   2408             mbedtls_printf("%02x ", eap_tls_iv[j]);
   2409         }
   2410         mbedtls_printf("\n");
   2411     }
   2412 
   2413 #if defined(MBEDTLS_SSL_DTLS_SRTP)
   2414     else if (opt.use_srtp != 0) {
   2415         size_t j = 0;
   2416         mbedtls_dtls_srtp_info dtls_srtp_negotiation_result;
   2417         mbedtls_ssl_get_dtls_srtp_negotiation_result(&ssl, &dtls_srtp_negotiation_result);
   2418 
   2419         if (dtls_srtp_negotiation_result.chosen_dtls_srtp_profile
   2420             == MBEDTLS_TLS_SRTP_UNSET) {
   2421             mbedtls_printf("    Unable to negotiate "
   2422                            "the use of DTLS-SRTP\n");
   2423         } else {
   2424             if ((ret = mbedtls_ssl_tls_prf(dtls_srtp_keying.tls_prf_type,
   2425                                            dtls_srtp_keying.master_secret,
   2426                                            sizeof(dtls_srtp_keying.master_secret),
   2427                                            dtls_srtp_label,
   2428                                            dtls_srtp_keying.randbytes,
   2429                                            sizeof(dtls_srtp_keying.randbytes),
   2430                                            dtls_srtp_key_material,
   2431                                            sizeof(dtls_srtp_key_material)))
   2432                 != 0) {
   2433                 mbedtls_printf(" failed\n  ! mbedtls_ssl_tls_prf returned -0x%x\n\n",
   2434                                (unsigned int) -ret);
   2435                 goto exit;
   2436             }
   2437 
   2438             mbedtls_printf("    DTLS-SRTP key material is:");
   2439             for (j = 0; j < sizeof(dtls_srtp_key_material); j++) {
   2440                 if (j % 8 == 0) {
   2441                     mbedtls_printf("\n    ");
   2442                 }
   2443                 mbedtls_printf("%02x ", dtls_srtp_key_material[j]);
   2444             }
   2445             mbedtls_printf("\n");
   2446 
   2447             /* produce a less readable output used to perform automatic checks
   2448              * - compare client and server output
   2449              * - interop test with openssl which client produces this kind of output
   2450              */
   2451             mbedtls_printf("    Keying material: ");
   2452             for (j = 0; j < sizeof(dtls_srtp_key_material); j++) {
   2453                 mbedtls_printf("%02X", dtls_srtp_key_material[j]);
   2454             }
   2455             mbedtls_printf("\n");
   2456 
   2457             if (dtls_srtp_negotiation_result.mki_len > 0) {
   2458                 mbedtls_printf("    DTLS-SRTP mki value: ");
   2459                 for (j = 0; j < dtls_srtp_negotiation_result.mki_len; j++) {
   2460                     mbedtls_printf("%02X", dtls_srtp_negotiation_result.mki_value[j]);
   2461                 }
   2462             } else {
   2463                 mbedtls_printf("    DTLS-SRTP no mki value negotiated");
   2464             }
   2465             mbedtls_printf("\n");
   2466         }
   2467     }
   2468 #endif /* MBEDTLS_SSL_DTLS_SRTP */
   2469     if (opt.reconnect != 0 && ssl.tls_version != MBEDTLS_SSL_VERSION_TLS1_3) {
   2470         mbedtls_printf("  . Saving session for reuse...");
   2471         fflush(stdout);
   2472 
   2473         if (opt.reco_mode == 1) {
   2474             if ((ret = ssl_save_session_serialize(&ssl,
   2475                                                   &session_data, &session_data_len)) != 0) {
   2476                 mbedtls_printf(" failed\n  ! ssl_save_session_serialize returned -0x%04x\n\n",
   2477                                (unsigned int) -ret);
   2478                 goto exit;
   2479             }
   2480 
   2481         } else {
   2482             if ((ret = mbedtls_ssl_get_session(&ssl, &saved_session)) != 0) {
   2483                 mbedtls_printf(" failed\n  ! mbedtls_ssl_get_session returned -0x%x\n\n",
   2484                                (unsigned int) -ret);
   2485                 goto exit;
   2486             }
   2487         }
   2488 
   2489         mbedtls_printf(" ok\n");
   2490 
   2491         if (opt.reco_mode == 1) {
   2492             mbedtls_printf("    [ Saved %u bytes of session data]\n",
   2493                            (unsigned) session_data_len);
   2494         }
   2495     }
   2496 
   2497 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2498     /*
   2499      * 5. Verify the server certificate
   2500      */
   2501     mbedtls_printf("  . Verifying peer X.509 certificate...");
   2502 
   2503     if ((flags = mbedtls_ssl_get_verify_result(&ssl)) != 0) {
   2504         char vrfy_buf[512];
   2505         mbedtls_printf(" failed\n");
   2506 
   2507         x509_crt_verify_info(vrfy_buf, sizeof(vrfy_buf),
   2508                              "  ! ", flags);
   2509 
   2510         mbedtls_printf("%s\n", vrfy_buf);
   2511     } else {
   2512         mbedtls_printf(" ok\n");
   2513     }
   2514 
   2515 #if !defined(MBEDTLS_X509_REMOVE_INFO)
   2516     mbedtls_printf("  . Peer certificate information    ...\n");
   2517     mbedtls_printf("%s\n", peer_crt_info);
   2518 #endif /* !MBEDTLS_X509_REMOVE_INFO */
   2519 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   2520 
   2521 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   2522     ret = report_cid_usage(&ssl, "initial handshake");
   2523     if (ret != 0) {
   2524         goto exit;
   2525     }
   2526 
   2527     if (opt.transport == MBEDTLS_SSL_TRANSPORT_DATAGRAM) {
   2528         if ((ret = mbedtls_ssl_set_cid(&ssl, opt.cid_enabled_renego,
   2529                                        cid_renego,
   2530                                        cid_renego_len)) != 0) {
   2531             mbedtls_printf(" failed\n  ! mbedtls_ssl_set_cid returned %d\n\n",
   2532                            ret);
   2533             goto exit;
   2534         }
   2535     }
   2536 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   2537 
   2538 #if defined(MBEDTLS_SSL_RENEGOTIATION)
   2539     if (opt.renegotiate) {
   2540         /*
   2541          * Perform renegotiation (this must be done when the server is waiting
   2542          * for input from our side).
   2543          */
   2544         mbedtls_printf("  . Performing renegotiation...");
   2545         fflush(stdout);
   2546         while ((ret = mbedtls_ssl_renegotiate(&ssl)) != 0) {
   2547             if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2548                 ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   2549                 ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2550                 mbedtls_printf(" failed\n  ! mbedtls_ssl_renegotiate returned %d\n\n",
   2551                                ret);
   2552                 goto exit;
   2553             }
   2554 
   2555 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2556             if (ret == MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2557                 continue;
   2558             }
   2559 #endif
   2560 
   2561             /* For event-driven IO, wait for socket to become available */
   2562             if (opt.event == 1 /* level triggered IO */) {
   2563 #if defined(MBEDTLS_TIMING_C)
   2564                 idle(&server_fd, &timer, ret);
   2565 #else
   2566                 idle(&server_fd, ret);
   2567 #endif
   2568             }
   2569 
   2570         }
   2571         mbedtls_printf(" ok\n");
   2572     }
   2573 
   2574 
   2575 #endif /* MBEDTLS_SSL_RENEGOTIATION */
   2576 
   2577 #if defined(MBEDTLS_SSL_DTLS_CONNECTION_ID)
   2578     ret = report_cid_usage(&ssl, "after renegotiation");
   2579     if (ret != 0) {
   2580         goto exit;
   2581     }
   2582 #endif /* MBEDTLS_SSL_DTLS_CONNECTION_ID */
   2583 
   2584 #if defined(MBEDTLS_SSL_KEYING_MATERIAL_EXPORT)
   2585     if (opt.exp_label != NULL && opt.exp_len > 0) {
   2586         unsigned char *exported_key = mbedtls_calloc((size_t) opt.exp_len, sizeof(unsigned char));
   2587         if (exported_key == NULL) {
   2588             mbedtls_printf("Could not allocate %d bytes\n", opt.exp_len);
   2589             ret = 3;
   2590             goto exit;
   2591         }
   2592         ret = mbedtls_ssl_export_keying_material(&ssl, exported_key, (size_t) opt.exp_len,
   2593                                                  opt.exp_label, strlen(opt.exp_label),
   2594                                                  NULL, 0, 0);
   2595         if (ret != 0) {
   2596             mbedtls_free(exported_key);
   2597             goto exit;
   2598         }
   2599         mbedtls_printf("Exporting key of length %d with label \"%s\": 0x",
   2600                        opt.exp_len,
   2601                        opt.exp_label);
   2602         for (i = 0; i < opt.exp_len; i++) {
   2603             mbedtls_printf("%02X", exported_key[i]);
   2604         }
   2605         mbedtls_printf("\n\n");
   2606         fflush(stdout);
   2607         mbedtls_free(exported_key);
   2608     }
   2609 #endif /* defined(MBEDTLS_SSL_KEYING_MATERIAL_EXPORT) */
   2610 
   2611     /*
   2612      * 6. Write the GET request
   2613      */
   2614     retry_left = opt.max_resend;
   2615 send_request:
   2616     mbedtls_printf("  > Write to server:");
   2617     fflush(stdout);
   2618 
   2619     ret = build_http_request(buf, sizeof(buf) - 1, &len);
   2620     if (ret != 0) {
   2621         goto exit;
   2622     }
   2623 
   2624     if (opt.transport == MBEDTLS_SSL_TRANSPORT_STREAM) {
   2625         written = 0;
   2626         frags = 0;
   2627 
   2628         do {
   2629             while ((ret = mbedtls_ssl_write(&ssl, buf + written,
   2630                                             len - written)) < 0) {
   2631                 if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2632                     ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   2633                     ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2634                     mbedtls_printf(" failed\n  ! mbedtls_ssl_write returned -0x%x\n\n",
   2635                                    (unsigned int) -ret);
   2636                     goto exit;
   2637                 }
   2638 
   2639                 /* For event-driven IO, wait for socket to become available */
   2640                 if (opt.event == 1 /* level triggered IO */) {
   2641 #if defined(MBEDTLS_TIMING_C)
   2642                     idle(&server_fd, &timer, ret);
   2643 #else
   2644                     idle(&server_fd, ret);
   2645 #endif
   2646                 }
   2647             }
   2648 
   2649             frags++;
   2650             written += ret;
   2651         } while (written < len);
   2652     } else { /* Not stream, so datagram */
   2653         while (1) {
   2654             ret = mbedtls_ssl_write(&ssl, buf, len);
   2655 
   2656 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2657             if (ret == MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2658                 continue;
   2659             }
   2660 #endif
   2661 
   2662             if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2663                 ret != MBEDTLS_ERR_SSL_WANT_WRITE) {
   2664                 break;
   2665             }
   2666 
   2667             /* For event-driven IO, wait for socket to become available */
   2668             if (opt.event == 1 /* level triggered IO */) {
   2669 #if defined(MBEDTLS_TIMING_C)
   2670                 idle(&server_fd, &timer, ret);
   2671 #else
   2672                 idle(&server_fd, ret);
   2673 #endif
   2674             }
   2675         }
   2676 
   2677         if (ret < 0) {
   2678             mbedtls_printf(" failed\n  ! mbedtls_ssl_write returned %d\n\n",
   2679                            ret);
   2680             goto exit;
   2681         }
   2682 
   2683         frags = 1;
   2684         written = ret;
   2685 
   2686         if (written < len) {
   2687             mbedtls_printf(" warning\n  ! request didn't fit into single datagram and "
   2688                            "was truncated to size %u", (unsigned) written);
   2689         }
   2690     }
   2691 
   2692     buf[written] = '\0';
   2693     mbedtls_printf(
   2694         " %" MBEDTLS_PRINTF_SIZET " bytes written in %" MBEDTLS_PRINTF_SIZET " fragments\n\n%s\n",
   2695         written,
   2696         frags,
   2697         (char *) buf);
   2698 
   2699     /* Send a non-empty request if request_size == 0 */
   2700     if (len == 0) {
   2701         opt.request_size = DFL_REQUEST_SIZE;
   2702         goto send_request;
   2703     }
   2704 
   2705     /*
   2706      * 7. Read the HTTP response
   2707      */
   2708 
   2709     /*
   2710      * TLS and DTLS need different reading styles (stream vs datagram)
   2711      */
   2712     if (opt.transport == MBEDTLS_SSL_TRANSPORT_STREAM) {
   2713 #if defined(MBEDTLS_SSL_PROTO_TLS1_3) && defined(MBEDTLS_SSL_SESSION_TICKETS)
   2714         int ticket_id = 0;
   2715 #endif
   2716         do {
   2717             len = sizeof(buf) - 1;
   2718             memset(buf, 0, sizeof(buf));
   2719             ret = mbedtls_ssl_read(&ssl, buf, len);
   2720 
   2721 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2722             if (ret == MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2723                 continue;
   2724             }
   2725 #endif
   2726 
   2727             if (ret == MBEDTLS_ERR_SSL_WANT_READ ||
   2728                 ret == MBEDTLS_ERR_SSL_WANT_WRITE) {
   2729                 /* For event-driven IO, wait for socket to become available */
   2730                 if (opt.event == 1 /* level triggered IO */) {
   2731 #if defined(MBEDTLS_TIMING_C)
   2732                     idle(&server_fd, &timer, ret);
   2733 #else
   2734                     idle(&server_fd, ret);
   2735 #endif
   2736                 }
   2737                 continue;
   2738             }
   2739 
   2740             if (ret <= 0) {
   2741                 switch (ret) {
   2742                     case MBEDTLS_ERR_SSL_PEER_CLOSE_NOTIFY:
   2743                         mbedtls_printf(" connection was closed gracefully\n");
   2744                         ret = 0;
   2745                         goto close_notify;
   2746 
   2747                     case 0:
   2748                     case MBEDTLS_ERR_NET_CONN_RESET:
   2749                         mbedtls_printf(" connection was reset by peer\n");
   2750                         ret = 0;
   2751                         goto reconnect;
   2752 
   2753 #if defined(MBEDTLS_SSL_PROTO_TLS1_3)
   2754 
   2755 #if defined(MBEDTLS_SSL_SESSION_TICKETS)
   2756                     case MBEDTLS_ERR_SSL_RECEIVED_NEW_SESSION_TICKET:
   2757                         /* We were waiting for application data but got
   2758                          * a NewSessionTicket instead. */
   2759                         mbedtls_printf(" got new session ticket ( %d ).\n",
   2760                                        ticket_id++);
   2761                         if (opt.reconnect != 0) {
   2762                             mbedtls_printf("  . Saving session for reuse...");
   2763                             fflush(stdout);
   2764 
   2765                             if (opt.reco_mode == 1) {
   2766                                 if ((ret = ssl_save_session_serialize(&ssl,
   2767                                                                       &session_data,
   2768                                                                       &session_data_len)) != 0) {
   2769                                     mbedtls_printf(
   2770                                         " failed\n  ! ssl_save_session_serialize returned -0x%04x\n\n",
   2771                                         (unsigned int) -ret);
   2772                                     goto exit;
   2773                                 }
   2774                             } else {
   2775                                 if ((ret = mbedtls_ssl_get_session(&ssl, &saved_session)) != 0) {
   2776                                     mbedtls_printf(
   2777                                         " failed\n  ! mbedtls_ssl_get_session returned -0x%x\n\n",
   2778                                         (unsigned int) -ret);
   2779                                     goto exit;
   2780                                 }
   2781                             }
   2782 
   2783                             mbedtls_printf(" ok\n");
   2784 
   2785                             if (opt.reco_mode == 1) {
   2786                                 mbedtls_printf("    [ Saved %u bytes of session data]\n",
   2787                                                (unsigned) session_data_len);
   2788                             }
   2789                         }
   2790                         continue;
   2791 #endif /* MBEDTLS_SSL_SESSION_TICKETS */
   2792 
   2793 #endif /* MBEDTLS_SSL_PROTO_TLS1_3 */
   2794 
   2795                     default:
   2796                         mbedtls_printf(" mbedtls_ssl_read returned -0x%x\n",
   2797                                        (unsigned int) -ret);
   2798                         goto exit;
   2799                 }
   2800             }
   2801 
   2802             len = ret;
   2803             buf[len] = '\0';
   2804             mbedtls_printf("  < Read from server: %" MBEDTLS_PRINTF_SIZET " bytes read\n\n%s",
   2805                            len,
   2806                            (char *) buf);
   2807             fflush(stdout);
   2808             /* End of message should be detected according to the syntax of the
   2809              * application protocol (eg HTTP), just use a dummy test here. */
   2810             if (ret > 0 && buf[len-1] == '\n') {
   2811                 ret = 0;
   2812                 break;
   2813             }
   2814         } while (1);
   2815     } else { /* Not stream, so datagram */
   2816         len = sizeof(buf) - 1;
   2817         memset(buf, 0, sizeof(buf));
   2818 
   2819         while (1) {
   2820             ret = mbedtls_ssl_read(&ssl, buf, len);
   2821 
   2822 #if defined(MBEDTLS_ECP_RESTARTABLE)
   2823             if (ret == MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2824                 continue;
   2825             }
   2826 #endif
   2827 
   2828             if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2829                 ret != MBEDTLS_ERR_SSL_WANT_WRITE) {
   2830                 break;
   2831             }
   2832 
   2833             /* For event-driven IO, wait for socket to become available */
   2834             if (opt.event == 1 /* level triggered IO */) {
   2835 #if defined(MBEDTLS_TIMING_C)
   2836                 idle(&server_fd, &timer, ret);
   2837 #else
   2838                 idle(&server_fd, ret);
   2839 #endif
   2840             }
   2841         }
   2842 
   2843         if (ret <= 0) {
   2844             switch (ret) {
   2845                 case MBEDTLS_ERR_SSL_TIMEOUT:
   2846                     mbedtls_printf(" timeout\n");
   2847                     if (retry_left-- > 0) {
   2848                         goto send_request;
   2849                     }
   2850                     goto exit;
   2851 
   2852                 case MBEDTLS_ERR_SSL_PEER_CLOSE_NOTIFY:
   2853                     mbedtls_printf(" connection was closed gracefully\n");
   2854                     ret = 0;
   2855                     goto close_notify;
   2856 
   2857                 default:
   2858                     mbedtls_printf(" mbedtls_ssl_read returned -0x%x\n", (unsigned int) -ret);
   2859                     goto exit;
   2860             }
   2861         }
   2862 
   2863         len = ret;
   2864         buf[len] = '\0';
   2865         mbedtls_printf("  < Read from server: %" MBEDTLS_PRINTF_SIZET " bytes read\n\n%s",
   2866                        len,
   2867                        (char *) buf);
   2868         ret = 0;
   2869     }
   2870 
   2871     /*
   2872      * 7b. Simulate hard reset and reconnect from same port?
   2873      */
   2874     if (opt.reconnect_hard != 0) {
   2875         opt.reconnect_hard = 0;
   2876 
   2877         mbedtls_printf("  . Restarting connection from same port...");
   2878         fflush(stdout);
   2879 
   2880 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   2881         memset(peer_crt_info, 0, sizeof(peer_crt_info));
   2882 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   2883 
   2884         if ((ret = mbedtls_ssl_session_reset(&ssl)) != 0) {
   2885             mbedtls_printf(" failed\n  ! mbedtls_ssl_session_reset returned -0x%x\n\n",
   2886                            (unsigned int) -ret);
   2887             goto exit;
   2888         }
   2889 
   2890         while ((ret = mbedtls_ssl_handshake(&ssl)) != 0) {
   2891             if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   2892                 ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   2893                 ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   2894                 mbedtls_printf(" failed\n  ! mbedtls_ssl_handshake returned -0x%x\n\n",
   2895                                (unsigned int) -ret);
   2896                 goto exit;
   2897             }
   2898 
   2899             /* For event-driven IO, wait for socket to become available */
   2900             if (opt.event == 1 /* level triggered IO */) {
   2901 #if defined(MBEDTLS_TIMING_C)
   2902                 idle(&server_fd, &timer, ret);
   2903 #else
   2904                 idle(&server_fd, ret);
   2905 #endif
   2906             }
   2907         }
   2908 
   2909         mbedtls_printf(" ok\n");
   2910 
   2911         goto send_request;
   2912     }
   2913 
   2914     /*
   2915      * 7c. Simulate serialize/deserialize and go back to data exchange
   2916      */
   2917 #if defined(MBEDTLS_SSL_CONTEXT_SERIALIZATION)
   2918     if (opt.serialize != 0) {
   2919         size_t buf_len;
   2920 
   2921         mbedtls_printf("  . Serializing live connection...");
   2922 
   2923         ret = mbedtls_ssl_context_save(&ssl, NULL, 0, &buf_len);
   2924         if (ret != MBEDTLS_ERR_SSL_BUFFER_TOO_SMALL) {
   2925             mbedtls_printf(" failed\n  ! mbedtls_ssl_context_save returned "
   2926                            "-0x%x\n\n", (unsigned int) -ret);
   2927 
   2928             goto exit;
   2929         }
   2930 
   2931         if ((context_buf = mbedtls_calloc(1, buf_len)) == NULL) {
   2932             mbedtls_printf(" failed\n  ! Couldn't allocate buffer for "
   2933                            "serialized context");
   2934 
   2935             goto exit;
   2936         }
   2937         context_buf_len = buf_len;
   2938 
   2939         if ((ret = mbedtls_ssl_context_save(&ssl, context_buf,
   2940                                             buf_len, &buf_len)) != 0) {
   2941             mbedtls_printf(" failed\n  ! mbedtls_ssl_context_save returned "
   2942                            "-0x%x\n\n", (unsigned int) -ret);
   2943 
   2944             goto exit;
   2945         }
   2946 
   2947         mbedtls_printf(" ok\n");
   2948 
   2949         /* Save serialized context to the 'opt.context_file' as a base64 code */
   2950         if (0 < strlen(opt.context_file)) {
   2951             FILE *b64_file;
   2952             uint8_t *b64_buf;
   2953             size_t b64_len;
   2954 
   2955             mbedtls_printf("  . Save serialized context to a file... ");
   2956 
   2957             mbedtls_base64_encode(NULL, 0, &b64_len, context_buf, buf_len);
   2958 
   2959             if ((b64_buf = mbedtls_calloc(1, b64_len)) == NULL) {
   2960                 mbedtls_printf("failed\n  ! Couldn't allocate buffer for "
   2961                                "the base64 code\n");
   2962                 goto exit;
   2963             }
   2964 
   2965             if ((ret = mbedtls_base64_encode(b64_buf, b64_len, &b64_len,
   2966                                              context_buf, buf_len)) != 0) {
   2967                 mbedtls_printf("failed\n  ! mbedtls_base64_encode returned "
   2968                                "-0x%x\n", (unsigned int) -ret);
   2969                 mbedtls_free(b64_buf);
   2970                 goto exit;
   2971             }
   2972 
   2973             if ((b64_file = fopen(opt.context_file, "w")) == NULL) {
   2974                 mbedtls_printf("failed\n  ! Cannot open '%s' for writing.\n",
   2975                                opt.context_file);
   2976                 mbedtls_free(b64_buf);
   2977                 goto exit;
   2978             }
   2979 
   2980             if (b64_len != fwrite(b64_buf, 1, b64_len, b64_file)) {
   2981                 mbedtls_printf("failed\n  ! fwrite(%ld bytes) failed\n",
   2982                                (long) b64_len);
   2983                 mbedtls_free(b64_buf);
   2984                 fclose(b64_file);
   2985                 goto exit;
   2986             }
   2987 
   2988             mbedtls_free(b64_buf);
   2989             fclose(b64_file);
   2990 
   2991             mbedtls_printf("ok\n");
   2992         }
   2993 
   2994         if (opt.serialize == 1) {
   2995             /* nothing to do here, done by context_save() already */
   2996             mbedtls_printf("  . Context has been reset... ok\n");
   2997         }
   2998 
   2999         if (opt.serialize == 2) {
   3000             mbedtls_printf("  . Freeing and reinitializing context...");
   3001 
   3002             mbedtls_ssl_free(&ssl);
   3003 
   3004             mbedtls_ssl_init(&ssl);
   3005 
   3006             if ((ret = mbedtls_ssl_setup(&ssl, &conf)) != 0) {
   3007                 mbedtls_printf(" failed\n  ! mbedtls_ssl_setup returned "
   3008                                "-0x%x\n\n", (unsigned int) -ret);
   3009                 goto exit;
   3010             }
   3011 
   3012             if (opt.nbio == 2) {
   3013                 mbedtls_ssl_set_bio(&ssl, &server_fd, delayed_send,
   3014                                     delayed_recv, NULL);
   3015             } else {
   3016                 mbedtls_ssl_set_bio(&ssl, &server_fd, mbedtls_net_send,
   3017                                     mbedtls_net_recv,
   3018                                     opt.nbio == 0 ? mbedtls_net_recv_timeout : NULL);
   3019             }
   3020 
   3021 #if defined(MBEDTLS_TIMING_C)
   3022             mbedtls_ssl_set_timer_cb(&ssl, &timer,
   3023                                      mbedtls_timing_set_delay,
   3024                                      mbedtls_timing_get_delay);
   3025 #endif /* MBEDTLS_TIMING_C */
   3026 
   3027             mbedtls_printf(" ok\n");
   3028         }
   3029 
   3030         mbedtls_printf("  . Deserializing connection...");
   3031 
   3032         if ((ret = mbedtls_ssl_context_load(&ssl, context_buf,
   3033                                             buf_len)) != 0) {
   3034             mbedtls_printf("failed\n  ! mbedtls_ssl_context_load returned "
   3035                            "-0x%x\n\n", (unsigned int) -ret);
   3036 
   3037             goto exit;
   3038         }
   3039 
   3040         mbedtls_free(context_buf);
   3041         context_buf = NULL;
   3042         context_buf_len = 0;
   3043 
   3044         mbedtls_printf(" ok\n");
   3045     }
   3046 #endif /* MBEDTLS_SSL_CONTEXT_SERIALIZATION */
   3047 
   3048     /*
   3049      * 7d. Continue doing data exchanges?
   3050      */
   3051     if (--opt.exchanges > 0) {
   3052         goto send_request;
   3053     }
   3054 
   3055     /*
   3056      * 8. Done, cleanly close the connection
   3057      */
   3058 close_notify:
   3059     mbedtls_printf("  . Closing the connection...");
   3060     fflush(stdout);
   3061 
   3062     /*
   3063      * Most of the time sending a close_notify before closing is the right
   3064      * thing to do. However, when the server already knows how many messages
   3065      * are expected and closes the connection by itself, this alert becomes
   3066      * redundant. Sometimes with DTLS this redundancy becomes a problem by
   3067      * leading to a race condition where the server might close the connection
   3068      * before seeing the alert, and since UDP is connection-less when the
   3069      * alert arrives it will be seen as a new connection, which will fail as
   3070      * the alert is clearly not a valid ClientHello. This may cause spurious
   3071      * failures in tests that use DTLS and resumption with ssl_server2 in
   3072      * ssl-opt.sh, avoided by enabling skip_close_notify client-side.
   3073      */
   3074     if (opt.skip_close_notify == 0) {
   3075         /* No error checking, the connection might be closed already */
   3076         do {
   3077             ret = mbedtls_ssl_close_notify(&ssl);
   3078         } while (ret == MBEDTLS_ERR_SSL_WANT_WRITE);
   3079         ret = 0;
   3080     }
   3081 
   3082     mbedtls_printf(" done\n");
   3083 
   3084     /*
   3085      * 9. Reconnect?
   3086      */
   3087 reconnect:
   3088     if (opt.reconnect != 0) {
   3089         --opt.reconnect;
   3090 
   3091         mbedtls_net_free(&server_fd);
   3092 
   3093 #if defined(MBEDTLS_TIMING_C)
   3094         if (opt.reco_delay > 0) {
   3095             mbedtls_net_usleep(1000 * opt.reco_delay);
   3096         }
   3097 #endif
   3098 
   3099         mbedtls_printf("  . Reconnecting with saved session...");
   3100 
   3101 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   3102         memset(peer_crt_info, 0, sizeof(peer_crt_info));
   3103 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   3104 
   3105         if ((ret = mbedtls_ssl_session_reset(&ssl)) != 0) {
   3106             mbedtls_printf(" failed\n  ! mbedtls_ssl_session_reset returned -0x%x\n\n",
   3107                            (unsigned int) -ret);
   3108             goto exit;
   3109         }
   3110 
   3111         if (opt.reco_mode == 1) {
   3112             if ((ret = mbedtls_ssl_session_load(&saved_session,
   3113                                                 session_data,
   3114                                                 session_data_len)) != 0) {
   3115                 mbedtls_printf(" failed\n  ! mbedtls_ssl_session_load returned -0x%x\n\n",
   3116                                (unsigned int) -ret);
   3117                 goto exit;
   3118             }
   3119         }
   3120 
   3121         if ((ret = mbedtls_ssl_set_session(&ssl, &saved_session)) != 0) {
   3122             mbedtls_printf(" failed\n  ! mbedtls_ssl_set_session returned -0x%x\n\n",
   3123                            (unsigned int) -ret);
   3124             goto exit;
   3125         }
   3126 
   3127 #if defined(MBEDTLS_X509_CRT_PARSE_C)
   3128         if (opt.reco_server_name != NULL &&
   3129             (ret = mbedtls_ssl_set_hostname(&ssl,
   3130                                             opt.reco_server_name)) != 0) {
   3131             mbedtls_printf(" failed\n  ! mbedtls_ssl_set_hostname returned %d\n\n",
   3132                            ret);
   3133             goto exit;
   3134         }
   3135 #endif
   3136 
   3137         if ((ret = mbedtls_net_connect(&server_fd,
   3138                                        opt.server_addr, opt.server_port,
   3139                                        opt.transport == MBEDTLS_SSL_TRANSPORT_STREAM ?
   3140                                        MBEDTLS_NET_PROTO_TCP : MBEDTLS_NET_PROTO_UDP)) != 0) {
   3141             mbedtls_printf(" failed\n  ! mbedtls_net_connect returned -0x%x\n\n",
   3142                            (unsigned int) -ret);
   3143             goto exit;
   3144         }
   3145 
   3146         if (opt.nbio > 0) {
   3147             ret = mbedtls_net_set_nonblock(&server_fd);
   3148         } else {
   3149             ret = mbedtls_net_set_block(&server_fd);
   3150         }
   3151         if (ret != 0) {
   3152             mbedtls_printf(" failed\n  ! net_set_(non)block() returned -0x%x\n\n",
   3153                            (unsigned int) -ret);
   3154             goto exit;
   3155         }
   3156 
   3157         ret = build_http_request(buf, sizeof(buf) - 1, &len);
   3158         if (ret != 0) {
   3159             goto exit;
   3160         }
   3161 
   3162 #if defined(MBEDTLS_SSL_EARLY_DATA)
   3163         if (ssl.conf->early_data_enabled == MBEDTLS_SSL_EARLY_DATA_ENABLED) {
   3164             frags = 0;
   3165             written = 0;
   3166             do {
   3167                 while ((ret = mbedtls_ssl_write_early_data(&ssl, buf + written,
   3168                                                            len - written)) < 0) {
   3169                     if (ret == MBEDTLS_ERR_SSL_CANNOT_WRITE_EARLY_DATA) {
   3170                         goto end_of_early_data;
   3171                     }
   3172                     if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   3173                         ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   3174                         ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   3175                         mbedtls_printf(" failed\n  ! mbedtls_ssl_write returned -0x%x\n\n",
   3176                                        (unsigned int) -ret);
   3177                         goto exit;
   3178                     }
   3179 
   3180                     /* For event-driven IO, wait for socket to become available */
   3181                     if (opt.event == 1 /* level triggered IO */) {
   3182 #if defined(MBEDTLS_TIMING_C)
   3183                         idle(&server_fd, &timer, ret);
   3184 #else
   3185                         idle(&server_fd, ret);
   3186 #endif
   3187                     }
   3188                 }
   3189 
   3190                 frags++;
   3191                 written += ret;
   3192             } while (written < len);
   3193 
   3194 end_of_early_data:
   3195 
   3196             buf[written] = '\0';
   3197             mbedtls_printf(
   3198                 " %" MBEDTLS_PRINTF_SIZET " bytes of early data written in %" MBEDTLS_PRINTF_SIZET " fragments\n\n%s\n",
   3199                 written,
   3200                 frags,
   3201                 (char *) buf);
   3202         }
   3203 #endif /* MBEDTLS_SSL_EARLY_DATA */
   3204 
   3205         while ((ret = mbedtls_ssl_handshake(&ssl)) != 0) {
   3206             if (ret != MBEDTLS_ERR_SSL_WANT_READ &&
   3207                 ret != MBEDTLS_ERR_SSL_WANT_WRITE &&
   3208                 ret != MBEDTLS_ERR_SSL_CRYPTO_IN_PROGRESS) {
   3209                 mbedtls_printf(" failed\n  ! mbedtls_ssl_handshake returned -0x%x\n\n",
   3210                                (unsigned int) -ret);
   3211                 goto exit;
   3212             }
   3213         }
   3214 
   3215         mbedtls_printf(" ok\n");
   3216 
   3217         goto send_request;
   3218     }
   3219 
   3220     /*
   3221      * Cleanup and exit
   3222      */
   3223 exit:
   3224 #ifdef MBEDTLS_ERROR_C
   3225     if (ret != 0) {
   3226         char error_buf[100];
   3227         mbedtls_strerror(ret, error_buf, 100);
   3228         mbedtls_printf("Last error was: -0x%X - %s\n\n", (unsigned int) -ret, error_buf);
   3229     }
   3230 #endif
   3231 
   3232     mbedtls_net_free(&server_fd);
   3233 
   3234     mbedtls_ssl_free(&ssl);
   3235     mbedtls_ssl_config_free(&conf);
   3236     mbedtls_ssl_session_free(&saved_session);
   3237 
   3238     if (session_data != NULL) {
   3239         mbedtls_platform_zeroize(session_data, session_data_len);
   3240     }
   3241     mbedtls_free(session_data);
   3242 #if defined(MBEDTLS_SSL_CONTEXT_SERIALIZATION)
   3243     if (context_buf != NULL) {
   3244         mbedtls_platform_zeroize(context_buf, context_buf_len);
   3245     }
   3246     mbedtls_free(context_buf);
   3247 #endif
   3248 
   3249 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED)
   3250     mbedtls_x509_crt_free(&clicert);
   3251     mbedtls_x509_crt_free(&cacert);
   3252     mbedtls_pk_free(&pkey);
   3253 #if defined(MBEDTLS_USE_PSA_CRYPTO)
   3254     psa_destroy_key(key_slot);
   3255 #endif
   3256 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_CERT_ENABLED */
   3257 
   3258 #if defined(MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED) && \
   3259     defined(MBEDTLS_USE_PSA_CRYPTO)
   3260     if (opt.psk_opaque != 0) {
   3261         /* This is ok even if the slot hasn't been
   3262          * initialized (we might have jumed here
   3263          * immediately because of bad cmd line params,
   3264          * for example). */
   3265         status = psa_destroy_key(slot);
   3266         if ((status != PSA_SUCCESS) &&
   3267             (opt.query_config_mode == DFL_QUERY_CONFIG_MODE)) {
   3268             mbedtls_printf("Failed to destroy key slot %u - error was %d",
   3269                            (unsigned) MBEDTLS_SVC_KEY_ID_GET_KEY_ID(slot),
   3270                            (int) status);
   3271             if (ret == 0) {
   3272                 ret = MBEDTLS_ERR_SSL_HW_ACCEL_FAILED;
   3273             }
   3274         }
   3275     }
   3276 #endif /* MBEDTLS_SSL_HANDSHAKE_WITH_PSK_ENABLED &&
   3277           MBEDTLS_USE_PSA_CRYPTO */
   3278 
   3279 #if defined(MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED) && \
   3280     defined(MBEDTLS_USE_PSA_CRYPTO)
   3281     /*
   3282      * In case opaque keys it's the user responsibility to keep the key valid
   3283      * for the duration of the handshake and destroy it at the end
   3284      */
   3285     if ((opt.ecjpake_pw_opaque != DFL_ECJPAKE_PW_OPAQUE)) {
   3286         psa_key_attributes_t check_attributes = PSA_KEY_ATTRIBUTES_INIT;
   3287 
   3288         /* Verify that the key is still valid before destroying it */
   3289         if (psa_get_key_attributes(ecjpake_pw_slot, &check_attributes) !=
   3290             PSA_SUCCESS) {
   3291             if (ret == 0) {
   3292                 ret = 1;
   3293             }
   3294             mbedtls_printf("The EC J-PAKE password key has unexpectedly been already destroyed\n");
   3295         } else {
   3296             psa_destroy_key(ecjpake_pw_slot);
   3297         }
   3298     }
   3299 #endif  /* MBEDTLS_KEY_EXCHANGE_ECJPAKE_ENABLED && MBEDTLS_USE_PSA_CRYPTO */
   3300 
   3301 #if defined(MBEDTLS_USE_PSA_CRYPTO) || defined(MBEDTLS_SSL_PROTO_TLS1_3)
   3302     const char *message = mbedtls_test_helper_is_psa_leaking();
   3303     if (message) {
   3304         if (ret == 0) {
   3305             ret = 1;
   3306         }
   3307         mbedtls_printf("PSA memory leak detected: %s\n",  message);
   3308     }
   3309 #endif /* MBEDTLS_USE_PSA_CRYPTO || MBEDTLS_SSL_PROTO_TLS1_3 */
   3310 
   3311     /* For builds with MBEDTLS_TEST_USE_PSA_CRYPTO_RNG psa crypto
   3312      * resources are freed by rng_free(). */
   3313     /* For builds with MBEDTLS_SSL_PROTO_TLS1_3, PSA may have been
   3314      * initialized under the hood by the TLS layer. See
   3315      * mbedtls_ssl_tls13_crypto_init(). */
   3316 #if (defined(MBEDTLS_USE_PSA_CRYPTO) || defined(MBEDTLS_SSL_PROTO_TLS1_3)) && \
   3317     !defined(MBEDTLS_TEST_USE_PSA_CRYPTO_RNG)
   3318     mbedtls_psa_crypto_free();
   3319 #endif
   3320 
   3321     rng_free(&rng);
   3322 
   3323 #if defined(MBEDTLS_TEST_HOOKS)
   3324     if (test_hooks_failure_detected()) {
   3325         if (ret == 0) {
   3326             ret = 1;
   3327         }
   3328         mbedtls_printf("Test hooks detected errors.\n");
   3329     }
   3330     test_hooks_free();
   3331 #endif /* MBEDTLS_TEST_HOOKS */
   3332 
   3333 #if defined(MBEDTLS_MEMORY_BUFFER_ALLOC_C)
   3334 #if defined(MBEDTLS_MEMORY_DEBUG)
   3335     mbedtls_memory_buffer_alloc_status();
   3336 #endif
   3337     mbedtls_memory_buffer_alloc_free();
   3338 #endif  /* MBEDTLS_MEMORY_BUFFER_ALLOC_C */
   3339 
   3340     // Shell can not handle large exit numbers -> 1 for errors
   3341     if (ret < 0) {
   3342         ret = 1;
   3343     }
   3344 
   3345     if (opt.query_config_mode == DFL_QUERY_CONFIG_MODE) {
   3346         mbedtls_exit(ret);
   3347     } else {
   3348         mbedtls_exit(query_config_ret);
   3349     }
   3350 }
   3351 #endif /* !MBEDTLS_SSL_TEST_IMPOSSIBLE && MBEDTLS_SSL_CLI_C */