2 # Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
9 # Perl script to run tests against S/MIME examples in RFC4134
10 # Assumes RFC is in current directory and called "rfc4134.txt"
19 my $exfile = "./rfc4134.txt";
21 if (-f "../apps/openssl")
23 $cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
25 elsif (-f "..\\out32dll\\openssl.exe")
27 $cmscmd = "..\\out32dll\\openssl.exe cms";
29 elsif (-f "..\\out32\\openssl.exe")
31 $cmscmd = "..\\out32\\openssl.exe cms";
35 [ "3.1.bin" => "dataout" ],
36 [ "3.2.bin" => "encode, dataout" ],
37 [ "4.1.bin" => "encode, verifyder, cont, dss" ],
38 [ "4.2.bin" => "encode, verifyder, cont, rsa" ],
39 [ "4.3.bin" => "encode, verifyder, cont_extern, dss" ],
40 [ "4.4.bin" => "encode, verifyder, cont, dss" ],
41 [ "4.5.bin" => "verifyder, cont, rsa" ],
42 [ "4.6.bin" => "encode, verifyder, cont, dss" ],
43 [ "4.7.bin" => "encode, verifyder, cont, dss" ],
44 [ "4.8.eml" => "verifymime, dss" ],
45 [ "4.9.eml" => "verifymime, dss" ],
46 [ "4.10.bin" => "encode, verifyder, cont, dss" ],
47 [ "4.11.bin" => "encode, certsout" ],
48 [ "5.1.bin" => "encode, envelopeder, cont" ],
49 [ "5.2.bin" => "encode, envelopeder, cont" ],
50 [ "5.3.eml" => "envelopemime, cont" ],
51 [ "6.0.bin" => "encode, digest, cont" ],
52 [ "7.1.bin" => "encode, encrypted, cont" ],
53 [ "7.2.bin" => "encode, encrypted, cont" ]
56 # Extract examples from RFC4134 text.
57 # Base64 decode all examples, certificates and
58 # private keys are converted to PEM format.
60 my ( $filename, $data );
62 my @cleanup = ( "cms.out", "cms.err", "tmp.der", "tmp.txt" );
66 open( IN, $exfile ) || die "Can't Open RFC examples file $exfile";
77 $filename = "$exdir/$filename";
78 if ( $filename =~ /\.bin$/ || $filename =~ /\.eml$/ ) {
79 $data = decode_base64($data);
80 open OUT, ">$filename";
84 push @cleanup, $filename;
86 elsif ( $filename =~ /\.cer$/ ) {
87 write_pem( $filename, "CERTIFICATE", $data );
89 elsif ( $filename =~ /\.pri$/ ) {
90 write_pem( $filename, "PRIVATE KEY", $data );
102 "73:7c:79:1f:25:ea:d0:e0:46:29:25:43:52:f7:dc:62:91:e5:cb:26:91:7a:da:32";
104 foreach (@test_list) {
105 my ( $file, $tlist ) = @$_;
106 print "Example file $file:\n";
107 if ( $tlist =~ /encode/ ) {
108 run_reencode_test( $exdir, $file );
110 if ( $tlist =~ /certsout/ ) {
111 run_certsout_test( $exdir, $file );
113 if ( $tlist =~ /dataout/ ) {
114 run_dataout_test( $exdir, $file );
116 if ( $tlist =~ /verify/ ) {
117 run_verify_test( $exdir, $tlist, $file );
119 if ( $tlist =~ /digest/ ) {
120 run_digest_test( $exdir, $tlist, $file );
122 if ( $tlist =~ /encrypted/ ) {
123 run_encrypted_test( $exdir, $tlist, $file, $secretkey );
125 if ( $tlist =~ /envelope/ ) {
126 run_envelope_test( $exdir, $tlist, $file );
136 print "\n$badtest TESTS FAILED!!\n";
139 print "\n***All tests successful***\n";
143 my ( $filename, $str, $data ) = @_;
145 $filename =~ s/\.[^.]*$/.pem/;
147 push @cleanup, $filename;
149 open OUT, ">$filename";
151 print OUT "-----BEGIN $str-----\n";
153 print OUT "-----END $str-----\n";
158 sub run_reencode_test {
159 my ( $cmsdir, $tfile ) = @_;
162 system( "$cmscmd -cmsout -inform DER -outform DER"
163 . " -in $cmsdir/$tfile -out tmp.der" );
166 print "\tReencode command FAILED!!\n";
169 elsif ( !cmp_files( "$cmsdir/$tfile", "tmp.der" ) ) {
170 print "\tReencode FAILED!!\n";
174 print "\tReencode passed\n" if $verbose;
178 sub run_certsout_test {
179 my ( $cmsdir, $tfile ) = @_;
183 system( "$cmscmd -cmsout -inform DER -certsout tmp.pem"
184 . " -in $cmsdir/$tfile -out tmp.der" );
187 print "\tCertificate output command FAILED!!\n";
191 print "\tCertificate output passed\n" if $verbose;
195 sub run_dataout_test {
196 my ( $cmsdir, $tfile ) = @_;
200 "$cmscmd -data_out -inform DER" . " -in $cmsdir/$tfile -out tmp.txt" );
203 print "\tDataout command FAILED!!\n";
206 elsif ( !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) ) {
207 print "\tDataout compare FAILED!!\n";
211 print "\tDataout passed\n" if $verbose;
215 sub run_verify_test {
216 my ( $cmsdir, $tlist, $tfile ) = @_;
219 $form = "DER" if $tlist =~ /verifyder/;
220 $form = "SMIME" if $tlist =~ /verifymime/;
221 $cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
222 $cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;
225 "$cmscmd -verify -inform $form"
227 . " -in $cmsdir/$tfile -out tmp.txt";
229 $cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;
231 system("$cmd 2>cms.err 1>cms.out");
234 print "\tVerify command FAILED!!\n";
237 elsif ( $tlist =~ /cont/
238 && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
240 print "\tVerify content compare FAILED!!\n";
244 print "\tVerify passed\n" if $verbose;
248 sub run_envelope_test {
249 my ( $cmsdir, $tlist, $tfile ) = @_;
252 $form = "DER" if $tlist =~ /envelopeder/;
253 $form = "SMIME" if $tlist =~ /envelopemime/;
256 "$cmscmd -decrypt -inform $form"
257 . " -recip $cmsdir/BobRSASignByCarl.pem"
258 . " -inkey $cmsdir/BobPrivRSAEncrypt.pem"
259 . " -in $cmsdir/$tfile -out tmp.txt";
261 system("$cmd 2>cms.err 1>cms.out");
264 print "\tDecrypt command FAILED!!\n";
267 elsif ( $tlist =~ /cont/
268 && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
270 print "\tDecrypt content compare FAILED!!\n";
274 print "\tDecrypt passed\n" if $verbose;
278 sub run_digest_test {
279 my ( $cmsdir, $tlist, $tfile ) = @_;
283 "$cmscmd -digest_verify -inform DER" . " -in $cmsdir/$tfile -out tmp.txt";
285 system("$cmd 2>cms.err 1>cms.out");
288 print "\tDigest verify command FAILED!!\n";
291 elsif ( $tlist =~ /cont/
292 && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
294 print "\tDigest verify content compare FAILED!!\n";
298 print "\tDigest verify passed\n" if $verbose;
302 sub run_encrypted_test {
303 my ( $cmsdir, $tlist, $tfile, $key ) = @_;
306 system( "$cmscmd -EncryptedData_decrypt -inform DER"
308 . " -in $cmsdir/$tfile -out tmp.txt" );
311 print "\tEncrypted Data command FAILED!!\n";
314 elsif ( $tlist =~ /cont/
315 && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
317 print "\tEncrypted Data content compare FAILED!!\n";
321 print "\tEncryptedData verify passed\n" if $verbose;
326 my ( $f1, $f2 ) = @_;
331 if ( !open( $fp1, "<$f1" ) ) {
332 print STDERR "Can't Open file $f1\n";
336 if ( !open( $fp2, "<$f2" ) ) {
337 print STDERR "Can't Open file $f2\n";
347 $n1 = sysread $fp1, $rd1, 4096;
348 $n2 = sysread $fp2, $rd2, 4096;
349 last if ( $n1 != $n2 );
350 last if ( $rd1 ne $rd2 );