generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Extend runex.pl to extract examples directly from RFC text.

Browse Source
This commit is contained in:
Dr. Stephen Henson 2008-03-16 18:03:48 +00:00
parent a981e2adbc
commit d7c738a09a
1 changed files with 273 additions and 245 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

230
test/runex.pl
View File

@ -1,4 +1,4 @@
# test/runex.pl # test/cms-examples.pl
# Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL # Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
# project. # project.
# #
@ -51,15 +51,16 @@
# ==================================================================== # ====================================================================
# Perl script to run tests against S/MIME examples in RFC4134 # Perl script to run tests against S/MIME examples in RFC4134
# Assumes all files are extracted in an directory called "examples" # Assumes RFC is in current directory and called "rfc4134.txt"
use MIME::Base64;
my $badttest = 0; my $badttest = 0;
my $verbose = 1; my $verbose = 1;
my $cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms"; my $cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
my $convcmd = "../util/shlib_wrap.sh ../apps/openssl x509 -inform DER"; my $exdir = "./";
my $pconvcmd = "../util/shlib_wrap.sh ../apps/openssl rsa -inform DER"; my $exfile = "./rfc4134.txt";
my $exdir = "examples";
my @test_list = ( my @test_list = (
[ "3.1.bin" => "dataout" ], [ "3.1.bin" => "dataout" ],
@ -83,111 +84,151 @@ my @test_list = (
[ "7.2.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"; # Extract examples from RFC4134 text.
# Base64 decode all examples, certificates and
# private keys are converted to PEM format.
if (!-d $exdir) my ( $filename, $data );
{
my @cleanup = ( "cms.out", "cms.err", "tmp.der", "tmp.txt" );
$data = "";
open( IN, $exfile ) || die "Can't Open RFC examples file $exfile";
while (<IN>) {
next unless (/^\|/);
s/^\|//;
next if (/^\*/);
if (/^>(.*)$/) {
$filename = $1;
next;
}
if (/^</) {
$filename = "$exdir/$filename";
if ( $filename =~ /\.bin$/ || $filename =~ /\.eml$/ ) {
$data = decode_base64($data);
open OUT, ">$filename";
binmode OUT;
print OUT $data;
close OUT;
push @cleanup, $filename;
}
elsif ( $filename =~ /\.cer$/ ) {
write_pem( $filename, "CERTIFICATE", $data );
}
elsif ( $filename =~ /\.pri$/ ) {
write_pem( $filename, "PRIVATE KEY", $data );
}
$data = "";
$filename = "";
}
else {
$data .= $_;
}
}
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"; print STDERR "FATAL ERROR: examples directory missing!!\n";
exit 1; 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) { foreach (@test_list) {
my ( $file, $tlist ) = @$_; my ( $file, $tlist ) = @$_;
print "Example file $file:\n"; print "Example file $file:\n";
if ($tlist =~ /encode/) if ( $tlist =~ /encode/ ) {
{
run_reencode_test( $exdir, $file ); run_reencode_test( $exdir, $file );
} }
if ($tlist =~ /dataout/) if ( $tlist =~ /dataout/ ) {
{
run_dataout_test( $exdir, $file ); run_dataout_test( $exdir, $file );
} }
if ($tlist =~ /verify/) if ( $tlist =~ /verify/ ) {
{
run_verify_test( $exdir, $tlist, $file ); run_verify_test( $exdir, $tlist, $file );
} }
if ($tlist =~ /digest/) if ( $tlist =~ /digest/ ) {
{
run_digest_test( $exdir, $tlist, $file ); run_digest_test( $exdir, $tlist, $file );
} }
if ($tlist =~ /encrypted/) if ( $tlist =~ /encrypted/ ) {
{
run_encrypted_test( $exdir, $tlist, $file, $secretkey ); run_encrypted_test( $exdir, $tlist, $file, $secretkey );
} }
if ($tlist =~ /envelope/) if ( $tlist =~ /envelope/ ) {
{
run_envelope_test( $exdir, $tlist, $file ); run_envelope_test( $exdir, $tlist, $file );
} }
} }
unlink "cms.out"; foreach (@cleanup) {
unlink "cms.err"; unlink $_;
unlink "tmp.der"; }
unlink "tmp.txt";
if ($badtest) { if ($badtest) {
print "\n$badtest TESTS FAILED!!\n"; print "\n$badtest TESTS FAILED!!\n";
} else { }
else {
print "\n***All tests successful***\n"; print "\n***All tests successful***\n";
} }
sub write_pem {
my ( $filename, $str, $data ) = @_;
sub run_reencode_test $filename =~ s/\.[^.]*$/.pem/;
{
push @cleanup, $filename;
open OUT, ">$filename";
print OUT "-----BEGIN $str-----\n";
print OUT $data;
print OUT "-----END $str-----\n";
close OUT;
}
sub run_reencode_test {
my ( $cmsdir, $tfile ) = @_; my ( $cmsdir, $tfile ) = @_;
unlink "tmp.der"; unlink "tmp.der";
system ("$cmscmd -cmsout -inform DER -outform DER" . system( "$cmscmd -cmsout -inform DER -outform DER"
" -in $cmsdir/$tfile -out tmp.der"); . " -in $cmsdir/$tfile -out tmp.der" );
if ($?) if ($?) {
{
print "\tReencode command FAILED!!\n"; print "\tReencode command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif (!cmp_files("$cmsdir/$tfile", "tmp.der")) elsif ( !cmp_files( "$cmsdir/$tfile", "tmp.der" ) ) {
{
print "\tReencode FAILED!!\n"; print "\tReencode FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tReencode passed\n" if $verbose; print "\tReencode passed\n" if $verbose;
} }
} }
sub run_dataout_test sub run_dataout_test {
{
my ( $cmsdir, $tfile ) = @_; my ( $cmsdir, $tfile ) = @_;
unlink "tmp.txt"; unlink "tmp.txt";
system ("$cmscmd -data_out -inform DER" . system(
" -in $cmsdir/$tfile -out tmp.txt"); "$cmscmd -data_out -inform DER" . " -in $cmsdir/$tfile -out tmp.txt" );
if ($?) if ($?) {
{
print "\tDataout command FAILED!!\n"; print "\tDataout command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif (!cmp_files("$cmsdir/ExContent.bin", "tmp.txt")) elsif ( !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) ) {
{
print "\tDataout compare FAILED!!\n"; print "\tDataout compare FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tDataout passed\n" if $verbose; print "\tDataout passed\n" if $verbose;
} }
} }
sub run_verify_test sub run_verify_test {
{
my ( $cmsdir, $tlist, $tfile ) = @_; my ( $cmsdir, $tlist, $tfile ) = @_;
unlink "tmp.txt"; unlink "tmp.txt";
@ -196,118 +237,108 @@ sub run_verify_test
$cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/; $cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
$cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/; $cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;
$cmd = "$cmscmd -verify -inform $form" . $cmd =
" -CAfile $cafile" . "$cmscmd -verify -inform $form"
" -in $cmsdir/$tfile -out tmp.txt"; . " -CAfile $cafile"
. " -in $cmsdir/$tfile -out tmp.txt";
$cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/; $cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;
system("$cmd 2>cms.err 1>cms.out"); system("$cmd 2>cms.err 1>cms.out");
if ($?) if ($?) {
{
print "\tVerify command FAILED!!\n"; print "\tVerify command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif ($tlist =~ /cont/ && elsif ( $tlist =~ /cont/
!cmp_files("$cmsdir/ExContent.bin", "tmp.txt")) && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
{ {
print "\tVerify content compare FAILED!!\n"; print "\tVerify content compare FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tVerify passed\n" if $verbose; print "\tVerify passed\n" if $verbose;
} }
} }
sub run_envelope_test sub run_envelope_test {
{
my ( $cmsdir, $tlist, $tfile ) = @_; my ( $cmsdir, $tlist, $tfile ) = @_;
unlink "tmp.txt"; unlink "tmp.txt";
$form = "DER" if $tlist =~ /envelopeder/; $form = "DER" if $tlist =~ /envelopeder/;
$form = "SMIME" if $tlist =~ /envelopemime/; $form = "SMIME" if $tlist =~ /envelopemime/;
$cmd = "$cmscmd -decrypt -inform $form" . $cmd =
" -recip $cmsdir/BobRSASignByCarl.pem" . "$cmscmd -decrypt -inform $form"
" -inkey $cmsdir/BobPrivRSAEncrypt.pem" . . " -recip $cmsdir/BobRSASignByCarl.pem"
" -in $cmsdir/$tfile -out tmp.txt"; . " -inkey $cmsdir/BobPrivRSAEncrypt.pem"
. " -in $cmsdir/$tfile -out tmp.txt";
system("$cmd 2>cms.err 1>cms.out"); system("$cmd 2>cms.err 1>cms.out");
if ($?) if ($?) {
{
print "\tDecrypt command FAILED!!\n"; print "\tDecrypt command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif ($tlist =~ /cont/ && elsif ( $tlist =~ /cont/
!cmp_files("$cmsdir/ExContent.bin", "tmp.txt")) && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
{ {
print "\tDecrypt content compare FAILED!!\n"; print "\tDecrypt content compare FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tDecrypt passed\n" if $verbose; print "\tDecrypt passed\n" if $verbose;
} }
} }
sub run_digest_test sub run_digest_test {
{
my ( $cmsdir, $tlist, $tfile ) = @_; my ( $cmsdir, $tlist, $tfile ) = @_;
unlink "tmp.txt"; unlink "tmp.txt";
my $cmd = "$cmscmd -digest_verify -inform DER" . my $cmd =
" -in $cmsdir/$tfile -out tmp.txt"; "$cmscmd -digest_verify -inform DER" . " -in $cmsdir/$tfile -out tmp.txt";
system("$cmd 2>cms.err 1>cms.out"); system("$cmd 2>cms.err 1>cms.out");
if ($?) if ($?) {
{
print "\tDigest verify command FAILED!!\n"; print "\tDigest verify command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif ($tlist =~ /cont/ && elsif ( $tlist =~ /cont/
!cmp_files("$cmsdir/ExContent.bin", "tmp.txt")) && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
{ {
print "\tDigest verify content compare FAILED!!\n"; print "\tDigest verify content compare FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tDigest verify passed\n" if $verbose; print "\tDigest verify passed\n" if $verbose;
} }
} }
sub run_encrypted_test sub run_encrypted_test {
{
my ( $cmsdir, $tlist, $tfile, $key ) = @_; my ( $cmsdir, $tlist, $tfile, $key ) = @_;
unlink "tmp.txt"; unlink "tmp.txt";
system ("$cmscmd -EncryptedData_decrypt -inform DER" . system( "$cmscmd -EncryptedData_decrypt -inform DER"
" -secretkey $key" . . " -secretkey $key"
" -in $cmsdir/$tfile -out tmp.txt"); . " -in $cmsdir/$tfile -out tmp.txt" );
if ($?) if ($?) {
{
print "\tEncrypted Data command FAILED!!\n"; print "\tEncrypted Data command FAILED!!\n";
$badtest++; $badtest++;
} }
elsif ($tlist =~ /cont/ && elsif ( $tlist =~ /cont/
!cmp_files("$cmsdir/ExContent.bin", "tmp.txt")) && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
{ {
print "\tEncrypted Data content compare FAILED!!\n"; print "\tEncrypted Data content compare FAILED!!\n";
$badtest++; $badtest++;
} }
else else {
{
print "\tEncryptedData verify passed\n" if $verbose; print "\tEncryptedData verify passed\n" if $verbose;
} }
} }
sub cmp_files sub cmp_files {
{
my ( $f1, $f2 ) = @_; my ( $f1, $f2 ) = @_;
my ( $fp1, $fp2 ); my ( $fp1, $fp2 );
@ -328,15 +359,13 @@ sub cmp_files
my $ret = 0; my $ret = 0;
for (;;) for ( ; ; ) {
{
$n1 = sysread $fp1, $rd1, 4096; $n1 = sysread $fp1, $rd1, 4096;
$n2 = sysread $fp2, $rd2, 4096; $n2 = sysread $fp2, $rd2, 4096;
last if ( $n1 != $n2 ); last if ( $n1 != $n2 );
last if ( $rd1 ne $rd2 ); last if ( $rd1 ne $rd2 );
if ($n1 == 0) if ( $n1 == 0 ) {
{
$ret = 1; $ret = 1;
last; last;
} }
@ -350,4 +379,3 @@ sub cmp_files
} }