Lines Matching +full:data +full:- +full:shift
1 # Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
22 my $class = shift;
24 $data,
29 my $self = $class->SUPER::new(
32 $data,
37 $self->{server_version} = 0;
38 $self->{random} = [];
39 $self->{session_id_len} = 0;
40 $self->{session} = "";
41 $self->{ciphersuite} = 0;
42 $self->{comp_meth} = 0;
43 $self->{extension_data} = "";
50 my $self = shift;
52 my ($server_version) = unpack('n', $self->data);
55 my $random = substr($self->data, $ptr, 32);
59 $session_id_len = unpack('C', substr($self->data, $ptr));
61 $session = substr($self->data, $ptr, $session_id_len);
64 my $ciphersuite = unpack('n', substr($self->data, $ptr));
67 $comp_meth = unpack('C', substr($self->data, $ptr));
70 my $extensions_len = unpack('n', substr($self->data, $ptr));
76 #For now we just deal with this as a block of data. In the future we will
80 $extension_data = substr($self->data, $ptr);
86 if (length($self->data) != $ptr) {
103 TLSProxy::Proxy->is_tls13(1);
105 TLSProxy::Proxy->is_tls13(1);
107 TLSProxy::Record->server_encrypting(1);
108 TLSProxy::Record->client_encrypting(1);
111 $self->server_version($server_version);
112 $self->random($random);
113 $self->session_id_len($session_id_len);
114 $self->session($session);
115 $self->ciphersuite($ciphersuite);
116 TLSProxy::Proxy->ciphersuite($ciphersuite);
117 $self->comp_meth($comp_meth);
118 $self->extension_data(\%extensions);
120 $self->process_data();
130 #Perform any actions necessary based on the data we've seen
133 my $self = shift;
135 TLSProxy::Message->ciphersuite($self->ciphersuite);
138 #Reconstruct the on-the-wire message data following changes
141 my $self = shift;
142 my $data;
145 $data = pack('n', $self->server_version);
146 $data .= $self->random;
147 $data .= pack('C', $self->session_id_len);
148 $data .= $self->session;
149 $data .= pack('n', $self->ciphersuite);
150 $data .= pack('C', $self->comp_meth);
152 foreach my $key (keys %{$self->extension_data}) {
153 my $extdata = ${$self->extension_data}{$key};
157 if ($key == $self->dupext) {
164 $data .= pack('n', length($extensions));
165 $data .= $extensions;
166 $self->data($data);
172 my $self = shift;
174 $self->{server_version} = shift;
176 return $self->{server_version};
180 my $self = shift;
182 $self->{random} = shift;
184 return $self->{random};
188 my $self = shift;
190 $self->{session_id_len} = shift;
192 return $self->{session_id_len};
196 my $self = shift;
198 $self->{session} = shift;
200 return $self->{session};
204 my $self = shift;
206 $self->{ciphersuite} = shift;
208 return $self->{ciphersuite};
212 my $self = shift;
214 $self->{comp_meth} = shift;
216 return $self->{comp_meth};
220 my $self = shift;
222 $self->{extension_data} = shift;
224 return $self->{extension_data};
229 $self->{extension_data}{$ext_type} = $ext_data;
234 delete $self->{extension_data}{$ext_type};