<commit_before># test/runex.pl
# Written by Dr <NAME> (<EMAIL>) for the OpenSSL
# project.
#
# ====================================================================
# Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer. 
#
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in
#    the documentation and/or other materials provided with the
#    distribution.
#
# 3. All advertising materials mentioning features or use of this
#    software must display the following acknowledgment:
#    "This product includes software developed by the OpenSSL Project
#    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
#
# 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
#    endorse or promote products derived from this software without
#    prior written permission. For written permission, please contact
#    licensing@OpenSSL.org.
#
# 5. Products derived from this software may not be called "OpenSSL"
#    nor may "OpenSSL" appear in their names without prior written
#    permission of the OpenSSL Project.
#
# 6. Redistributions of any form whatsoever must retain the following
#    acknowledgment:
#    "This product includes software developed by the OpenSSL Project
#    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
#
# THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
# EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
# ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
# OF THE POSSIBILITY OF SUCH DAMAGE.
# ====================================================================

# Perl script to run tests against S/MIME examples in RFC4134
# Assumes all files are extracted in an directory called "examples"

my $badttest = 0;
my $verbose = 1;

my $cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
my $convcmd = "../util/shlib_wrap.sh ../apps/openssl x509 -inform DER";
my $exdir = "examples";

my @test_list = (
["3.1.bin"	=> "dataout"],
["3.2.bin"	=> "encode, dataout"],
["4.1.bin"	=> "encode, verifyder, content, dss"],
["4.2.bin"	=> "encode, verifyder, cont, rsa"],
["4.3.bin"	=> "encode, verifyder, cont_extern, dss"],
["4.4.bin"	=> "encode, verifyder, cont, dss"],
["4.5.bin"	=> "verifyder, content, rsa"],
["4.6.bin"	=> "encode, verifyder, cont, dss"],
["4.7.bin"	=> "encode, verifyder, cont, dss"],
["4.8.eml"	=> "verifymime, dss"],
["4.9.eml"	=> "verifymime, dss"],
["4.10.bin"	=> "encode, verifyder, cont, dss"],
["4.11.bin"	=> "encode"],
["5.1.bin"	=> "encode"],
["5.2.bin"	=> "encode"],
["6.0.bin"	=> "encode, digest, cont"],
["7.1.bin"	=> "encode, encrypted, cont"],
["7.2.bin"	=> "encode, encrypted, cont"]
);

my $secretkey = "73:7c:79:1f:25:ea:d0:e0:46:29:25:43:52:f7:dc:62:91:e5:cb:26:91:7a:da:32";

	if (!-d $exdir)
		{
		print STDERR "FATAL ERROR: examples directory missing!!\n";
		exit 1;
		}

	system ("$convcmd -in $exdir/CarlDSSSelf.cer -out $exdir/CarlDSSSelf.pem");
	system ("$convcmd -in $exdir/CarlRSASelf.cer -out $exdir/CarlRSASelf.pem");

	$cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;

foreach (@test_list) {
	my ($file, $tlist) = @$_;
	print "Example file $file:\n";
	if ($tlist =~ /encode/)
		{
		run_reencode_test($exdir, $file);
		}
	if ($tlist =~ /dataout/)
		{
		run_dataout_test($exdir, $file);
		}
	if ($tlist =~ /verify/)
		{
		run_verify_test($exdir, $tlist, $file);
		}
	if ($tlist =~ /digest/)
		{
		run_digest_test($exdir, $tlist, $file);
		}
	if ($tlist =~ /encrypted/)
		{
		run_encrypted_test($exdir, $tlist, $file, $secretkey);
		}

}

unlink "cms.out";
unlink "cms.err";
unlink "tmp.der";
unlink "tmp.txt";

if ($badtest) {
	print "\n$badtest TESTS FAILED!!\n";
} else {
	print "\n***All tests successful***\n";
}


sub run_reencode_test
	{
	my ($cmsdir, $tfile) = @_;
	unlink "tmp.der";

	system ("$cmscmd -cmsout -inform DER -outform DER" .
		" -in $cmsdir/$tfile -out tmp.der");

	if ($?)
		{
		print "\tReencode command FAILED!!\n";
		$badtest++;
		}
	elsif (!cmp_files("$cmsdir/$tfile", "tmp.der"))
		{
		print "\tReencode FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tReencode passed\n" if $verbose;
		}
	}

sub run_dataout_test
	{
	my ($cmsdir, $tfile) = @_;
	unlink "tmp.txt";

	system ("$cmscmd -data_out -inform DER" .
		" -in $cmsdir/$tfile -out tmp.txt");

	if ($?)
		{
		print "\tDataout command FAILED!!\n";
		$badtest++;
		}
	elsif (!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tDataout compare FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tDataout passed\n" if $verbose;
		}
	}

