diff options
Diffstat (limited to 'util')
-rw-r--r-- | util/TLSProxy/Message.pm | 2 | ||||
-rw-r--r-- | util/TLSProxy/Proxy.pm | 3 | ||||
-rw-r--r-- | util/TLSProxy/ServerKeyExchange.pm | 11 |
3 files changed, 10 insertions, 6 deletions
diff --git a/util/TLSProxy/Message.pm b/util/TLSProxy/Message.pm index 66a4a7bc12..028322b613 100644 --- a/util/TLSProxy/Message.pm +++ b/util/TLSProxy/Message.pm @@ -350,7 +350,7 @@ sub repack $lenlo = length($self->data) & 0xff; $lenhi = length($self->data) >> 8; - my $msgdata = pack('CnC', $self->mt, $lenhi, $lenlo).$self->data; + $msgdata = pack('CnC', $self->mt, $lenhi, $lenlo).$self->data; if ($numrecs == 0) { diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm index c033c29dd7..571ab10e83 100644 --- a/util/TLSProxy/Proxy.pm +++ b/util/TLSProxy/Proxy.pm @@ -142,7 +142,8 @@ sub start my $oldstdout; if(!$self->debug) { - $oldstdout = select(File::Spec->devnull()); + open DEVNULL, ">", File::Spec->devnull(); + $oldstdout = select(DEVNULL); } # Create the Proxy socket diff --git a/util/TLSProxy/ServerKeyExchange.pm b/util/TLSProxy/ServerKeyExchange.pm index 3a91d1718c..b85b8addca 100644 --- a/util/TLSProxy/ServerKeyExchange.pm +++ b/util/TLSProxy/ServerKeyExchange.pm @@ -104,13 +104,16 @@ sub parse my $pub_key_len = unpack('n', substr($self->data, $ptr)); $ptr += 2; my $pub_key = substr($self->data, $ptr, $pub_key_len); - $ptr += $g_len; + $ptr += $pub_key_len; #We assume its signed my $sig_len = unpack('n', substr($self->data, $ptr)); - $ptr += 2; - my $sig = substr($self->data, $ptr, $sig_len); - $ptr += $sig_len; + my $sig = ""; + if (defined $sig_len) { + $ptr += 2; + $sig = substr($self->data, $ptr, $sig_len); + $ptr += $sig_len; + } $self->p($p); $self->g($g); |