test/recipes/70-test_tlsextms.t

   1 #! /usr/bin/env perl
   2 # Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the OpenSSL license (the "License").  You may not use
   5 # this file except in compliance with the License.  You can obtain a copy
   6 # in the file LICENSE in the source distribution or at
   7 # https://www.openssl.org/source/license.html
   8
   9 use strict;
  10 use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
  11 use OpenSSL::Test::Utils;
  12 use TLSProxy::Proxy;
  13 use File::Temp qw(tempfile);
  14
  15 my $test_name = "test_tlsextms";
  16 setup($test_name);
  17
  18 plan skip_all => "TLSProxy isn't usable on $^O"
  19     if $^O =~ /^(VMS|MSWin32)$/;
  20
  21 plan skip_all => "$test_name needs the dynamic engine feature enabled"
  22     if disabled("engine") || disabled("dynamic-engine");
  23
  24 plan skip_all => "$test_name needs the sock feature enabled"
  25     if disabled("sock");
  26
  27 plan skip_all => "$test_name needs TLSv1.0, TLSv1.1 or TLSv1.2 enabled"
  28     if disabled("tls1") && disabled("tls1_1") && disabled("tls1_2");
  29
  30 $ENV{OPENSSL_ia32cap} = '~0x200000200000000';
  31
  32 sub checkmessages($$$$$);
  33 sub setrmextms($$);
  34 sub clearall();
  35
  36 my $crmextms = 0;
  37 my $srmextms = 0;
  38 my $cextms = 0;
  39 my $sextms = 0;
  40 my $fullhand = 0;
  41
  42 my $proxy = TLSProxy::Proxy->new(
  43     \&extms_filter,
  44     cmdstr(app(["openssl"]), display => 1),
  45     srctop_file("apps", "server.pem"),
  46     (!$ENV{HARNESS_ACTIVE} || $ENV{HARNESS_VERBOSE})
  47 );
  48
  49 #Note that EXTMS is only relevant for <TLS1.3
  50
  51 #Test 1: By default server and client should send extended master secret
  52 # extension.
  53 #Expected result: ClientHello extension seen; ServerHello extension seen
  54 #                 Full handshake
  55
  56 setrmextms(0, 0);
  57 $proxy->clientflags("-no_tls1_3");
  58 $proxy->start() or plan skip_all => "Unable to start up Proxy for tests";
  59 my $numtests = 9;
  60 if (!disabled("tls1_3")) {
  61     $numtests++;
  62 }
  63 plan tests => $numtests;
  64 checkmessages(1, "Default extended master secret test", 1, 1, 1);
  65
  66 #Test 2: If client omits extended master secret extension, server should too.
  67 #Expected result: ClientHello extension not seen; ServerHello extension not seen
  68 #                 Full handshake
  69
  70 clearall();
  71 setrmextms(1, 0);
  72 $proxy->clientflags("-no_tls1_3");
  73 $proxy->start();
  74 checkmessages(2, "No client extension extended master secret test", 0, 0, 1);
  75
  76 # Test 3: same as 1 but with session tickets disabled.
  77 # Expected result: same as test 1.
  78
  79 clearall();
  80 $proxy->clientflags("-no_ticket -no_tls1_3");
  81 setrmextms(0, 0);
  82 $proxy->start();
  83 checkmessages(3, "No ticket extended master secret test", 1, 1, 1);
  84
  85 # Test 4: same as 2 but with session tickets disabled.
  86 # Expected result: same as test 2.
  87
  88 clearall();
  89 $proxy->clientflags("-no_ticket -no_tls1_3");
  90 setrmextms(1, 0);
  91 $proxy->start();
  92 checkmessages(4, "No ticket, no client extension extended master secret test", 0, 0, 1);
  93
  94 #Test 5: Session resumption extended master secret test
  95 #
  96 #Expected result: ClientHello extension seen; ServerHello extension seen
  97 #                 Abbreviated handshake
  98
  99 clearall();
 100 setrmextms(0, 0);
 101 (undef, my $session) = tempfile();
 102 $proxy->serverconnects(2);
 103 $proxy->clientflags("-no_tls1_3 -sess_out ".$session);
 104 $proxy->start();
 105 $proxy->clearClient();
 106 $proxy->clientflags("-no_tls1_3 -sess_in ".$session);
 107 $proxy->clientstart();
 108 checkmessages(5, "Session resumption extended master secret test", 1, 1, 0);
 109 unlink $session;
 110
 111 #Test 6: Session resumption extended master secret test original session
 112 # omits extension. Server must not resume session.
 113 #Expected result: ClientHello extension seen; ServerHello extension seen
 114 #                 Full handshake
 115
 116 clearall();
 117 setrmextms(1, 0);
 118 (undef, $session) = tempfile();
 119 $proxy->serverconnects(2);
 120 $proxy->clientflags("-no_tls1_3 -sess_out ".$session);
 121 $proxy->start();
 122 $proxy->clearClient();
 123 $proxy->clientflags("-no_tls1_3 -sess_in ".$session);
 124 setrmextms(0, 0);
 125 $proxy->clientstart();
 126 checkmessages(6, "Session resumption extended master secret test", 1, 1, 1);
 127 unlink $session;
 128
 129 #Test 7: Session resumption extended master secret test resumed session
 130 # omits client extension. Server must abort connection.
 131 #Expected result: aborted connection.
 132
 133 clearall();
 134 setrmextms(0, 0);
 135 (undef, $session) = tempfile();
 136 $proxy->serverconnects(2);
 137 $proxy->clientflags("-no_tls1_3 -sess_out ".$session);
 138 $proxy->start();
 139 $proxy->clearClient();
 140 $proxy->clientflags("-no_tls1_3 -sess_in ".$session);
 141 setrmextms(1, 0);
 142 $proxy->clientstart();
 143 ok(TLSProxy::Message->fail(), "Client inconsistent session resumption");
 144 unlink $session;
 145
 146 #Test 8: Session resumption extended master secret test resumed session
 147 # omits server extension. Client must abort connection.
 148 #Expected result: aborted connection.
 149
 150 clearall();
 151 setrmextms(0, 0);
 152 (undef, $session) = tempfile();
 153 $proxy->serverconnects(2);
 154 $proxy->clientflags("-no_tls1_3 -sess_out ".$session);
 155 $proxy->start();
 156 $proxy->clearClient();
 157 $proxy->clientflags("-no_tls1_3 -sess_in ".$session);
 158 setrmextms(0, 1);
 159 $proxy->clientstart();
 160 ok(TLSProxy::Message->fail(), "Server inconsistent session resumption 1");
 161 unlink $session;
 162
 163 #Test 9: Session resumption extended master secret test initial session
 164 # omits server extension. Client must abort connection.
 165 #Expected result: aborted connection.
 166
 167 clearall();
 168 setrmextms(0, 1);
 169 (undef, $session) = tempfile();
 170 $proxy->serverconnects(2);
 171 $proxy->clientflags("-no_tls1_3 -sess_out ".$session);
 172 $proxy->start();
 173 $proxy->clearClient();
 174 $proxy->clientflags("-no_tls1_3 -sess_in ".$session);
 175 setrmextms(0, 0);
 176 $proxy->clientstart();
 177 ok(TLSProxy::Message->fail(), "Server inconsistent session resumption 2");
 178 unlink $session;
 179
 180 #Test 10: In TLS1.3 we should not negotiate extended master secret
 181 #Expected result: ClientHello extension seen; ServerHello extension not seen
 182 #                 TLS1.3 handshake (will appear as abbreviated handshake
 183 #                 because of no CKE message)
 184 if (!disabled("tls1_3")) {
 185     clearall();
 186     setrmextms(0, 0);
 187     $proxy->start();
 188     checkmessages(10, "TLS1.3 extended master secret test", 1, 0, 0);
 189 }
 190
 191
 192 sub extms_filter
 193 {
 194     my $proxy = shift;
 195
 196     foreach my $message (@{$proxy->message_list}) {
 197         if ($crmextms && $message->mt == TLSProxy::Message::MT_CLIENT_HELLO) {
 198             $message->delete_extension(TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET);
 199             $message->repack();
 200         }
 201         if ($srmextms && $message->mt == TLSProxy::Message::MT_SERVER_HELLO) {
 202             $message->delete_extension(TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET);
 203             $message->repack();
 204         }
 205     }
 206 }
 207
 208 sub checkmessages($$$$$)
 209 {
 210     my ($testno, $testname, $testcextms, $testsextms, $testhand) = @_;
 211
 212     subtest $testname => sub {
 213
 214     foreach my $message (@{$proxy->message_list}) {
 215         if ($message->mt == TLSProxy::Message::MT_CLIENT_HELLO
 216             || $message->mt == TLSProxy::Message::MT_SERVER_HELLO) {
 217         #Get the extensions data
 218         my %extensions = %{$message->extension_data};
 219         if (defined
 220             $extensions{TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET}) {
 221             if ($message->mt == TLSProxy::Message::MT_CLIENT_HELLO) {
 222                 $cextms = 1;
 223             } else {
 224                 $sextms = 1;
 225             }
 226         }
 227         } elsif ($message->mt == TLSProxy::Message::MT_CLIENT_KEY_EXCHANGE) {
 228             #Must be doing a full handshake
 229             $fullhand = 1;
 230         }
 231     }
 232
 233     plan tests => 4;
 234
 235     ok(TLSProxy::Message->success, "Handshake");
 236
 237     ok($testcextms == $cextms,
 238        "ClientHello extension extended master secret check");
 239     ok($testsextms == $sextms,
 240        "ServerHello extension extended master secret check");
 241     ok($testhand == $fullhand,
 242        "Extended master secret full handshake check");
 243
 244     }
 245 }
 246
 247 sub setrmextms($$)
 248 {
 249     ($crmextms, $srmextms) = @_;
 250 }
 251
 252 sub clearall()
 253 {
 254     $cextms = 0;
 255     $sextms = 0;
 256     $fullhand = 0;
 257     $proxy->clear();
 258 }