sub run_verify_test
	{
	my ($cmsdir, $tlist, $tfile) = @_;
	unlink "tmp.txt";

	$form = "DER" if $tlist =~ /verifyder/;
	$form = "SMIME" if $tlist =~ /verifymime/;
	$cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
	$cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;

	$cmd = "$cmscmd -verify -inform $form" .
		" -CAfile $cafile" .
		" -in $cmsdir/$tfile -out tmp.txt";

	$cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;	

	system ("$cmd 2>cms.err 1>cms.out");

	if ($?)
		{
		print "\tVerify command FAILED!!\n";
		$badtest++;
		}
	elsif ($tlist =~ /cont/ &&
		!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tVerify content compare FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tVerify passed\n" if $verbose;
		}
	}

sub run_digest_test
	{
	my ($cmsdir, $tlist, $tfile) = @_;
	unlink "tmp.txt";

	system ("$cmscmd -digest_verify -inform DER" .
		" -in $cmsdir/$tfile -out tmp.txt");

	if ($?)
		{
		print "\tDigest verify command FAILED!!\n";
		$badtest++;
		}
	elsif ($tlist =~ /cont/ &&
		!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tDigest verify content compare FAILED!!\n";
		$badtest++;
		}
	else<commit_msg>Initial support for enveloped data decrypt. Extent runex.pl to cover these examples. All RFC4134 examples can now be processed.<commit_after># test/runex.pl
# Written by Dr <NAME> (<EMAIL>) for the OpenSSL
# project.
#
# ====================================================================
# Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer. 
#
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in
#    the documentation and/or other materials provided with the
#    distribution.
#
# 3. All advertising materials mentioning features or use of this
#    software must display the following acknowledgment:
#    "This product includes software developed by the OpenSSL Project
#    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
#
# 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
#    endorse or promote products derived from this software without
#    prior written permission. For written permission, please contact
#    <EMAIL>.
#
# 5. Products derived from this software may not be called "OpenSSL"
#    nor may "OpenSSL" appear in their names without prior written
#    permission of the OpenSSL Project.
#
# 6. Redistributions of any form whatsoever must retain the following
#    acknowledgment:
#    "This product includes software developed by the OpenSSL Project
#    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
#
# THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
# EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
# ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
# OF THE POSSIBILITY OF SUCH DAMAGE.
# ====================================================================

# Perl script to run tests against S/MIME examples in RFC4134
# Assumes all files are extracted in an directory called "examples"

my $badttest = 0;
my $verbose = 1;

my $cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
my $convcmd = "../util/shlib_wrap.sh ../apps/openssl x509 -inform DER";
my $pconvcmd = "../util/shlib_wrap.sh ../apps/openssl rsa -inform DER";
my $exdir = "examples";

my @test_list = (
["3.1.bin"	=> "dataout"],
["3.2.bin"	=> "encode, dataout"],
["4.1.bin"	=> "encode, verifyder, content, dss"],
["4.2.bin"	=> "encode, verifyder, cont, rsa"],
["4.3.bin"	=> "encode, verifyder, cont_extern, dss"],
["4.4.bin"	=> "encode, verifyder, cont, dss"],
["4.5.bin"	=> "verifyder, content, rsa"],
["4.6.bin"	=> "encode, verifyder, cont, dss"],
["4.7.bin"	=> "encode, verifyder, cont, dss"],
["4.8.eml"	=> "verifymime, dss"],
["4.9.eml"	=> "verifymime, dss"],
["4.10.bin"	=> "encode, verifyder, cont, dss"],
["4.11.bin"	=> "encode"],
["5.1.bin"	=> "encode, envelopeder, cont"],
["5.2.bin"	=> "encode, envelopeder, cont"],
["5.3.eml"	=> "envelopemime, cont"],
["6.0.bin"	=> "encode, digest, cont"],
["7.1.bin"	=> "encode, encrypted, cont"],
["7.2.bin"	=> "encode, encrypted, cont"]
);

my $secretkey = "73:7c:79:1f:25:ea:d0:e0:46:29:25:43:52:f7:dc:62:91:e5:cb:26:91:7a:da:32";

	if (!-d $exdir)
		{
		print STDERR "FATAL ERROR: examples directory missing!!\n";
		exit 1;
		}

	system ("$convcmd -in $exdir/CarlDSSSelf.cer -out $exdir/CarlDSSSelf.pem");
	system ("$convcmd -in $exdir/CarlRSASelf.cer -out $exdir/CarlRSASelf.pem");
	system ("$convcmd -in $exdir/BobRSASignByCarl.cer -out $exdir/BobRSASignByCarl.pem");
	system ("$pconvcmd -in $exdir/BobPrivRSAEncrypt.pri -out $exdir/BobPrivRSAEncrypt.pem");

foreach (@test_list) {
	my ($file, $tlist) = @$_;
	print "Example file $file:\n";
	if ($tlist =~ /encode/)
		{
		run_reencode_test($exdir, $file);
		}
	if ($tlist =~ /dataout/)
		{
		run_dataout_test($exdir, $file);
		}
	if ($tlist =~ /verify/)
		{
		run_verify_test($exdir, $tlist, $file);
		}
	if ($tlist =~ /digest/)
		{
		run_digest_test($exdir, $tlist, $file);
		}
	if ($tlist =~ /encrypted/)
		{
		run_encrypted_test($exdir, $tlist, $file, $secretkey);
		}
	if ($tlist =~ /envelope/)
		{
		run_envelope_test($exdir, $tlist, $file);
		}

}

unlink "cms.out";
unlink "cms.err";
unlink "tmp.der";
unlink "tmp.txt";

if ($badtest) {
	print "\n$badtest TESTS FAILED!!\n";
} else {
	print "\n***All tests successful***\n";
}


sub run_reencode_test
	{
	my ($cmsdir, $tfile) = @_;
	unlink "tmp.der";

	system ("$cmscmd -cmsout -inform DER -outform DER" .
		" -in $cmsdir/$tfile -out tmp.der");

	if ($?)
		{
		print "\tReencode command FAILED!!\n";
		$badtest++;
		}
	elsif (!cmp_files("$cmsdir/$tfile", "tmp.der"))
		{
		print "\tReencode FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tReencode passed\n" if $verbose;
		}
	}

sub run_dataout_test
	{
	my ($cmsdir, $tfile) = @_;
	unlink "tmp.txt";

	system ("$cmscmd -data_out -inform DER" .
		" -in $cmsdir/$tfile -out tmp.txt");

	if ($?)
		{
		print "\tDataout command FAILED!!\n";
		$badtest++;
		}
	elsif (!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tDataout compare FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tDataout passed\n" if $verbose;
		}
	}

sub run_verify_test
	{
	my ($cmsdir, $tlist, $tfile) = @_;
	unlink "tmp.txt";

	$form = "DER" if $tlist =~ /verifyder/;
	$form = "SMIME" if $tlist =~ /verifymime/;
	$cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
	$cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;

	$cmd = "$cmscmd -verify -inform $form" .
		" -CAfile $cafile" .
		" -in $cmsdir/$tfile -out tmp.txt";

 	$cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;	

	system ("$cmd 2>cms.err 1>cms.out");

	if ($?)
		{
		print "\tVerify command FAILED!!\n";
		$badtest++;
		}
	elsif ($tlist =~ /cont/ &&
		!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tVerify content compare FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tVerify passed\n" if $verbose;
		}
	}

sub run_envelope_test
	{
	my ($cmsdir, $tlist, $tfile) = @_;
	unlink "tmp.txt";

	$form = "DER" if $tlist =~ /envelopeder/;
	$form = "SMIME" if $tlist =~ /envelopemime/;

	$cmd = "$cmscmd -decrypt -inform $form" .
		" -recip $cmsdir/BobRSASignByCarl.pem" .
		" -inkey $cmsdir/BobPrivRSAEncrypt.pem" .
		" -in $cmsdir/$tfile -out tmp.txt";

	system ("$cmd 2>cms.err 1>cms.out");

	if ($?)
		{
		print "\tDecrypt command FAILED!!\n";
		$badtest++;
		}
	elsif ($tlist =~ /cont/ &&
		!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tDecrypt content compare FAILED!!\n";
		$badtest++;
		}
	else
		{
		print "\tDecrypt passed\n" if $verbose;
		}
	}

sub run_digest_test
	{
	my ($cmsdir, $tlist, $tfile) = @_;
	unlink "tmp.txt";

	my $cmd = "$cmscmd -digest_verify -inform DER" .
		" -in $cmsdir/$tfile -out tmp.txt";

	system ("$cmd 2>cms.err 1>cms.out");

	if ($?)
		{
		print "\tDigest verify command FAILED!!\n";
		$badtest++;
		}
	elsif ($tlist =~ /cont/ &&
		!cmp_files("$cmsdir/ExContent.bin", "tmp.txt"))
		{
		print "\tDigest verify content compare FAILED!!\n";
		$badtest++;
		}
	else
{'fraction_non_alphanumeric': 0.18379888268156425, 'fraction_numerical': 0.013687150837988826, 'mean_word_length': 3.839810746873944, 'pattern_counts': {'":': 0, '<': 8, '<?xml version=': 0, '>': 53, 'https://': 0, 'lorem ipsum': 0, 'www.': 4, 'xml': 0}, 'pii_count': 1, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4841700', 'n_tokens_mistral': 5764, 'n_tokens_neox': 5250, 'n_words': 1511}