Mercurial > hg > nginx-quic
annotate contrib/geo2nginx.pl @ 7360:8f25a44d9add
SSL: logging level of "no suitable key share".
The "no suitable key share" errors are reported by OpenSSL 1.1.1 when
using TLSv1.3 if there are no shared groups (that is, elliptic curves).
In particular, it is easy enough to trigger by using only a single
curve in ssl_ecdh_curve:
ssl_ecdh_curve secp384r1;
and using a different curve in the client:
openssl s_client -connect 127.0.0.1:443 -curves prime256v1
On the client side it is seen as "sslv3 alert handshake failure",
"SSL alert number 40":
0:error:14094410:SSL routines:ssl3_read_bytes:sslv3 alert handshake failure:ssl/record/rec_layer_s3.c:1528:SSL alert number 40
It can be also triggered with default ssl_ecdh_curve by using a curve
which is not in the default list (X25519, prime256v1, X448, secp521r1,
secp384r1):
openssl s_client -connect 127.0.0.1:8443 -curves brainpoolP512r1
Given that many clients hardcode prime256v1, these errors might become
a common problem with TLSv1.3 if ssl_ecdh_curve is redefined. Previously
this resulted in not using ECDH with such clients, but with TLSv1.3 it
is no longer possible and will result in a handshake failure.
The SSL_R_NO_SHARED_GROUP error is what BoringSSL returns in the same
situation.
Seen at:
https://serverfault.com/questions/932102/nginx-ssl-handshake-error-no-suitable-key-share
| author | Maxim Dounin <mdounin@mdounin.ru> |
|---|---|
| date | Tue, 25 Sep 2018 13:59:53 +0300 |
| parents | c9ad0d9c7d59 |
| children |
| rev | line source |
|---|---|
| 537 | 1 #!/usr/bin/perl -w |
| 2 | |
| 3 # (c) Andrei Nigmatulin, 2005 | |
| 4 # | |
| 5 # this script provided "as is", without any warranties. use it at your own risk. | |
| 6 # | |
| 7 # special thanx to Andrew Sitnikov for perl port | |
| 8 # | |
| 9 # this script converts CSV geoip database (free download at http://www.maxmind.com/app/geoip_country) | |
| 10 # to format, suitable for use with nginx_http_geo module (http://sysoev.ru/nginx) | |
| 11 # | |
| 12 # for example, line with ip range | |
| 13 # | |
| 14 # "62.16.68.0","62.16.127.255","1041253376","1041268735","RU","Russian Federation" | |
| 15 # | |
| 16 # will be converted to four subnetworks: | |
| 17 # | |
| 18 # 62.16.68.0/22 RU; | |
| 19 # 62.16.72.0/21 RU; | |
| 20 # 62.16.80.0/20 RU; | |
| 21 # 62.16.96.0/19 RU; | |
| 22 | |
| 23 | |
| 24 use warnings; | |
| 25 use strict; | |
| 26 | |
| 27 while( <STDIN> ){ | |
| 28 if (/"[^"]+","[^"]+","([^"]+)","([^"]+)","([^"]+)"/){ | |
| 29 print_subnets($1, $2, $3); | |
| 30 } | |
| 31 } | |
| 32 | |
| 33 sub print_subnets { | |
| 34 my ($a1, $a2, $c) = @_; | |
| 35 my $l; | |
| 36 while ($a1 <= $a2) { | |
| 37 for ($l = 0; ($a1 & (1 << $l)) == 0 && ($a1 + ((1 << ($l + 1)) - 1)) <= $a2; $l++){}; | |
| 38 print long2ip($a1) . "/" . (32 - $l) . " " . $c . ";\n"; | |
| 39 $a1 += (1 << $l); | |
| 40 } | |
| 41 } | |
| 42 | |
| 43 sub long2ip { | |
| 44 my $ip = shift; | |
| 45 | |
| 46 my $str = 0; | |
| 47 | |
| 48 $str = ($ip & 255); | |
| 49 | |
| 50 $ip >>= 8; | |
| 51 $str = ($ip & 255).".$str"; | |
| 52 | |
| 53 $ip >>= 8; | |
| 54 $str = ($ip & 255).".$str"; | |
| 55 | |
| 56 $ip >>= 8; | |
| 57 $str = ($ip & 255).".$str"; | |
| 58 } |