1 # Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
3 # Licensed under the OpenSSL license (the "License"). You may not use
4 # this file except in compliance with the License. You can obtain a copy
5 # in the file LICENSE in the source distribution or at
6 # https://www.openssl.org/source/license.html
10 package TLSProxy::ClientHello;
13 push @ISA, 'TLSProxy::Message';
22 $message_frag_lens) = @_;
24 my $self = $class->SUPER::new(
32 $self->{client_version} = 0;
34 $self->{session_id_len} = 0;
35 $self->{session} = "";
36 $self->{ciphersuite_len} = 0;
37 $self->{ciphersuites} = [];
38 $self->{comp_meth_len} = 0;
39 $self->{comp_meths} = [];
40 $self->{extensions_len} = 0;
41 $self->{extension_data} = "";
50 my ($client_version) = unpack('n', $self->data);
51 my $random = substr($self->data, $ptr, 32);
53 my $session_id_len = unpack('C', substr($self->data, $ptr));
55 my $session = substr($self->data, $ptr, $session_id_len);
56 $ptr += $session_id_len;
57 my $ciphersuite_len = unpack('n', substr($self->data, $ptr));
59 my @ciphersuites = unpack('n*', substr($self->data, $ptr,
61 $ptr += $ciphersuite_len;
62 my $comp_meth_len = unpack('C', substr($self->data, $ptr));
64 my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));
65 $ptr += $comp_meth_len;
66 my $extensions_len = unpack('n', substr($self->data, $ptr));
68 #For now we just deal with this as a block of data. In the future we will
70 my $extension_data = substr($self->data, $ptr);
72 if (length($extension_data) != $extensions_len) {
73 die "Invalid extension length\n";
76 while (length($extension_data) >= 4) {
77 my ($type, $size) = unpack("nn", $extension_data);
78 my $extdata = substr($extension_data, 4, $size);
79 $extension_data = substr($extension_data, 4 + $size);
80 $extensions{$type} = $extdata;
83 $self->client_version($client_version);
84 $self->random($random);
85 $self->session_id_len($session_id_len);
86 $self->session($session);
87 $self->ciphersuite_len($ciphersuite_len);
88 $self->ciphersuites(\@ciphersuites);
89 $self->comp_meth_len($comp_meth_len);
90 $self->comp_meths(\@comp_meths);
91 $self->extensions_len($extensions_len);
92 $self->extension_data(\%extensions);
94 $self->process_extensions();
96 print " Client Version:".$client_version."\n";
97 print " Session ID Len:".$session_id_len."\n";
98 print " Ciphersuite len:".$ciphersuite_len."\n";
99 print " Compression Method Len:".$comp_meth_len."\n";
100 print " Extensions Len:".$extensions_len."\n";
103 #Perform any actions necessary based on the extensions we've seen
104 sub process_extensions
107 my %extensions = %{$self->extension_data};
109 #Clear any state from a previous run
110 TLSProxy::Record->etm(0);
112 if (exists $extensions{TLSProxy::Message::EXT_ENCRYPT_THEN_MAC}) {
113 TLSProxy::Record->etm(1);
117 sub extension_contents
123 my $extdata = ${$self->extension_data}{$key};
124 $extension .= pack("n", $key);
125 $extension .= pack("n", length($extdata));
126 $extension .= $extdata;
127 if ($key == TLSProxy::Message::EXT_DUPLICATE_EXTENSION) {
128 $extension .= pack("n", $key);
129 $extension .= pack("n", length($extdata));
130 $extension .= $extdata;
135 #Reconstruct the on-the-wire message data following changes
136 sub set_message_contents
142 $data = pack('n', $self->client_version);
143 $data .= $self->random;
144 $data .= pack('C', $self->session_id_len);
145 $data .= $self->session;
146 $data .= pack('n', $self->ciphersuite_len);
147 $data .= pack("n*", @{$self->ciphersuites});
148 $data .= pack('C', $self->comp_meth_len);
149 $data .= pack("C*", @{$self->comp_meths});
151 foreach my $key (keys %{$self->extension_data}) {
152 next if ($key == TLSProxy::Message::EXT_PSK);
153 $extensions .= $self->extension_contents($key);
155 #PSK extension always goes last...
156 if (defined ${$self->extension_data}{TLSProxy::Message::EXT_PSK}) {
157 $extensions .= $self->extension_contents(TLSProxy::Message::EXT_PSK);
159 #unless we have EXT_FORCE_LAST
160 if (defined ${$self->extension_data}{TLSProxy::Message::EXT_FORCE_LAST}) {
161 $extensions .= $self->extension_contents(TLSProxy::Message::EXT_FORCE_LAST);
164 $data .= pack('n', length($extensions));
165 $data .= $extensions;
170 #Read/write accessors
175 $self->{client_version} = shift;
177 return $self->{client_version};
183 $self->{random} = shift;
185 return $self->{random};
191 $self->{session_id_len} = shift;
193 return $self->{session_id_len};
199 $self->{session} = shift;
201 return $self->{session};
207 $self->{ciphersuite_len} = shift;
209 return $self->{ciphersuite_len};
215 $self->{ciphersuites} = shift;
217 return $self->{ciphersuites};
223 $self->{comp_meth_len} = shift;
225 return $self->{comp_meth_len};
231 $self->{comp_meths} = shift;
233 return $self->{comp_meths};
239 $self->{extensions_len} = shift;
241 return $self->{extensions_len};
247 $self->{extension_data} = shift;
249 return $self->{extension_data};
253 my ($self, $ext_type, $ext_data) = @_;
254 $self->{extension_data}{$ext_type} = $ext_data;
258 my ($self, $ext_type) = @_;
259 delete $self->{extension_data}{$ext_type};