Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 1 | /* |
| 2 | * SSL client for SMTP servers |
| 3 | * |
Bence Szépkúti | 1e14827 | 2020-08-07 13:07:28 +0200 | [diff] [blame] | 4 | * Copyright The Mbed TLS Contributors |
Manuel Pégourié-Gonnard | 37ff140 | 2015-09-04 14:21:07 +0200 | [diff] [blame] | 5 | * SPDX-License-Identifier: Apache-2.0 |
| 6 | * |
| 7 | * Licensed under the Apache License, Version 2.0 (the "License"); you may |
| 8 | * not use this file except in compliance with the License. |
| 9 | * You may obtain a copy of the License at |
| 10 | * |
| 11 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 12 | * |
| 13 | * Unless required by applicable law or agreed to in writing, software |
| 14 | * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT |
| 15 | * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 16 | * See the License for the specific language governing permissions and |
| 17 | * limitations under the License. |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 18 | */ |
| 19 | |
Nicholas Wilson | 61fa436 | 2018-06-25 12:10:00 +0100 | [diff] [blame] | 20 | /* Enable definition of gethostname() even when compiling with -std=c99. Must |
| 21 | * be set before config.h, which pulls in glibc's features.h indirectly. |
Nicholas Wilson | 2682edf | 2017-12-05 12:08:15 +0000 | [diff] [blame] | 22 | * Harmless on other platforms. */ |
| 23 | #define _POSIX_C_SOURCE 200112L |
nia | 7eb0e62 | 2020-06-11 12:30:12 +0100 | [diff] [blame] | 24 | #define _XOPEN_SOURCE 600 |
Nicholas Wilson | 2682edf | 2017-12-05 12:08:15 +0000 | [diff] [blame] | 25 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 26 | #if !defined(MBEDTLS_CONFIG_FILE) |
Manuel Pégourié-Gonnard | 7f80997 | 2015-03-09 17:05:11 +0000 | [diff] [blame] | 27 | #include "mbedtls/config.h" |
Manuel Pégourié-Gonnard | cef4ad2 | 2014-04-29 12:39:06 +0200 | [diff] [blame] | 28 | #else |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 29 | #include MBEDTLS_CONFIG_FILE |
Manuel Pégourié-Gonnard | cef4ad2 | 2014-04-29 12:39:06 +0200 | [diff] [blame] | 30 | #endif |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 31 | |
Manuel Pégourié-Gonnard | 7f80997 | 2015-03-09 17:05:11 +0000 | [diff] [blame] | 32 | #include "mbedtls/platform.h" |
Rich Evans | f90016a | 2015-01-19 14:26:37 +0000 | [diff] [blame] | 33 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 34 | #if !defined(MBEDTLS_BIGNUM_C) || !defined(MBEDTLS_ENTROPY_C) || \ |
| 35 | !defined(MBEDTLS_SSL_TLS_C) || !defined(MBEDTLS_SSL_CLI_C) || \ |
| 36 | !defined(MBEDTLS_NET_C) || !defined(MBEDTLS_RSA_C) || \ |
| 37 | !defined(MBEDTLS_CTR_DRBG_C) || !defined(MBEDTLS_X509_CRT_PARSE_C) || \ |
| 38 | !defined(MBEDTLS_FS_IO) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 39 | int main(void) |
Manuel Pégourié-Gonnard | 4b3e5ef | 2015-03-27 11:24:27 +0100 | [diff] [blame] | 40 | { |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 41 | mbedtls_printf("MBEDTLS_BIGNUM_C and/or MBEDTLS_ENTROPY_C and/or " |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 42 | "MBEDTLS_SSL_TLS_C and/or MBEDTLS_SSL_CLI_C and/or " |
| 43 | "MBEDTLS_NET_C and/or MBEDTLS_RSA_C and/or " |
| 44 | "MBEDTLS_CTR_DRBG_C and/or MBEDTLS_X509_CRT_PARSE_C " |
| 45 | "not defined.\n"); |
| 46 | mbedtls_exit(0); |
Manuel Pégourié-Gonnard | 4b3e5ef | 2015-03-27 11:24:27 +0100 | [diff] [blame] | 47 | } |
| 48 | #else |
| 49 | |
Manuel Pégourié-Gonnard | 7f80997 | 2015-03-09 17:05:11 +0000 | [diff] [blame] | 50 | #include "mbedtls/base64.h" |
| 51 | #include "mbedtls/error.h" |
Andres AG | 788aa4a | 2016-09-14 14:32:09 +0100 | [diff] [blame] | 52 | #include "mbedtls/net_sockets.h" |
Manuel Pégourié-Gonnard | 7f80997 | 2015-03-09 17:05:11 +0000 | [diff] [blame] | 53 | #include "mbedtls/ssl.h" |
| 54 | #include "mbedtls/entropy.h" |
| 55 | #include "mbedtls/ctr_drbg.h" |
| 56 | #include "mbedtls/certs.h" |
| 57 | #include "mbedtls/x509.h" |
Rich Evans | 18b78c7 | 2015-02-11 14:06:19 +0000 | [diff] [blame] | 58 | |
Rich Evans | 18b78c7 | 2015-02-11 14:06:19 +0000 | [diff] [blame] | 59 | #include <stdlib.h> |
| 60 | #include <string.h> |
Paul Bakker | fdda785 | 2013-11-30 15:15:31 +0100 | [diff] [blame] | 61 | |
| 62 | #if !defined(_MSC_VER) || defined(EFIX64) || defined(EFI32) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 63 | #include <unistd.h> |
Paul Bakker | fdda785 | 2013-11-30 15:15:31 +0100 | [diff] [blame] | 64 | #else |
| 65 | #include <io.h> |
Paul Bakker | fdda785 | 2013-11-30 15:15:31 +0100 | [diff] [blame] | 66 | #endif |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 67 | |
Paul Bakker | 5a83522 | 2011-10-12 09:19:31 +0000 | [diff] [blame] | 68 | #if defined(_WIN32) || defined(_WIN32_WCE) |
Paul Bakker | 5a83522 | 2011-10-12 09:19:31 +0000 | [diff] [blame] | 69 | #include <winsock2.h> |
| 70 | #include <windows.h> |
| 71 | |
Paul Bakker | f0fc2a2 | 2013-12-30 15:42:43 +0100 | [diff] [blame] | 72 | #if defined(_MSC_VER) |
Paul Bakker | 5a83522 | 2011-10-12 09:19:31 +0000 | [diff] [blame] | 73 | #if defined(_WIN32_WCE) |
| 74 | #pragma comment( lib, "ws2.lib" ) |
| 75 | #else |
| 76 | #pragma comment( lib, "ws2_32.lib" ) |
| 77 | #endif |
Paul Bakker | f0fc2a2 | 2013-12-30 15:42:43 +0100 | [diff] [blame] | 78 | #endif /* _MSC_VER */ |
Paul Bakker | 5a83522 | 2011-10-12 09:19:31 +0000 | [diff] [blame] | 79 | #endif |
| 80 | |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 81 | #define DFL_SERVER_NAME "localhost" |
Manuel Pégourié-Gonnard | c0d7494 | 2015-06-23 12:30:57 +0200 | [diff] [blame] | 82 | #define DFL_SERVER_PORT "465" |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 83 | #define DFL_USER_NAME "user" |
| 84 | #define DFL_USER_PWD "password" |
| 85 | #define DFL_MAIL_FROM "" |
| 86 | #define DFL_MAIL_TO "" |
| 87 | #define DFL_DEBUG_LEVEL 0 |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 88 | #define DFL_CA_FILE "" |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 89 | #define DFL_CRT_FILE "" |
| 90 | #define DFL_KEY_FILE "" |
| 91 | #define DFL_FORCE_CIPHER 0 |
| 92 | #define DFL_MODE 0 |
| 93 | #define DFL_AUTHENTICATION 0 |
| 94 | |
| 95 | #define MODE_SSL_TLS 0 |
| 96 | #define MODE_STARTTLS 0 |
| 97 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 98 | #if defined(MBEDTLS_BASE64_C) |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 99 | #define USAGE_AUTH \ |
irwir | f5ce5d5 | 2019-01-19 19:05:56 +0300 | [diff] [blame] | 100 | " authentication=%%d default: 0 (disabled)\n" \ |
| 101 | " user_name=%%s default: \"" DFL_USER_NAME "\"\n" \ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 102 | " user_pwd=%%s default: \"" \ |
| 103 | DFL_USER_PWD "\"\n" |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 104 | #else |
| 105 | #define USAGE_AUTH \ |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 106 | " authentication options disabled. (Require MBEDTLS_BASE64_C)\n" |
| 107 | #endif /* MBEDTLS_BASE64_C */ |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 108 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 109 | #if defined(MBEDTLS_FS_IO) |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 110 | #define USAGE_IO \ |
| 111 | " ca_file=%%s default: \"\" (pre-loaded)\n" \ |
| 112 | " crt_file=%%s default: \"\" (pre-loaded)\n" \ |
| 113 | " key_file=%%s default: \"\" (pre-loaded)\n" |
| 114 | #else |
| 115 | #define USAGE_IO \ |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 116 | " No file operations available (MBEDTLS_FS_IO not defined)\n" |
| 117 | #endif /* MBEDTLS_FS_IO */ |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 118 | |
| 119 | #define USAGE \ |
irwir | f5ce5d5 | 2019-01-19 19:05:56 +0300 | [diff] [blame] | 120 | "\n usage: ssl_mail_client param=<>...\n" \ |
| 121 | "\n acceptable parameters:\n" \ |
| 122 | " server_name=%%s default: " DFL_SERVER_NAME "\n" \ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 123 | " server_port=%%d default: " \ |
| 124 | DFL_SERVER_PORT "\n" \ |
| 125 | " debug_level=%%d default: 0 (disabled)\n" \ |
| 126 | " mode=%%d default: 0 (SSL/TLS) (1 for STARTTLS)\n" \ |
irwir | f5ce5d5 | 2019-01-19 19:05:56 +0300 | [diff] [blame] | 127 | USAGE_AUTH \ |
| 128 | " mail_from=%%s default: \"\"\n" \ |
| 129 | " mail_to=%%s default: \"\"\n" \ |
| 130 | USAGE_IO \ |
| 131 | " force_ciphersuite=<name> default: all enabled\n" \ |
Rich Evans | 85b05ec | 2015-02-12 11:37:29 +0000 | [diff] [blame] | 132 | " acceptable ciphersuite names:\n" |
| 133 | |
Simon Butcher | 63cb97e | 2018-12-06 17:43:31 +0000 | [diff] [blame] | 134 | |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 135 | /* |
| 136 | * global options |
| 137 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 138 | struct options { |
Paul Bakker | ef3f8c7 | 2013-06-24 13:01:08 +0200 | [diff] [blame] | 139 | const char *server_name; /* hostname of the server (client only) */ |
Manuel Pégourié-Gonnard | c0d7494 | 2015-06-23 12:30:57 +0200 | [diff] [blame] | 140 | const char *server_port; /* port on which the ssl service runs */ |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 141 | int debug_level; /* level of debugging */ |
| 142 | int authentication; /* if authentication is required */ |
| 143 | int mode; /* SSL/TLS (0) or STARTTLS (1) */ |
Paul Bakker | ef3f8c7 | 2013-06-24 13:01:08 +0200 | [diff] [blame] | 144 | const char *user_name; /* username to use for authentication */ |
| 145 | const char *user_pwd; /* password to use for authentication */ |
| 146 | const char *mail_from; /* E-Mail address to use as sender */ |
| 147 | const char *mail_to; /* E-Mail address to use as recipient */ |
| 148 | const char *ca_file; /* the file with the CA certificate(s) */ |
| 149 | const char *crt_file; /* the file with the client certificate */ |
| 150 | const char *key_file; /* the file with the client key */ |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 151 | int force_ciphersuite[2]; /* protocol/ciphersuite to use, or all */ |
| 152 | } opt; |
| 153 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 154 | static void my_debug(void *ctx, int level, |
| 155 | const char *file, int line, |
| 156 | const char *str) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 157 | { |
Manuel Pégourié-Gonnard | 61ee351 | 2015-06-23 17:35:03 +0200 | [diff] [blame] | 158 | ((void) level); |
| 159 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 160 | mbedtls_fprintf((FILE *) ctx, "%s:%04d: %s", file, line, str); |
| 161 | fflush((FILE *) ctx); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 162 | } |
| 163 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 164 | static int do_handshake(mbedtls_ssl_context *ssl) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 165 | { |
| 166 | int ret; |
Manuel Pégourié-Gonnard | e6ef16f | 2015-05-11 19:54:43 +0200 | [diff] [blame] | 167 | uint32_t flags; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 168 | unsigned char buf[1024]; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 169 | memset(buf, 0, 1024); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 170 | |
| 171 | /* |
| 172 | * 4. Handshake |
| 173 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 174 | mbedtls_printf(" . Performing the SSL/TLS handshake..."); |
| 175 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 176 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 177 | while ((ret = mbedtls_ssl_handshake(ssl)) != 0) { |
| 178 | if (ret != MBEDTLS_ERR_SSL_WANT_READ && ret != MBEDTLS_ERR_SSL_WANT_WRITE) { |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 179 | #if defined(MBEDTLS_ERROR_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 180 | mbedtls_strerror(ret, (char *) buf, 1024); |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 181 | #endif |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 182 | mbedtls_printf(" failed\n ! mbedtls_ssl_handshake returned %d: %s\n\n", ret, buf); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 183 | return -1; |
| 184 | } |
| 185 | } |
| 186 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 187 | mbedtls_printf(" ok\n [ Ciphersuite is %s ]\n", |
| 188 | mbedtls_ssl_get_ciphersuite(ssl)); |
| 189 | |
| 190 | /* |
| 191 | * 5. Verify the server certificate |
| 192 | */ |
| 193 | mbedtls_printf(" . Verifying peer X.509 certificate..."); |
| 194 | |
| 195 | /* In real life, we probably want to bail out when ret != 0 */ |
| 196 | if ((flags = mbedtls_ssl_get_verify_result(ssl)) != 0) { |
| 197 | char vrfy_buf[512]; |
| 198 | |
| 199 | mbedtls_printf(" failed\n"); |
| 200 | |
| 201 | mbedtls_x509_crt_verify_info(vrfy_buf, sizeof(vrfy_buf), " ! ", flags); |
| 202 | |
| 203 | mbedtls_printf("%s\n", vrfy_buf); |
| 204 | } else { |
| 205 | mbedtls_printf(" ok\n"); |
| 206 | } |
| 207 | |
| 208 | mbedtls_printf(" . Peer certificate information ...\n"); |
| 209 | mbedtls_x509_crt_info((char *) buf, sizeof(buf) - 1, " ", |
| 210 | mbedtls_ssl_get_peer_cert(ssl)); |
| 211 | mbedtls_printf("%s\n", buf); |
| 212 | |
| 213 | return 0; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 214 | } |
| 215 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 216 | static int write_ssl_data(mbedtls_ssl_context *ssl, unsigned char *buf, size_t len) |
| 217 | { |
| 218 | int ret; |
| 219 | |
| 220 | mbedtls_printf("\n%s", buf); |
| 221 | while (len && (ret = mbedtls_ssl_write(ssl, buf, len)) <= 0) { |
| 222 | if (ret != MBEDTLS_ERR_SSL_WANT_READ && ret != MBEDTLS_ERR_SSL_WANT_WRITE) { |
| 223 | mbedtls_printf(" failed\n ! mbedtls_ssl_write returned %d\n\n", ret); |
| 224 | return -1; |
| 225 | } |
| 226 | } |
| 227 | |
| 228 | return 0; |
| 229 | } |
| 230 | |
| 231 | static int write_ssl_and_get_response(mbedtls_ssl_context *ssl, unsigned char *buf, size_t len) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 232 | { |
| 233 | int ret; |
| 234 | unsigned char data[128]; |
| 235 | char code[4]; |
| 236 | size_t i, idx = 0; |
| 237 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 238 | mbedtls_printf("\n%s", buf); |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 239 | while (len && (ret = mbedtls_ssl_write(ssl, buf, len)) <= 0) { |
| 240 | if (ret != MBEDTLS_ERR_SSL_WANT_READ && ret != MBEDTLS_ERR_SSL_WANT_WRITE) { |
| 241 | mbedtls_printf(" failed\n ! mbedtls_ssl_write returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 242 | return -1; |
| 243 | } |
| 244 | } |
| 245 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 246 | do { |
| 247 | len = sizeof(data) - 1; |
| 248 | memset(data, 0, sizeof(data)); |
| 249 | ret = mbedtls_ssl_read(ssl, data, len); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 250 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 251 | if (ret == MBEDTLS_ERR_SSL_WANT_READ || ret == MBEDTLS_ERR_SSL_WANT_WRITE) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 252 | continue; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 253 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 254 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 255 | if (ret == MBEDTLS_ERR_SSL_PEER_CLOSE_NOTIFY) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 256 | return -1; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 257 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 258 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 259 | if (ret <= 0) { |
| 260 | mbedtls_printf("failed\n ! mbedtls_ssl_read returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 261 | return -1; |
| 262 | } |
| 263 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 264 | mbedtls_printf("\n%s", data); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 265 | len = ret; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 266 | for (i = 0; i < len; i++) { |
| 267 | if (data[i] != '\n') { |
| 268 | if (idx < 4) { |
| 269 | code[idx++] = data[i]; |
| 270 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 271 | continue; |
| 272 | } |
| 273 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 274 | if (idx == 4 && code[0] >= '0' && code[0] <= '9' && code[3] == ' ') { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 275 | code[3] = '\0'; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 276 | return atoi(code); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 277 | } |
Paul Bakker | 3c5ef71 | 2013-06-25 16:37:45 +0200 | [diff] [blame] | 278 | |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 279 | idx = 0; |
| 280 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 281 | } while (1); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 282 | } |
| 283 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 284 | static int write_and_get_response(mbedtls_net_context *sock_fd, unsigned char *buf, size_t len) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 285 | { |
| 286 | int ret; |
| 287 | unsigned char data[128]; |
| 288 | char code[4]; |
| 289 | size_t i, idx = 0; |
| 290 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 291 | mbedtls_printf("\n%s", buf); |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 292 | if (len && (ret = mbedtls_net_send(sock_fd, buf, len)) <= 0) { |
| 293 | mbedtls_printf(" failed\n ! mbedtls_net_send returned %d\n\n", ret); |
| 294 | return -1; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 295 | } |
| 296 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 297 | do { |
| 298 | len = sizeof(data) - 1; |
| 299 | memset(data, 0, sizeof(data)); |
| 300 | ret = mbedtls_net_recv(sock_fd, data, len); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 301 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 302 | if (ret <= 0) { |
| 303 | mbedtls_printf("failed\n ! mbedtls_net_recv returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 304 | return -1; |
| 305 | } |
| 306 | |
Paul Bakker | df71dd1 | 2014-04-17 16:03:48 +0200 | [diff] [blame] | 307 | data[len] = '\0'; |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 308 | mbedtls_printf("\n%s", data); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 309 | len = ret; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 310 | for (i = 0; i < len; i++) { |
| 311 | if (data[i] != '\n') { |
| 312 | if (idx < 4) { |
| 313 | code[idx++] = data[i]; |
| 314 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 315 | continue; |
| 316 | } |
| 317 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 318 | if (idx == 4 && code[0] >= '0' && code[0] <= '9' && code[3] == ' ') { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 319 | code[3] = '\0'; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 320 | return atoi(code); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 321 | } |
Manuel Pégourié-Gonnard | 6c5abfa | 2015-02-13 14:12:07 +0000 | [diff] [blame] | 322 | |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 323 | idx = 0; |
| 324 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 325 | } while (1); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 326 | } |
| 327 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 328 | int main(int argc, char *argv[]) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 329 | { |
Andres Amaya Garcia | 67a42ac | 2018-04-29 21:04:29 +0100 | [diff] [blame] | 330 | int ret = 1, len; |
| 331 | int exit_code = MBEDTLS_EXIT_FAILURE; |
Manuel Pégourié-Gonnard | 5db6432 | 2015-06-30 15:40:39 +0200 | [diff] [blame] | 332 | mbedtls_net_context server_fd; |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 333 | #if defined(MBEDTLS_BASE64_C) |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 334 | unsigned char base[1024]; |
Mohammad Azim Khan | 9ebdcff | 2018-08-06 11:48:06 +0100 | [diff] [blame] | 335 | /* buf is used as the destination buffer for printing base with the format: |
| 336 | * "%s\r\n". Hence, the size of buf should be at least the size of base |
| 337 | * plus 2 bytes for the \r and \n characters. |
| 338 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 339 | unsigned char buf[sizeof(base) + 2]; |
Mohammad Azim Khan | 9ebdcff | 2018-08-06 11:48:06 +0100 | [diff] [blame] | 340 | #else |
| 341 | unsigned char buf[1024]; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 342 | #endif |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 343 | char hostname[32]; |
Paul Bakker | ef3f8c7 | 2013-06-24 13:01:08 +0200 | [diff] [blame] | 344 | const char *pers = "ssl_mail_client"; |
Paul Bakker | 508ad5a | 2011-12-04 17:09:26 +0000 | [diff] [blame] | 345 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 346 | mbedtls_entropy_context entropy; |
| 347 | mbedtls_ctr_drbg_context ctr_drbg; |
| 348 | mbedtls_ssl_context ssl; |
Manuel Pégourié-Gonnard | def0bbe | 2015-05-04 14:56:36 +0200 | [diff] [blame] | 349 | mbedtls_ssl_config conf; |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 350 | mbedtls_x509_crt cacert; |
| 351 | mbedtls_x509_crt clicert; |
| 352 | mbedtls_pk_context pkey; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 353 | int i; |
Paul Bakker | 819370c | 2012-09-28 07:04:41 +0000 | [diff] [blame] | 354 | size_t n; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 355 | char *p, *q; |
| 356 | const int *list; |
| 357 | |
| 358 | /* |
Manuel Pégourié-Gonnard | 3bd2aae | 2013-09-20 13:10:13 +0200 | [diff] [blame] | 359 | * Make sure memory references are valid in case we exit early. |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 360 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 361 | mbedtls_net_init(&server_fd); |
| 362 | mbedtls_ssl_init(&ssl); |
| 363 | mbedtls_ssl_config_init(&conf); |
| 364 | memset(&buf, 0, sizeof(buf)); |
| 365 | mbedtls_x509_crt_init(&cacert); |
| 366 | mbedtls_x509_crt_init(&clicert); |
| 367 | mbedtls_pk_init(&pkey); |
| 368 | mbedtls_ctr_drbg_init(&ctr_drbg); |
Przemek Stekiel | b00688f | 2023-04-17 11:10:05 +0200 | [diff] [blame^] | 369 | mbedtls_entropy_init(&entropy); |
| 370 | |
| 371 | #if defined(MBEDTLS_USE_PSA_CRYPTO) |
| 372 | psa_status_t status = psa_crypto_init(); |
| 373 | if (status != PSA_SUCCESS) { |
| 374 | mbedtls_fprintf(stderr, "Failed to initialize PSA Crypto implementation: %d\n", |
| 375 | (int) status); |
| 376 | goto exit; |
| 377 | } |
| 378 | #endif /* MBEDTLS_USE_PSA_CRYPTO */ |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 379 | |
Aditya Deshpande | 0504ac2 | 2023-01-30 15:58:50 +0000 | [diff] [blame] | 380 | if (argc < 2) { |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 381 | usage: |
| 382 | mbedtls_printf(USAGE); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 383 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 384 | list = mbedtls_ssl_list_ciphersuites(); |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 385 | while (*list) { |
| 386 | mbedtls_printf(" %s\n", mbedtls_ssl_get_ciphersuite_name(*list)); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 387 | list++; |
| 388 | } |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 389 | mbedtls_printf("\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 390 | goto exit; |
| 391 | } |
| 392 | |
| 393 | opt.server_name = DFL_SERVER_NAME; |
| 394 | opt.server_port = DFL_SERVER_PORT; |
| 395 | opt.debug_level = DFL_DEBUG_LEVEL; |
| 396 | opt.authentication = DFL_AUTHENTICATION; |
| 397 | opt.mode = DFL_MODE; |
| 398 | opt.user_name = DFL_USER_NAME; |
| 399 | opt.user_pwd = DFL_USER_PWD; |
| 400 | opt.mail_from = DFL_MAIL_FROM; |
| 401 | opt.mail_to = DFL_MAIL_TO; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 402 | opt.ca_file = DFL_CA_FILE; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 403 | opt.crt_file = DFL_CRT_FILE; |
| 404 | opt.key_file = DFL_KEY_FILE; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 405 | opt.force_ciphersuite[0] = DFL_FORCE_CIPHER; |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 406 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 407 | for (i = 1; i < argc; i++) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 408 | p = argv[i]; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 409 | if ((q = strchr(p, '=')) == NULL) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 410 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 411 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 412 | *q++ = '\0'; |
| 413 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 414 | if (strcmp(p, "server_name") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 415 | opt.server_name = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 416 | } else if (strcmp(p, "server_port") == 0) { |
Manuel Pégourié-Gonnard | c0d7494 | 2015-06-23 12:30:57 +0200 | [diff] [blame] | 417 | opt.server_port = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 418 | } else if (strcmp(p, "debug_level") == 0) { |
| 419 | opt.debug_level = atoi(q); |
| 420 | if (opt.debug_level < 0 || opt.debug_level > 65535) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 421 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 422 | } |
| 423 | } else if (strcmp(p, "authentication") == 0) { |
| 424 | opt.authentication = atoi(q); |
| 425 | if (opt.authentication < 0 || opt.authentication > 1) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 426 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 427 | } |
| 428 | } else if (strcmp(p, "mode") == 0) { |
| 429 | opt.mode = atoi(q); |
| 430 | if (opt.mode < 0 || opt.mode > 1) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 431 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 432 | } |
| 433 | } else if (strcmp(p, "user_name") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 434 | opt.user_name = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 435 | } else if (strcmp(p, "user_pwd") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 436 | opt.user_pwd = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 437 | } else if (strcmp(p, "mail_from") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 438 | opt.mail_from = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 439 | } else if (strcmp(p, "mail_to") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 440 | opt.mail_to = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 441 | } else if (strcmp(p, "ca_file") == 0) { |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 442 | opt.ca_file = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 443 | } else if (strcmp(p, "crt_file") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 444 | opt.crt_file = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 445 | } else if (strcmp(p, "key_file") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 446 | opt.key_file = q; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 447 | } else if (strcmp(p, "force_ciphersuite") == 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 448 | opt.force_ciphersuite[0] = -1; |
| 449 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 450 | opt.force_ciphersuite[0] = mbedtls_ssl_get_ciphersuite_id(q); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 451 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 452 | if (opt.force_ciphersuite[0] <= 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 453 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 454 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 455 | |
| 456 | opt.force_ciphersuite[1] = 0; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 457 | } else { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 458 | goto usage; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 459 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 460 | } |
| 461 | |
| 462 | /* |
| 463 | * 0. Initialize the RNG and the session data |
| 464 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 465 | mbedtls_printf("\n . Seeding the random number generator..."); |
| 466 | fflush(stdout); |
Paul Bakker | 508ad5a | 2011-12-04 17:09:26 +0000 | [diff] [blame] | 467 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 468 | if ((ret = mbedtls_ctr_drbg_seed(&ctr_drbg, mbedtls_entropy_func, &entropy, |
| 469 | (const unsigned char *) pers, |
| 470 | strlen(pers))) != 0) { |
| 471 | mbedtls_printf(" failed\n ! mbedtls_ctr_drbg_seed returned %d\n", ret); |
Paul Bakker | 508ad5a | 2011-12-04 17:09:26 +0000 | [diff] [blame] | 472 | goto exit; |
| 473 | } |
| 474 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 475 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 476 | |
| 477 | /* |
| 478 | * 1.1. Load the trusted CA |
| 479 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 480 | mbedtls_printf(" . Loading the CA root certificate ..."); |
| 481 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 482 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 483 | #if defined(MBEDTLS_FS_IO) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 484 | if (strlen(opt.ca_file)) { |
| 485 | ret = mbedtls_x509_crt_parse_file(&cacert, opt.ca_file); |
| 486 | } else |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 487 | #endif |
Andres AG | cef21e4 | 2017-02-02 17:01:10 +0000 | [diff] [blame] | 488 | #if defined(MBEDTLS_CERTS_C) && defined(MBEDTLS_PEM_PARSE_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 489 | ret = mbedtls_x509_crt_parse(&cacert, (const unsigned char *) mbedtls_test_cas_pem, |
| 490 | mbedtls_test_cas_pem_len); |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 491 | #else |
| 492 | { |
Andres AG | cef21e4 | 2017-02-02 17:01:10 +0000 | [diff] [blame] | 493 | mbedtls_printf("MBEDTLS_CERTS_C and/or MBEDTLS_PEM_PARSE_C not defined."); |
Andres Amaya Garcia | 67a42ac | 2018-04-29 21:04:29 +0100 | [diff] [blame] | 494 | goto exit; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 495 | } |
| 496 | #endif |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 497 | if (ret < 0) { |
| 498 | mbedtls_printf(" failed\n ! mbedtls_x509_crt_parse returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 499 | goto exit; |
| 500 | } |
| 501 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 502 | mbedtls_printf(" ok (%d skipped)\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 503 | |
| 504 | /* |
| 505 | * 1.2. Load own certificate and private key |
| 506 | * |
| 507 | * (can be skipped if client authentication is not required) |
| 508 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 509 | mbedtls_printf(" . Loading the client cert. and key..."); |
| 510 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 511 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 512 | #if defined(MBEDTLS_FS_IO) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 513 | if (strlen(opt.crt_file)) { |
| 514 | ret = mbedtls_x509_crt_parse_file(&clicert, opt.crt_file); |
| 515 | } else |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 516 | #endif |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 517 | #if defined(MBEDTLS_CERTS_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 518 | ret = mbedtls_x509_crt_parse(&clicert, (const unsigned char *) mbedtls_test_cli_crt, |
| 519 | mbedtls_test_cli_crt_len); |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 520 | #else |
| 521 | { |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 522 | mbedtls_printf("MBEDTLS_CERTS_C not defined."); |
Andres Amaya Garcia | 67a42ac | 2018-04-29 21:04:29 +0100 | [diff] [blame] | 523 | goto exit; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 524 | } |
| 525 | #endif |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 526 | if (ret != 0) { |
| 527 | mbedtls_printf(" failed\n ! mbedtls_x509_crt_parse returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 528 | goto exit; |
| 529 | } |
| 530 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 531 | #if defined(MBEDTLS_FS_IO) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 532 | if (strlen(opt.key_file)) { |
| 533 | ret = mbedtls_pk_parse_keyfile(&pkey, opt.key_file, ""); |
| 534 | } else |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 535 | #endif |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 536 | #if defined(MBEDTLS_CERTS_C) && defined(MBEDTLS_PEM_PARSE_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 537 | ret = mbedtls_pk_parse_key(&pkey, (const unsigned char *) mbedtls_test_cli_key, |
| 538 | mbedtls_test_cli_key_len, NULL, 0); |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 539 | #else |
| 540 | { |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 541 | mbedtls_printf("MBEDTLS_CERTS_C or MBEDTLS_PEM_PARSE_C not defined."); |
Andres Amaya Garcia | 67a42ac | 2018-04-29 21:04:29 +0100 | [diff] [blame] | 542 | goto exit; |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 543 | } |
| 544 | #endif |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 545 | if (ret != 0) { |
| 546 | mbedtls_printf(" failed\n ! mbedtls_pk_parse_key returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 547 | goto exit; |
| 548 | } |
| 549 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 550 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 551 | |
| 552 | /* |
| 553 | * 2. Start the connection |
| 554 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 555 | mbedtls_printf(" . Connecting to tcp/%s/%s...", opt.server_name, |
| 556 | opt.server_port); |
| 557 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 558 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 559 | if ((ret = mbedtls_net_connect(&server_fd, opt.server_name, |
| 560 | opt.server_port, MBEDTLS_NET_PROTO_TCP)) != 0) { |
| 561 | mbedtls_printf(" failed\n ! mbedtls_net_connect returned %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 562 | goto exit; |
| 563 | } |
| 564 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 565 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 566 | |
| 567 | /* |
| 568 | * 3. Setup stuff |
| 569 | */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 570 | mbedtls_printf(" . Setting up the SSL/TLS structure..."); |
| 571 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 572 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 573 | if ((ret = mbedtls_ssl_config_defaults(&conf, |
| 574 | MBEDTLS_SSL_IS_CLIENT, |
| 575 | MBEDTLS_SSL_TRANSPORT_STREAM, |
| 576 | MBEDTLS_SSL_PRESET_DEFAULT)) != 0) { |
| 577 | mbedtls_printf(" failed\n ! mbedtls_ssl_config_defaults returned %d\n\n", ret); |
Manuel Pégourié-Gonnard | def0bbe | 2015-05-04 14:56:36 +0200 | [diff] [blame] | 578 | goto exit; |
| 579 | } |
| 580 | |
Manuel Pégourié-Gonnard | fcf2fc2 | 2014-03-11 11:10:27 +0100 | [diff] [blame] | 581 | /* OPTIONAL is not optimal for security, |
| 582 | * but makes interop easier in this simplified example */ |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 583 | mbedtls_ssl_conf_authmode(&conf, MBEDTLS_SSL_VERIFY_OPTIONAL); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 584 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 585 | mbedtls_ssl_conf_rng(&conf, mbedtls_ctr_drbg_random, &ctr_drbg); |
| 586 | mbedtls_ssl_conf_dbg(&conf, my_debug, stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 587 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 588 | if (opt.force_ciphersuite[0] != DFL_FORCE_CIPHER) { |
| 589 | mbedtls_ssl_conf_ciphersuites(&conf, opt.force_ciphersuite); |
| 590 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 591 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 592 | mbedtls_ssl_conf_ca_chain(&conf, &cacert, NULL); |
| 593 | if ((ret = mbedtls_ssl_conf_own_cert(&conf, &clicert, &pkey)) != 0) { |
| 594 | mbedtls_printf(" failed\n ! mbedtls_ssl_conf_own_cert returned %d\n\n", ret); |
Manuel Pégourié-Gonnard | c5fd391 | 2014-07-08 14:05:52 +0200 | [diff] [blame] | 595 | goto exit; |
| 596 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 597 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 598 | if ((ret = mbedtls_ssl_setup(&ssl, &conf)) != 0) { |
| 599 | mbedtls_printf(" failed\n ! mbedtls_ssl_setup returned %d\n\n", ret); |
Manuel Pégourié-Gonnard | 06939ce | 2015-05-11 11:25:46 +0200 | [diff] [blame] | 600 | goto exit; |
| 601 | } |
| 602 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 603 | if ((ret = mbedtls_ssl_set_hostname(&ssl, opt.server_name)) != 0) { |
| 604 | mbedtls_printf(" failed\n ! mbedtls_ssl_set_hostname returned %d\n\n", ret); |
Manuel Pégourié-Gonnard | c5fd391 | 2014-07-08 14:05:52 +0200 | [diff] [blame] | 605 | goto exit; |
| 606 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 607 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 608 | mbedtls_ssl_set_bio(&ssl, &server_fd, mbedtls_net_send, mbedtls_net_recv, NULL); |
Manuel Pégourié-Gonnard | 06939ce | 2015-05-11 11:25:46 +0200 | [diff] [blame] | 609 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 610 | mbedtls_printf(" ok\n"); |
Manuel Pégourié-Gonnard | 06939ce | 2015-05-11 11:25:46 +0200 | [diff] [blame] | 611 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 612 | if (opt.mode == MODE_SSL_TLS) { |
| 613 | if (do_handshake(&ssl) != 0) { |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 614 | goto exit; |
| 615 | } |
| 616 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 617 | mbedtls_printf(" > Get header from server:"); |
| 618 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 619 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 620 | ret = write_ssl_and_get_response(&ssl, buf, 0); |
| 621 | if (ret < 200 || ret > 299) { |
| 622 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 623 | goto exit; |
| 624 | } |
| 625 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 626 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 627 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 628 | mbedtls_printf(" > Write EHLO to server:"); |
| 629 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 630 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 631 | gethostname(hostname, 32); |
| 632 | len = sprintf((char *) buf, "EHLO %s\r\n", hostname); |
| 633 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 634 | if (ret < 200 || ret > 299) { |
| 635 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
| 636 | goto exit; |
| 637 | } |
| 638 | } else { |
| 639 | mbedtls_printf(" > Get header from server:"); |
| 640 | fflush(stdout); |
| 641 | |
| 642 | ret = write_and_get_response(&server_fd, buf, 0); |
| 643 | if (ret < 200 || ret > 299) { |
| 644 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 645 | goto exit; |
| 646 | } |
| 647 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 648 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 649 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 650 | mbedtls_printf(" > Write EHLO to server:"); |
| 651 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 652 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 653 | gethostname(hostname, 32); |
| 654 | len = sprintf((char *) buf, "EHLO %s\r\n", hostname); |
| 655 | ret = write_and_get_response(&server_fd, buf, len); |
| 656 | if (ret < 200 || ret > 299) { |
| 657 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 658 | goto exit; |
| 659 | } |
| 660 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 661 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 662 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 663 | mbedtls_printf(" > Write STARTTLS to server:"); |
| 664 | fflush(stdout); |
| 665 | |
| 666 | gethostname(hostname, 32); |
| 667 | len = sprintf((char *) buf, "STARTTLS\r\n"); |
| 668 | ret = write_and_get_response(&server_fd, buf, len); |
| 669 | if (ret < 200 || ret > 299) { |
| 670 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 671 | goto exit; |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 672 | } |
| 673 | |
| 674 | mbedtls_printf(" ok\n"); |
| 675 | |
| 676 | if (do_handshake(&ssl) != 0) { |
| 677 | goto exit; |
| 678 | } |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 679 | } |
| 680 | |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 681 | #if defined(MBEDTLS_BASE64_C) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 682 | if (opt.authentication) { |
| 683 | mbedtls_printf(" > Write AUTH LOGIN to server:"); |
| 684 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 685 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 686 | len = sprintf((char *) buf, "AUTH LOGIN\r\n"); |
| 687 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 688 | if (ret < 200 || ret > 399) { |
| 689 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 690 | goto exit; |
| 691 | } |
| 692 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 693 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 694 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 695 | mbedtls_printf(" > Write username to server: %s", opt.user_name); |
| 696 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 697 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 698 | ret = mbedtls_base64_encode(base, sizeof(base), &n, (const unsigned char *) opt.user_name, |
| 699 | strlen(opt.user_name)); |
Alfred Klomp | 7c03424 | 2014-07-14 22:11:13 +0200 | [diff] [blame] | 700 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 701 | if (ret != 0) { |
| 702 | mbedtls_printf(" failed\n ! mbedtls_base64_encode returned %d\n\n", ret); |
Alfred Klomp | 7c03424 | 2014-07-14 22:11:13 +0200 | [diff] [blame] | 703 | goto exit; |
| 704 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 705 | len = sprintf((char *) buf, "%s\r\n", base); |
| 706 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 707 | if (ret < 300 || ret > 399) { |
| 708 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 709 | goto exit; |
| 710 | } |
| 711 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 712 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 713 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 714 | mbedtls_printf(" > Write password to server: %s", opt.user_pwd); |
| 715 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 716 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 717 | ret = mbedtls_base64_encode(base, sizeof(base), &n, (const unsigned char *) opt.user_pwd, |
| 718 | strlen(opt.user_pwd)); |
Alfred Klomp | 7c03424 | 2014-07-14 22:11:13 +0200 | [diff] [blame] | 719 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 720 | if (ret != 0) { |
| 721 | mbedtls_printf(" failed\n ! mbedtls_base64_encode returned %d\n\n", ret); |
Alfred Klomp | 7c03424 | 2014-07-14 22:11:13 +0200 | [diff] [blame] | 722 | goto exit; |
| 723 | } |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 724 | len = sprintf((char *) buf, "%s\r\n", base); |
| 725 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 726 | if (ret < 200 || ret > 399) { |
| 727 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 728 | goto exit; |
| 729 | } |
| 730 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 731 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 732 | } |
Paul Bakker | 5690efc | 2011-05-26 13:16:06 +0000 | [diff] [blame] | 733 | #endif |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 734 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 735 | mbedtls_printf(" > Write MAIL FROM to server:"); |
| 736 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 737 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 738 | len = sprintf((char *) buf, "MAIL FROM:<%s>\r\n", opt.mail_from); |
| 739 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 740 | if (ret < 200 || ret > 299) { |
| 741 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 742 | goto exit; |
| 743 | } |
| 744 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 745 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 746 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 747 | mbedtls_printf(" > Write RCPT TO to server:"); |
| 748 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 749 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 750 | len = sprintf((char *) buf, "RCPT TO:<%s>\r\n", opt.mail_to); |
| 751 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 752 | if (ret < 200 || ret > 299) { |
| 753 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 754 | goto exit; |
| 755 | } |
| 756 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 757 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 758 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 759 | mbedtls_printf(" > Write DATA to server:"); |
| 760 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 761 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 762 | len = sprintf((char *) buf, "DATA\r\n"); |
| 763 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 764 | if (ret < 300 || ret > 399) { |
| 765 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 766 | goto exit; |
| 767 | } |
| 768 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 769 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 770 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 771 | mbedtls_printf(" > Write content to server:"); |
| 772 | fflush(stdout); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 773 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 774 | len = sprintf((char *) buf, "From: %s\r\nSubject: mbed TLS Test mail\r\n\r\n" |
| 775 | "This is a simple test mail from the " |
| 776 | "mbed TLS mail client example.\r\n" |
| 777 | "\r\n" |
| 778 | "Enjoy!", opt.mail_from); |
| 779 | ret = write_ssl_data(&ssl, buf, len); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 780 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 781 | len = sprintf((char *) buf, "\r\n.\r\n"); |
| 782 | ret = write_ssl_and_get_response(&ssl, buf, len); |
| 783 | if (ret < 200 || ret > 299) { |
| 784 | mbedtls_printf(" failed\n ! server responded with %d\n\n", ret); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 785 | goto exit; |
| 786 | } |
| 787 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 788 | mbedtls_printf(" ok\n"); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 789 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 790 | mbedtls_ssl_close_notify(&ssl); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 791 | |
Andres Amaya Garcia | 67a42ac | 2018-04-29 21:04:29 +0100 | [diff] [blame] | 792 | exit_code = MBEDTLS_EXIT_SUCCESS; |
| 793 | |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 794 | exit: |
| 795 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 796 | mbedtls_net_free(&server_fd); |
| 797 | mbedtls_x509_crt_free(&clicert); |
| 798 | mbedtls_x509_crt_free(&cacert); |
| 799 | mbedtls_pk_free(&pkey); |
| 800 | mbedtls_ssl_free(&ssl); |
| 801 | mbedtls_ssl_config_free(&conf); |
| 802 | mbedtls_ctr_drbg_free(&ctr_drbg); |
| 803 | mbedtls_entropy_free(&entropy); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 804 | |
Paul Bakker | cce9d77 | 2011-11-18 14:26:47 +0000 | [diff] [blame] | 805 | #if defined(_WIN32) |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 806 | mbedtls_printf(" + Press Enter to exit this program.\n"); |
| 807 | fflush(stdout); getchar(); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 808 | #endif |
| 809 | |
Gilles Peskine | 1b6c09a | 2023-01-11 14:52:35 +0100 | [diff] [blame] | 810 | mbedtls_exit(exit_code); |
Paul Bakker | 1496d38 | 2011-05-23 12:07:29 +0000 | [diff] [blame] | 811 | } |
Manuel Pégourié-Gonnard | 2cf5a7c | 2015-04-08 12:49:31 +0200 | [diff] [blame] | 812 | #endif /* MBEDTLS_BIGNUM_C && MBEDTLS_ENTROPY_C && MBEDTLS_SSL_TLS_C && |
| 813 | MBEDTLS_SSL_CLI_C && MBEDTLS_NET_C && MBEDTLS_RSA_C ** |
| 814 | MBEDTLS_CTR_DRBG_C */ |