diff options
author | Matt Caswell <matt@openssl.org> | 2017-12-05 10:16:25 +0000 |
---|---|---|
committer | Matt Caswell <matt@openssl.org> | 2017-12-14 15:06:37 +0000 |
commit | 426dfc9ff7c1afaf1ed5981a9c7846e310c7ae3e (patch) | |
tree | f3fbe2897ccb9fc9e506e6f0ff16b49dbd59a715 /util/perl | |
parent | e7dd763e513f576b8e4e32bb5d08abc37bb08a40 (diff) |
Send supported_versions in an HRR
Reviewed-by: Ben Kaduk <kaduk@mit.edu>
(Merged from https://github.com/openssl/openssl/pull/4701)
Diffstat (limited to 'util/perl')
-rw-r--r-- | util/perl/TLSProxy/ServerHello.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/util/perl/TLSProxy/ServerHello.pm b/util/perl/TLSProxy/ServerHello.pm index 693a652b6c..934eaf4dea 100644 --- a/util/perl/TLSProxy/ServerHello.pm +++ b/util/perl/TLSProxy/ServerHello.pm @@ -50,6 +50,7 @@ sub parse my $self = shift; my $ptr = 2; my ($server_version) = unpack('n', $self->data); + my $neg_version = $server_version; my $random = substr($self->data, $ptr, 32); $ptr += 32; @@ -94,15 +95,15 @@ sub parse $extension_data = substr($extension_data, 4 + $size); $extensions{$type} = $extdata; if ($type == TLSProxy::Message::EXT_SUPPORTED_VERSIONS) { - $server_version = unpack('n', $extdata); + $neg_version = unpack('n', $extdata); } } if ($random eq $hrrrandom) { TLSProxy::Proxy->is_tls13(1); # TODO(TLS1.3): Replace this reference to draft version before release - } elsif ($server_version == TLSProxy::Record::VERS_TLS_1_3_DRAFT) { - $server_version = TLSProxy::Record::VERS_TLS_1_3; + } elsif ($neg_version == TLSProxy::Record::VERS_TLS_1_3_DRAFT) { + $neg_version = TLSProxy::Record::VERS_TLS_1_3; TLSProxy::Proxy->is_tls13(1); TLSProxy::Record->server_encrypting(1); |