Fixups in libssl test harness
[openssl.git] / util / TLSProxy / ServerKeyExchange.pm
1 # Written by Matt Caswell for the OpenSSL project.
2 # ====================================================================
3 # Copyright (c) 1998-2015 The OpenSSL Project.  All rights reserved.
4 #
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
7 # are met:
8 #
9 # 1. Redistributions of source code must retain the above copyright
10 #    notice, this list of conditions and the following disclaimer.
11 #
12 # 2. Redistributions in binary form must reproduce the above copyright
13 #    notice, this list of conditions and the following disclaimer in
14 #    the documentation and/or other materials provided with the
15 #    distribution.
16 #
17 # 3. All advertising materials mentioning features or use of this
18 #    software must display the following acknowledgment:
19 #    "This product includes software developed by the OpenSSL Project
20 #    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
21 #
22 # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
23 #    endorse or promote products derived from this software without
24 #    prior written permission. For written permission, please contact
25 #    openssl-core@openssl.org.
26 #
27 # 5. Products derived from this software may not be called "OpenSSL"
28 #    nor may "OpenSSL" appear in their names without prior written
29 #    permission of the OpenSSL Project.
30 #
31 # 6. Redistributions of any form whatsoever must retain the following
32 #    acknowledgment:
33 #    "This product includes software developed by the OpenSSL Project
34 #    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
35 #
36 # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
37 # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
38 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
39 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
40 # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
41 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
42 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
43 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
44 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
45 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
46 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
47 # OF THE POSSIBILITY OF SUCH DAMAGE.
48 # ====================================================================
49 #
50 # This product includes cryptographic software written by Eric Young
51 # (eay@cryptsoft.com).  This product includes software written by Tim
52 # Hudson (tjh@cryptsoft.com).
53
54 use strict;
55
56 package TLSProxy::ServerKeyExchange;
57
58 use parent 'TLSProxy::Message';
59
60 sub new
61 {
62     my $class = shift;
63     my ($server,
64         $data,
65         $records,
66         $startoffset,
67         $message_frag_lens) = @_;
68     
69     my $self = $class->SUPER::new(
70         $server,
71         TLSProxy::Message::MT_SERVER_KEY_EXCHANGE,
72         $data,
73         $records,
74         $startoffset,
75         $message_frag_lens);
76
77     #DHE
78     $self->{p} = "";
79     $self->{g} = "";
80     $self->{pub_key} = "";
81     $self->{sig} = "";
82
83     return $self;
84 }
85
86 sub parse
87 {
88     my $self = shift;
89
90     #Minimal SKE parsing. Only supports DHE at the moment (if its not DHE
91     #the parsing data will be trash...which is ok as long as we don't try to
92     #use it)
93
94     my $p_len = unpack('n', $self->data);
95     my $ptr = 2;
96     my $p = substr($self->data, $ptr, $p_len);
97     $ptr += $p_len;
98
99     my $g_len = unpack('n', substr($self->data, $ptr));
100     $ptr += 2;
101     my $g = substr($self->data, $ptr, $g_len);
102     $ptr += $g_len;
103
104     my $pub_key_len = unpack('n', substr($self->data, $ptr));
105     $ptr += 2;
106     my $pub_key = substr($self->data, $ptr, $pub_key_len);
107     $ptr += $pub_key_len;
108
109     #We assume its signed
110     my $sig_len = unpack('n', substr($self->data, $ptr));
111     my $sig = "";
112     if (defined $sig_len) {
113         $ptr += 2;
114         $sig = substr($self->data, $ptr, $sig_len);
115         $ptr += $sig_len;
116     }
117
118     $self->p($p);
119     $self->g($g);
120     $self->pub_key($pub_key);
121     $self->sig($sig);
122 }
123
124
125 #Reconstruct the on-the-wire message data following changes
126 sub set_message_contents
127 {
128     my $self = shift;
129     my $data;
130
131     $data = pack('n', length($self->p));
132     $data .= $self->p;
133     $data .= pack('n', length($self->g));
134     $data .= $self->g;
135     $data .= pack('n', length($self->pub_key));
136     $data .= $self->pub_key;
137     if (length($self->sig) > 0) {
138         $data .= pack('n', length($self->sig));
139         $data .= $self->sig;
140     }
141
142     $self->data($data);
143 }
144
145 #Read/write accessors
146 #DHE
147 sub p
148 {
149     my $self = shift;
150     if (@_) {
151       $self->{p} = shift;
152     }
153     return $self->{p};
154 }
155 sub g
156 {
157     my $self = shift;
158     if (@_) {
159       $self->{g} = shift;
160     }
161     return $self->{g};
162 }
163 sub pub_key
164 {
165     my $self = shift;
166     if (@_) {
167       $self->{pub_key} = shift;
168     }
169     return $self->{pub_key};
170 }
171 sub sig
172 {
173     my $self = shift;
174     if (@_) {
175       $self->{sig} = shift;
176     }
177     return $self->{sig};
178 }
179 1;