106 lines
2.6 KiB
Perl
106 lines
2.6 KiB
Perl
|
# Copyright 2016-2019 The OpenSSL Project Authors. All Rights Reserved.
|
||
|
|
#
|
||
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
||
|
|
# this file except in compliance with the License. You can obtain a copy
|
||
|
|
# in the file LICENSE in the source distribution or at
|
||
|
|
# https://www.openssl.org/source/license.html
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
package TLSProxy::CertificateRequest;
|
||
|
|
|
||
|
|
use vars '@ISA';
|
||
|
|
push @ISA, 'TLSProxy::Message';
|
||
|
|
|
||
|
|
sub new
|
||
|
|
{
|
||
|
|
my $class = shift;
|
||
|
|
my ($server,
|
||
|
|
$data,
|
||
|
|
$records,
|
||
|
|
$startoffset,
|
||
|
|
$message_frag_lens) = @_;
|
||
|
|
|
||
|
|
my $self = $class->SUPER::new(
|
||
|
|
$server,
|
||
|
|
TLSProxy::Message::MT_CERTIFICATE_REQUEST,
|
||
|
|
$data,
|
||
|
|
$records,
|
||
|
|
$startoffset,
|
||
|
|
$message_frag_lens);
|
||
|
|
|
||
|
|
$self->{extension_data} = "";
|
||
|
|
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub parse
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
my $ptr = 1;
|
||
|
|
|
||
|
|
if (TLSProxy::Proxy->is_tls13()) {
|
||
|
|
my $request_ctx_len = unpack('C', $self->data);
|
||
|
|
my $request_ctx = substr($self->data, $ptr, $request_ctx_len);
|
||
|
|
$ptr += $request_ctx_len;
|
||
|
|
|
||
|
|
my $extensions_len = unpack('n', substr($self->data, $ptr));
|
||
|
|
$ptr += 2;
|
||
|
|
my $extension_data = substr($self->data, $ptr);
|
||
|
|
if (length($extension_data) != $extensions_len) {
|
||
|
|
die "Invalid extension length\n";
|
||
|
|
}
|
||
|
|
my %extensions = ();
|
||
|
|
while (length($extension_data) >= 4) {
|
||
|
|
my ($type, $size) = unpack("nn", $extension_data);
|
||
|
|
my $extdata = substr($extension_data, 4, $size);
|
||
|
|
$extension_data = substr($extension_data, 4 + $size);
|
||
|
|
$extensions{$type} = $extdata;
|
||
|
|
}
|
||
|
|
$self->extension_data(\%extensions);
|
||
|
|
|
||
|
|
print " Extensions Len:".$extensions_len."\n";
|
||
|
|
}
|
||
|
|
# else parse TLSv1.2 version - we don't support that at the moment
|
||
|
|
}
|
||
|
|
|
||
|
|
#Reconstruct the on-the-wire message data following changes
|
||
|
|
sub set_message_contents
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
my $data;
|
||
|
|
my $extensions = "";
|
||
|
|
|
||
|
|
foreach my $key (keys %{$self->extension_data}) {
|
||
|
|
my $extdata = ${$self->extension_data}{$key};
|
||
|
|
$extensions .= pack("n", $key);
|
||
|
|
$extensions .= pack("n", length($extdata));
|
||
|
|
$extensions .= $extdata;
|
||
|
|
}
|
||
|
|
|
||
|
|
$data = pack('n', length($extensions));
|
||
|
|
$data .= $extensions;
|
||
|
|
$self->data($data);
|
||
|
|
}
|
||
|
|
|
||
|
|
#Read/write accessors
|
||
|
|
sub extension_data
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
if (@_) {
|
||
|
|
$self->{extension_data} = shift;
|
||
|
|
}
|
||
|
|
return $self->{extension_data};
|
||
|
|
}
|
||
|
|
sub set_extension
|
||
|
|
{
|
||
|
|
my ($self, $ext_type, $ext_data) = @_;
|
||
|
|
$self->{extension_data}{$ext_type} = $ext_data;
|
||
|
|
}
|
||
|
|
sub delete_extension
|
||
|
|
{
|
||
|
|
my ($self, $ext_type) = @_;
|
||
|
|
delete $self->{extension_data}{$ext_type};
|
||
|
|
}
|
||
|
|
1;
|