3a91d1718ca9388c5a941bf132b77407287587da
[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 += $g_len;
108
109     #We assume its signed
110     my $sig_len = unpack('n', substr($self->data, $ptr));
111     $ptr += 2;
112     my $sig = substr($self->data, $ptr, $sig_len);
113     $ptr += $sig_len;
114
115     $self->p($p);
116     $self->g($g);
117     $self->pub_key($pub_key);
118     $self->sig($sig);
119 }
120
121
122 #Reconstruct the on-the-wire message data following changes
123 sub set_message_contents
124 {
125     my $self = shift;
126     my $data;
127
128     $data = pack('n', length($self->p));
129     $data .= $self->p;
130     $data .= pack('n', length($self->g));
131     $data .= $self->g;
132     $data .= pack('n', length($self->pub_key));
133     $data .= $self->pub_key;
134     if (length($self->sig) > 0) {
135         $data .= pack('n', length($self->sig));
136         $data .= $self->sig;
137     }
138
139     $self->data($data);
140 }
141
142 #Read/write accessors
143 #DHE
144 sub p
145 {
146     my $self = shift;
147     if (@_) {
148       $self->{p} = shift;
149     }
150     return $self->{p};
151 }
152 sub g
153 {
154     my $self = shift;
155     if (@_) {
156       $self->{g} = shift;
157     }
158     return $self->{g};
159 }
160 sub pub_key
161 {
162     my $self = shift;
163     if (@_) {
164       $self->{pub_key} = shift;
165     }
166     return $self->{pub_key};
167 }
168 sub sig
169 {
170     my $self = shift;
171     if (@_) {
172       $self->{sig} = shift;
173     }
174     return $self->{sig};
175 }
176 1;