diff options
author | David Benjamin <davidben@google.com> | 2016-08-10 00:45:51 -0400 |
---|---|---|
committer | Matt Caswell <matt@openssl.org> | 2016-09-26 23:10:29 +0100 |
commit | 8523288e6d667f052bda092e01ab17986782fede (patch) | |
tree | 08f35fb07ef433d837a67d7ed0f2964d9acc22da /util/TLSProxy/Proxy.pm | |
parent | fa454945cf2855fed452ff9bdb1876096bc07beb (diff) | |
download | openssl-8523288e6d667f052bda092e01ab17986782fede.tar.gz |
Test CBC mode padding.
This is a regression test for
https://github.com/openssl/openssl/pull/1431. It tests a
maximally-padded record with each possible invalid offset.
This required fixing a bug in Message.pm where the client sending a
fatal alert followed by close_notify was still treated as success.
Reviewed-by: Rich Salz <rsalz@openssl.org>
Reviewed-by: Matt Caswell <matt@openssl.org>
Diffstat (limited to 'util/TLSProxy/Proxy.pm')
-rw-r--r-- | util/TLSProxy/Proxy.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm index e0ce43aa77..eeb83ed74f 100644 --- a/util/TLSProxy/Proxy.pm +++ b/util/TLSProxy/Proxy.pm @@ -493,4 +493,15 @@ sub serverpid } return $self->{serverpid}; } + +sub fill_known_data +{ + my $length = shift; + my $ret = ""; + for (my $i = 0; $i < $length; $i++) { + $ret .= chr($i); + } + return $ret; +} + 1; |