2 * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
4 * Permission is hereby granted, free of charge, to any person obtaining
5 * a copy of this software and associated documentation files (the
6 * "Software"), to deal in the Software without restriction, including
7 * without limitation the rights to use, copy, modify, merge, publish,
8 * distribute, sublicense, and/or sell copies of the Software, and to
9 * permit persons to whom the Software is furnished to do so, subject to
10 * the following conditions:
12 * The above copyright notice and this permission notice shall be
13 * included in all copies or substantial portions of the Software.
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
16 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
18 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
19 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
20 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
21 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
32 #include <sys/types.h>
33 #include <sys/socket.h>
35 #include <netinet/in.h>
36 #include <arpa/inet.h>
44 host_connect(const char *host
, const char *port
, int verbose
)
46 struct addrinfo hints
, *si
, *p
;
50 memset(&hints
, 0, sizeof hints
);
51 hints
.ai_family
= PF_UNSPEC
;
52 hints
.ai_socktype
= SOCK_STREAM
;
53 err
= getaddrinfo(host
, port
, &hints
, &si
);
55 fprintf(stderr
, "ERROR: getaddrinfo(): %s\n",
60 for (p
= si
; p
!= NULL
; p
= p
->ai_next
) {
64 char tmp
[INET6_ADDRSTRLEN
+ 50];
66 sa
= (struct sockaddr
*)p
->ai_addr
;
67 if (sa
->sa_family
== AF_INET
) {
68 addr
= &((struct sockaddr_in
*)sa
)->sin_addr
;
69 } else if (sa
->sa_family
== AF_INET6
) {
70 addr
= &((struct sockaddr_in6
*)sa
)->sin6_addr
;
75 if (!inet_ntop(p
->ai_family
, addr
,
78 strcpy(tmp
, "<invalid>");
81 sprintf(tmp
, "<unknown family: %d>",
84 fprintf(stderr
, "connecting to: %s\n", tmp
);
86 fd
= socket(p
->ai_family
, p
->ai_socktype
, p
->ai_protocol
);
93 if (connect(fd
, p
->ai_addr
, p
->ai_addrlen
) < 0) {
104 fprintf(stderr
, "ERROR: failed to connect\n");
109 fprintf(stderr
, "connected.\n");
113 * We make the socket non-blocking, since we are going to use
114 * poll() to organise I/O.
116 fcntl(fd
, F_SETFL
, O_NONBLOCK
);
124 "usage: brssl client server[:port] [ options ]\n");
128 " -q suppress verbose messages\n");
130 " -trace activate extra debug messages (dump of all packets)\n");
132 " -sni name use this specific name for SNI\n");
134 " -nosni do not send any SNI\n");
136 " -mono use monodirectional buffering\n");
138 " -buf length set the I/O buffer length (in bytes)\n");
140 " -CA file add certificates in 'file' to trust anchors\n");
142 " -list list supported names (protocols, algorithms...)\n");
144 " -vmin name set minimum supported version (default: TLS-1.0)\n");
146 " -vmax name set maximum supported version (default: TLS-1.2)\n");
148 " -cs names set list of supported cipher suites (comma-separated)\n");
150 " -hf names add support for some hash functions (comma-separated)\n");
152 " -minhello len set minimum ClientHello length (in bytes)\n");
154 " -fallback send the TLS_FALLBACK_SCSV (i.e. claim a downgrade)\n");
159 do_client(int argc
, char *argv
[])
165 const char *server_name
;
169 anchor_list anchors
= VEC_INIT
;
171 cipher_suite
*suites
;
176 br_ssl_client_context cc
;
177 br_x509_minimal_context xc
;
178 x509_noanchor_context xwc
;
179 const br_hash_class
*dnhash
;
180 unsigned char *iobuf
;
202 minhello_len
= (size_t)-1;
205 for (i
= 0; i
< argc
; i
++) {
210 if (server_name
!= NULL
) {
212 "ERROR: duplicate server name\n");
214 goto client_exit_error
;
219 if (eqstr(arg
, "-v") || eqstr(arg
, "-verbose")) {
221 } else if (eqstr(arg
, "-q") || eqstr(arg
, "-quiet")) {
223 } else if (eqstr(arg
, "-trace")) {
225 } else if (eqstr(arg
, "-sni")) {
228 "ERROR: no argument for '-sni'\n");
230 goto client_exit_error
;
233 fprintf(stderr
, "ERROR: duplicate SNI\n");
235 goto client_exit_error
;
238 } else if (eqstr(arg
, "-nosni")) {
240 fprintf(stderr
, "ERROR: duplicate SNI\n");
242 goto client_exit_error
;
245 } else if (eqstr(arg
, "-mono")) {
247 } else if (eqstr(arg
, "-buf")) {
250 "ERROR: no argument for '-buf'\n");
252 goto client_exit_error
;
255 if (iobuf_len
!= 0) {
257 "ERROR: duplicate I/O buffer length\n");
259 goto client_exit_error
;
261 iobuf_len
= parse_size(arg
);
262 if (iobuf_len
== (size_t)-1) {
264 goto client_exit_error
;
266 } else if (eqstr(arg
, "-CA")) {
269 "ERROR: no argument for '-CA'\n");
271 goto client_exit_error
;
274 if (read_trust_anchors(&anchors
, arg
) == 0) {
276 goto client_exit_error
;
278 } else if (eqstr(arg
, "-list")) {
281 } else if (eqstr(arg
, "-vmin")) {
284 "ERROR: no argument for '-vmin'\n");
286 goto client_exit_error
;
291 "ERROR: duplicate minimum version\n");
293 goto client_exit_error
;
295 vmin
= parse_version(arg
, strlen(arg
));
298 "ERROR: unrecognised version '%s'\n",
301 goto client_exit_error
;
303 } else if (eqstr(arg
, "-vmax")) {
306 "ERROR: no argument for '-vmax'\n");
308 goto client_exit_error
;
313 "ERROR: duplicate maximum version\n");
315 goto client_exit_error
;
317 vmax
= parse_version(arg
, strlen(arg
));
320 "ERROR: unrecognised version '%s'\n",
323 goto client_exit_error
;
325 } else if (eqstr(arg
, "-cs")) {
328 "ERROR: no argument for '-cs'\n");
330 goto client_exit_error
;
333 if (suites
!= NULL
) {
334 fprintf(stderr
, "ERROR: duplicate list"
335 " of cipher suites\n");
337 goto client_exit_error
;
339 suites
= parse_suites(arg
, &num_suites
);
340 if (suites
== NULL
) {
342 goto client_exit_error
;
344 } else if (eqstr(arg
, "-hf")) {
349 "ERROR: no argument for '-hf'\n");
351 goto client_exit_error
;
354 x
= parse_hash_functions(arg
);
357 goto client_exit_error
;
360 } else if (eqstr(arg
, "-minhello")) {
363 "ERROR: no argument for '-minhello'\n");
365 goto client_exit_error
;
368 if (minhello_len
!= (size_t)-1) {
369 fprintf(stderr
, "ERROR: duplicate minium"
370 " ClientHello length\n");
372 goto client_exit_error
;
374 minhello_len
= parse_size(arg
);
376 * Minimum ClientHello length must fit on 16 bits.
378 if (minhello_len
== (size_t)-1
379 || (((minhello_len
>> 12) >> 4) != 0))
382 goto client_exit_error
;
384 } else if (eqstr(arg
, "-fallback")) {
387 fprintf(stderr
, "ERROR: unknown option: '%s'\n", arg
);
389 goto client_exit_error
;
392 if (server_name
== NULL
) {
393 fprintf(stderr
, "ERROR: no server name/address provided\n");
395 goto client_exit_error
;
397 for (u
= strlen(server_name
); u
> 0; u
--) {
398 int c
= server_name
[u
- 1];
402 if (c
< '0' || c
> '9') {
408 host
= xstrdup(server_name
);
411 port
= xstrdup(server_name
+ u
);
413 memcpy(host
, server_name
, u
- 1);
427 fprintf(stderr
, "ERROR: impossible minimum/maximum protocol"
428 " version combination\n");
430 goto client_exit_error
;
432 if (suites
== NULL
) {
435 for (u
= 0; cipher_suites
[u
].name
; u
++) {
436 if ((cipher_suites
[u
].req
& REQ_TLS12
) == 0
442 suites
= xmalloc(num_suites
* sizeof *suites
);
444 for (u
= 0; cipher_suites
[u
].name
; u
++) {
445 if ((cipher_suites
[u
].req
& REQ_TLS12
) == 0
448 suites
[num_suites
++] = cipher_suites
[u
];
453 hfuns
= (unsigned)-1;
455 if (iobuf_len
== 0) {
457 iobuf_len
= BR_SSL_BUFSIZE_BIDI
;
459 iobuf_len
= BR_SSL_BUFSIZE_MONO
;
462 iobuf
= xmalloc(iobuf_len
);
465 * Compute implementation requirements and inject implementations.
467 suite_ids
= xmalloc((num_suites
+ 1) * sizeof *suite_ids
);
468 br_ssl_client_zero(&cc
);
469 br_ssl_engine_set_versions(&cc
.eng
, vmin
, vmax
);
471 for (u
= 0; hash_functions
[u
].name
; u
++) {
472 const br_hash_class
*hc
;
475 hc
= hash_functions
[u
].hclass
;
476 id
= (hc
->desc
>> BR_HASHDESC_ID_OFF
) & BR_HASHDESC_ID_MASK
;
477 if ((hfuns
& ((unsigned)1 << id
)) != 0) {
481 if (dnhash
== NULL
) {
482 fprintf(stderr
, "ERROR: no supported hash function\n");
483 goto client_exit_error
;
485 br_x509_minimal_init(&xc
, dnhash
,
486 &VEC_ELT(anchors
, 0), VEC_LEN(anchors
));
487 if (vmin
<= BR_TLS11
) {
488 if (!(hfuns
& (1 << br_md5_ID
))) {
489 fprintf(stderr
, "ERROR: TLS 1.0 and 1.1 need MD5\n");
490 goto client_exit_error
;
492 if (!(hfuns
& (1 << br_sha1_ID
))) {
493 fprintf(stderr
, "ERROR: TLS 1.0 and 1.1 need SHA-1\n");
494 goto client_exit_error
;
497 for (u
= 0; u
< num_suites
; u
++) {
501 suite_ids
[u
] = suites
[u
].suite
;
502 if ((req
& REQ_TLS12
) != 0 && vmax
< BR_TLS12
) {
504 "ERROR: cipher suite %s requires TLS 1.2\n",
506 goto client_exit_error
;
508 if ((req
& REQ_SHA1
) != 0 && !(hfuns
& (1 << br_sha1_ID
))) {
510 "ERROR: cipher suite %s requires SHA-1\n",
512 goto client_exit_error
;
514 if ((req
& REQ_SHA256
) != 0 && !(hfuns
& (1 << br_sha256_ID
))) {
516 "ERROR: cipher suite %s requires SHA-256\n",
518 goto client_exit_error
;
520 if ((req
& REQ_SHA384
) != 0 && !(hfuns
& (1 << br_sha384_ID
))) {
522 "ERROR: cipher suite %s requires SHA-384\n",
524 goto client_exit_error
;
526 /* TODO: algorithm implementation selection */
527 if ((req
& REQ_AESCBC
) != 0) {
528 br_ssl_engine_set_aes_cbc(&cc
.eng
,
529 &br_aes_ct_cbcenc_vtable
,
530 &br_aes_ct_cbcdec_vtable
);
531 br_ssl_engine_set_cbc(&cc
.eng
,
532 &br_sslrec_in_cbc_vtable
,
533 &br_sslrec_out_cbc_vtable
);
535 if ((req
& REQ_AESGCM
) != 0) {
536 br_ssl_engine_set_aes_ctr(&cc
.eng
,
537 &br_aes_ct_ctr_vtable
);
538 br_ssl_engine_set_ghash(&cc
.eng
,
540 br_ssl_engine_set_gcm(&cc
.eng
,
541 &br_sslrec_in_gcm_vtable
,
542 &br_sslrec_out_gcm_vtable
);
544 if ((req
& REQ_3DESCBC
) != 0) {
545 br_ssl_engine_set_des_cbc(&cc
.eng
,
546 &br_des_ct_cbcenc_vtable
,
547 &br_des_ct_cbcdec_vtable
);
548 br_ssl_engine_set_cbc(&cc
.eng
,
549 &br_sslrec_in_cbc_vtable
,
550 &br_sslrec_out_cbc_vtable
);
552 if ((req
& REQ_RSAKEYX
) != 0) {
553 br_ssl_client_set_rsapub(&cc
, &br_rsa_i31_public
);
555 if ((req
& REQ_ECDHE_RSA
) != 0) {
556 br_ssl_engine_set_ec(&cc
.eng
, &br_ec_prime_i31
);
557 br_ssl_client_set_rsavrfy(&cc
, &br_rsa_i31_pkcs1_vrfy
);
559 if ((req
& REQ_ECDHE_ECDSA
) != 0) {
560 br_ssl_engine_set_ec(&cc
.eng
, &br_ec_prime_i31
);
561 br_ssl_client_set_ecdsa(&cc
, &br_ecdsa_i31_vrfy_asn1
);
563 if ((req
& REQ_ECDH
) != 0) {
564 br_ssl_engine_set_ec(&cc
.eng
, &br_ec_prime_i31
);
568 suite_ids
[num_suites
++] = 0x5600;
570 br_ssl_engine_set_suites(&cc
.eng
, suite_ids
, num_suites
);
572 for (u
= 0; hash_functions
[u
].name
; u
++) {
573 const br_hash_class
*hc
;
576 hc
= hash_functions
[u
].hclass
;
577 id
= (hc
->desc
>> BR_HASHDESC_ID_OFF
) & BR_HASHDESC_ID_MASK
;
578 if ((hfuns
& ((unsigned)1 << id
)) != 0) {
579 br_ssl_engine_set_hash(&cc
.eng
, id
, hc
);
580 br_x509_minimal_set_hash(&xc
, id
, hc
);
583 if (vmin
<= BR_TLS11
) {
584 br_ssl_engine_set_prf10(&cc
.eng
, &br_tls10_prf
);
586 if (vmax
>= BR_TLS12
) {
587 if ((hfuns
& ((unsigned)1 << br_sha256_ID
)) != 0) {
588 br_ssl_engine_set_prf_sha256(&cc
.eng
,
589 &br_tls12_sha256_prf
);
591 if ((hfuns
& ((unsigned)1 << br_sha384_ID
)) != 0) {
592 br_ssl_engine_set_prf_sha384(&cc
.eng
,
593 &br_tls12_sha384_prf
);
596 br_x509_minimal_set_rsa(&xc
, &br_rsa_i31_pkcs1_vrfy
);
597 br_x509_minimal_set_ecdsa(&xc
,
598 &br_ec_prime_i31
, &br_ecdsa_i31_vrfy_asn1
);
601 * If there is no provided trust anchor, then certificate validation
602 * will always fail. In that situation, we use our custom wrapper
603 * that tolerates unknown anchors.
605 if (VEC_LEN(anchors
) == 0) {
608 "WARNING: no configured trust anchor\n");
610 x509_noanchor_init(&xwc
, &xc
.vtable
);
611 br_ssl_engine_set_x509(&cc
.eng
, &xwc
.vtable
);
613 br_ssl_engine_set_x509(&cc
.eng
, &xc
.vtable
);
616 if (minhello_len
!= (size_t)-1) {
617 br_ssl_client_set_min_clienthello_len(&cc
, minhello_len
);
620 br_ssl_engine_set_buffer(&cc
.eng
, iobuf
, iobuf_len
, bidi
);
621 br_ssl_client_reset(&cc
, sni
, 0);
624 * We need to avoid SIGPIPE.
626 signal(SIGPIPE
, SIG_IGN
);
629 * Connect to the peer.
631 fd
= host_connect(host
, port
, verbose
);
633 goto client_exit_error
;
637 * Run the engine until completion.
639 if (run_ssl_engine(&cc
.eng
, fd
,
640 (verbose
? RUN_ENGINE_VERBOSE
: 0)
641 | (trace
? RUN_ENGINE_TRACE
: 0)) != 0)
643 goto client_exit_error
;
649 * Release allocated structures.
655 VEC_CLEAREXT(anchors
, &free_ta_contents
);