release/src/router/openssl/test/cms-test.pl

   1 # test/cms-test.pl
   2 # Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
   3 # project.
   4 #
   5 # ====================================================================
   6 # Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
   7 #
   8 # Redistribution and use in source and binary forms, with or without
   9 # modification, are permitted provided that the following conditions
  10 # are met:
  11 #
  12 # 1. Redistributions of source code must retain the above copyright
  13 #    notice, this list of conditions and the following disclaimer.
  14 #
  15 # 2. Redistributions in binary form must reproduce the above copyright
  16 #    notice, this list of conditions and the following disclaimer in
  17 #    the documentation and/or other materials provided with the
  18 #    distribution.
  19 #
  20 # 3. All advertising materials mentioning features or use of this
  21 #    software must display the following acknowledgment:
  22 #    "This product includes software developed by the OpenSSL Project
  23 #    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
  24 #
  25 # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  26 #    endorse or promote products derived from this software without
  27 #    prior written permission. For written permission, please contact
  28 #    licensing@OpenSSL.org.
  29 #
  30 # 5. Products derived from this software may not be called "OpenSSL"
  31 #    nor may "OpenSSL" appear in their names without prior written
  32 #    permission of the OpenSSL Project.
  33 #
  34 # 6. Redistributions of any form whatsoever must retain the following
  35 #    acknowledgment:
  36 #    "This product includes software developed by the OpenSSL Project
  37 #    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
  38 #
  39 # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  40 # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  41 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  42 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
  43 # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  44 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  45 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  46 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  47 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  48 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  49 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  50 # OF THE POSSIBILITY OF SUCH DAMAGE.
  51 # ====================================================================
  52
  53 # CMS, PKCS7 consistency test script. Run extensive tests on
  54 # OpenSSL PKCS#7 and CMS implementations.
  55
  56 my $ossl_path;
  57 my $redir = " 2> cms.err > cms.out";
  58 # Make VMS work
  59 if ( $^O eq "VMS" && -f "OSSLX:openssl.exe" ) {
  60     $ossl_path = "pipe mcr OSSLX:openssl";
  61     $null_path = "NL:";
  62     # On VMS, the lowest 3 bits of the exit code indicates severity
  63     # 1 is success (perl translates it to 0 for $?), 2 is error
  64     # (perl doesn't translate it)
  65     $failure_code = 512;        # 2 << 8 = 512
  66 }
  67 # Make MSYS work
  68 elsif ( $^O eq "MSWin32" && -f "../apps/openssl.exe" ) {
  69     $ossl_path = "cmd /c ..\\apps\\openssl";
  70     $null_path = "NUL";
  71     $failure_code = 256;
  72 }
  73 elsif ( -f "../apps/openssl$ENV{EXE_EXT}" ) {
  74     $ossl_path = "../util/shlib_wrap.sh ../apps/openssl";
  75     $null_path = "/dev/null";
  76     $failure_code = 256;
  77 }
  78 elsif ( -f "..\\out32dll\\openssl.exe" ) {
  79     $ossl_path = "..\\out32dll\\openssl.exe";
  80     $null_path = "NUL";
  81     $failure_code = 256;
  82 }
  83 elsif ( -f "..\\out32\\openssl.exe" ) {
  84     $ossl_path = "..\\out32\\openssl.exe";
  85     $null_path = "NUL";
  86     $failure_code = 256;
  87 }
  88 else {
  89     die "Can't find OpenSSL executable";
  90 }
  91
  92 my $pk7cmd   = "$ossl_path smime ";
  93 my $cmscmd   = "$ossl_path cms ";
  94 my $smdir    = "smime-certs";
  95 my $halt_err = 1;
  96
  97 my $badcmd = 0;
  98 my $no_ec;
  99 my $no_ec2m;
 100 my $no_ecdh;
 101 my $ossl8 = `$ossl_path version -v` =~ /0\.9\.8/;
 102
 103 system ("$ossl_path no-ec > $null_path");
 104 if ($? == 0)
 105         {
 106         $no_ec = 1;
 107         }
 108 elsif ($? == $failure_code)
 109         {
 110         $no_ec = 0;
 111         }
 112 else
 113         {
 114         die "Error checking for EC support\n";
 115         }
 116
 117 system ("$ossl_path no-ec2m > $null_path");
 118 if ($? == 0)
 119         {
 120         $no_ec2m = 1;
 121         }
 122 elsif ($? == $failure_code)
 123         {
 124         $no_ec2m = 0;
 125         }
 126 else
 127         {
 128         die "Error checking for EC2M support\n";
 129         }
 130
 131 system ("$ossl_path no-ecdh > $null_path");
 132 if ($? == 0)
 133         {
 134         $no_ecdh = 1;
 135         }
 136 elsif ($? == $failure_code)
 137         {
 138         $no_ecdh = 0;
 139         }
 140 else
 141         {
 142         die "Error checking for ECDH support\n";
 143         }
 144
 145 my @smime_pkcs7_tests = (
 146
 147     [
 148         "signed content DER format, RSA key",
 149         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 150           . " -certfile $smdir/smroot.pem"
 151           . " -signer $smdir/smrsa1.pem -out test.cms",
 152         "-verify -in test.cms -inform \"DER\" "
 153           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 154     ],
 155
 156     [
 157         "signed detached content DER format, RSA key",
 158         "-sign -in smcont.txt -outform \"DER\""
 159           . " -signer $smdir/smrsa1.pem -out test.cms",
 160         "-verify -in test.cms -inform \"DER\" "
 161           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 162     ],
 163
 164     [
 165         "signed content test streaming BER format, RSA",
 166         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 167           . " -stream -signer $smdir/smrsa1.pem -out test.cms",
 168         "-verify -in test.cms -inform \"DER\" "
 169           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 170     ],
 171
 172     [
 173         "signed content DER format, DSA key",
 174         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 175           . " -signer $smdir/smdsa1.pem -out test.cms",
 176         "-verify -in test.cms -inform \"DER\" "
 177           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 178     ],
 179
 180     [
 181         "signed detached content DER format, DSA key",
 182         "-sign -in smcont.txt -outform \"DER\""
 183           . " -signer $smdir/smdsa1.pem -out test.cms",
 184         "-verify -in test.cms -inform \"DER\" "
 185           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 186     ],
 187
 188     [
 189         "signed detached content DER format, add RSA signer",
 190         "-resign -inform \"DER\" -in test.cms -outform \"DER\""
 191           . " -signer $smdir/smrsa1.pem -out test2.cms",
 192         "-verify -in test2.cms -inform \"DER\" "
 193           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 194     ],
 195
 196     [
 197         "signed content test streaming BER format, DSA key",
 198         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 199           . " -stream -signer $smdir/smdsa1.pem -out test.cms",
 200         "-verify -in test.cms -inform \"DER\" "
 201           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 202     ],
 203
 204     [
 205         "signed content test streaming BER format, 2 DSA and 2 RSA keys",
 206         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 207           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 208           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 209           . " -stream -out test.cms",
 210         "-verify -in test.cms -inform \"DER\" "
 211           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 212     ],
 213
 214     [
 215 "signed content test streaming BER format, 2 DSA and 2 RSA keys, no attributes",
 216         "-sign -in smcont.txt -outform \"DER\" -noattr -nodetach"
 217           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 218           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 219           . " -stream -out test.cms",
 220         "-verify -in test.cms -inform \"DER\" "
 221           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 222     ],
 223
 224     [
 225         "signed content test streaming S/MIME format, 2 DSA and 2 RSA keys",
 226         "-sign -in smcont.txt -nodetach"
 227           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 228           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 229           . " -stream -out test.cms",
 230         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 231     ],
 232
 233     [
 234 "signed content test streaming multipart S/MIME format, 2 DSA and 2 RSA keys",
 235         "-sign -in smcont.txt"
 236           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 237           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 238           . " -stream -out test.cms",
 239         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 240     ],
 241
 242     [
 243         "enveloped content test streaming S/MIME format, 3 recipients",
 244         "-encrypt -in smcont.txt"
 245           . " -stream -out test.cms"
 246           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 247         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 248     ],
 249
 250     [
 251 "enveloped content test streaming S/MIME format, 3 recipients, 3rd used",
 252         "-encrypt -in smcont.txt"
 253           . " -stream -out test.cms"
 254           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 255         "-decrypt -recip $smdir/smrsa3.pem -in test.cms -out smtst.txt"
 256     ],
 257
 258     [
 259 "enveloped content test streaming S/MIME format, 3 recipients, key only used",
 260         "-encrypt -in smcont.txt"
 261           . " -stream -out test.cms"
 262           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 263         "-decrypt -inkey $smdir/smrsa3.pem -in test.cms -out smtst.txt"
 264     ],
 265
 266     [
 267 "enveloped content test streaming S/MIME format, AES-256 cipher, 3 recipients",
 268         "-encrypt -in smcont.txt"
 269           . " -aes256 -stream -out test.cms"
 270           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 271         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 272     ],
 273
 274 );
 275
 276 my @smime_cms_tests = (
 277
 278     [
 279         "signed content test streaming BER format, 2 DSA and 2 RSA keys, keyid",
 280         "-sign -in smcont.txt -outform \"DER\" -nodetach -keyid"
 281           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 282           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 283           . " -stream -out test.cms",
 284         "-verify -in test.cms -inform \"DER\" "
 285           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 286     ],
 287
 288     [
 289         "signed content test streaming PEM format, 2 DSA and 2 RSA keys",
 290         "-sign -in smcont.txt -outform PEM -nodetach"
 291           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 292           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 293           . " -stream -out test.cms",
 294         "-verify -in test.cms -inform PEM "
 295           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 296     ],
 297
 298     [
 299         "signed content MIME format, RSA key, signed receipt request",
 300         "-sign -in smcont.txt -signer $smdir/smrsa1.pem -nodetach"
 301           . " -receipt_request_to test\@openssl.org -receipt_request_all"
 302           . " -out test.cms",
 303         "-verify -in test.cms "
 304           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 305     ],
 306
 307     [
 308         "signed receipt MIME format, RSA key",
 309         "-sign_receipt -in test.cms"
 310           . " -signer $smdir/smrsa2.pem"
 311           . " -out test2.cms",
 312         "-verify_receipt test2.cms -in test.cms"
 313           . " \"-CAfile\" $smdir/smroot.pem"
 314     ],
 315
 316     [
 317         "enveloped content test streaming S/MIME format, 3 recipients, keyid",
 318         "-encrypt -in smcont.txt"
 319           . " -stream -out test.cms -keyid"
 320           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 321         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 322     ],
 323
 324     [
 325         "enveloped content test streaming PEM format, KEK",
 326         "-encrypt -in smcont.txt -outform PEM -aes128"
 327           . " -stream -out test.cms "
 328           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 329           . " -secretkeyid C0FEE0",
 330         "-decrypt -in test.cms -out smtst.txt -inform PEM"
 331           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 332           . " -secretkeyid C0FEE0"
 333     ],
 334
 335     [
 336         "enveloped content test streaming PEM format, KEK, key only",
 337         "-encrypt -in smcont.txt -outform PEM -aes128"
 338           . " -stream -out test.cms "
 339           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 340           . " -secretkeyid C0FEE0",
 341         "-decrypt -in test.cms -out smtst.txt -inform PEM"
 342           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 343     ],
 344
 345     [
 346         "data content test streaming PEM format",
 347         "-data_create -in smcont.txt -outform PEM -nodetach"
 348           . " -stream -out test.cms",
 349         "-data_out -in test.cms -inform PEM -out smtst.txt"
 350     ],
 351
 352     [
 353         "encrypted content test streaming PEM format, 128 bit RC2 key",
 354         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 355           . " -rc2 -secretkey 000102030405060708090A0B0C0D0E0F"
 356           . " -stream -out test.cms",
 357         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 358           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
 359     ],
 360
 361     [
 362         "encrypted content test streaming PEM format, 40 bit RC2 key",
 363         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 364           . " -rc2 -secretkey 0001020304"
 365           . " -stream -out test.cms",
 366         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 367           . " -secretkey 0001020304 -out smtst.txt"
 368     ],
 369
 370     [
 371         "encrypted content test streaming PEM format, triple DES key",
 372         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 373           . " -des3 -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
 374           . " -stream -out test.cms",
 375         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 376           . " -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
 377           . " -out smtst.txt"
 378     ],
 379
 380     [
 381         "encrypted content test streaming PEM format, 128 bit AES key",
 382         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 383           . " -aes128 -secretkey 000102030405060708090A0B0C0D0E0F"
 384           . " -stream -out test.cms",
 385         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 386           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
 387     ],
 388
 389 );
 390
 391 my @smime_cms_comp_tests = (
 392
 393     [
 394         "compressed content test streaming PEM format",
 395         "-compress -in smcont.txt -outform PEM -nodetach"
 396           . " -stream -out test.cms",
 397         "-uncompress -in test.cms -inform PEM -out smtst.txt"
 398     ]
 399
 400 );
 401
 402 my @smime_cms_param_tests = (
 403     [
 404         "signed content test streaming PEM format, RSA keys, PSS signature",
 405         "-sign -in smcont.txt -outform PEM -nodetach"
 406           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 407           . " -out test.cms",
 408         "-verify -in test.cms -inform PEM "
 409           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 410     ],
 411
 412     [
 413         "signed content test streaming PEM format, RSA keys, PSS signature, no attributes",
 414         "-sign -in smcont.txt -outform PEM -nodetach -noattr"
 415           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 416           . " -out test.cms",
 417         "-verify -in test.cms -inform PEM "
 418           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 419     ],
 420
 421     [
 422         "signed content test streaming PEM format, RSA keys, PSS signature, SHA384 MGF1",
 423         "-sign -in smcont.txt -outform PEM -nodetach"
 424           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 425           . " -keyopt rsa_mgf1_md:sha384 -out test.cms",
 426         "-verify -in test.cms -inform PEM "
 427           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 428     ],
 429
 430     [
 431 "enveloped content test streaming S/MIME format, OAEP default parameters",
 432         "-encrypt -in smcont.txt"
 433           . " -stream -out test.cms"
 434           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep",
 435         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 436     ],
 437
 438     [
 439 "enveloped content test streaming S/MIME format, OAEP SHA256",
 440         "-encrypt -in smcont.txt"
 441           . " -stream -out test.cms"
 442           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep"
 443           . " -keyopt rsa_oaep_md:sha256",
 444         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 445     ],
 446
 447     [
 448 "enveloped content test streaming S/MIME format, ECDH",
 449         "-encrypt -in smcont.txt"
 450           . " -stream -out test.cms"
 451           . " -recip $smdir/smec1.pem",
 452         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
 453     ],
 454
 455     [
 456 "enveloped content test streaming S/MIME format, ECDH, AES128, SHA256 KDF",
 457         "-encrypt -in smcont.txt"
 458           . " -stream -out test.cms"
 459           . " -recip $smdir/smec1.pem -aes128 -keyopt ecdh_kdf_md:sha256",
 460         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
 461     ],
 462
 463     [
 464 "enveloped content test streaming S/MIME format, ECDH, K-283, cofactor DH",
 465         "-encrypt -in smcont.txt"
 466           . " -stream -out test.cms"
 467           . " -recip $smdir/smec2.pem -aes128"
 468           . " -keyopt ecdh_kdf_md:sha256 -keyopt ecdh_cofactor_mode:1",
 469         "-decrypt -recip $smdir/smec2.pem -in test.cms -out smtst.txt"
 470     ],
 471
 472     [
 473 "enveloped content test streaming S/MIME format, X9.42 DH",
 474         "-encrypt -in smcont.txt"
 475           . " -stream -out test.cms"
 476           . " -recip $smdir/smdh.pem -aes128",
 477         "-decrypt -recip $smdir/smdh.pem -in test.cms -out smtst.txt"
 478     ]
 479 );
 480
 481 print "CMS => PKCS#7 compatibility tests\n";
 482
 483 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $pk7cmd );
 484
 485 print "CMS <= PKCS#7 compatibility tests\n";
 486
 487 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $pk7cmd, $cmscmd );
 488
 489 print "CMS <=> CMS consistency tests\n";
 490
 491 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $cmscmd );
 492 run_smime_tests( \$badcmd, \@smime_cms_tests,   $cmscmd, $cmscmd );
 493
 494 print "CMS <=> CMS consistency tests, modified key parameters\n";
 495 run_smime_tests( \$badcmd, \@smime_cms_param_tests,   $cmscmd, $cmscmd );
 496
 497 if ( `$ossl_path version -f` =~ /ZLIB/ ) {
 498     run_smime_tests( \$badcmd, \@smime_cms_comp_tests, $cmscmd, $cmscmd );
 499 }
 500 else {
 501     print "Zlib not supported: compression tests skipped\n";
 502 }
 503
 504 print "Running modified tests for OpenSSL 0.9.8 cms backport\n" if($ossl8);
 505
 506 if ($badcmd) {
 507     print "$badcmd TESTS FAILED!!\n";
 508 }
 509 else {
 510     print "ALL TESTS SUCCESSFUL.\n";
 511 }
 512
 513 unlink "test.cms";
 514 unlink "test2.cms";
 515 unlink "smtst.txt";
 516 unlink "cms.out";
 517 unlink "cms.err";
 518
 519 sub run_smime_tests {
 520     my ( $rv, $aref, $scmd, $vcmd ) = @_;
 521
 522     foreach $smtst (@$aref) {
 523         my ( $tnam, $rscmd, $rvcmd ) = @$smtst;
 524         if ($ossl8)
 525                 {
 526                 # Skip smime resign: 0.9.8 smime doesn't support -resign
 527                 next if ($scmd =~ /smime/ && $rscmd =~ /-resign/);
 528                 # Disable streaming: option not supported in 0.9.8
 529                 $tnam =~ s/streaming//;
 530                 $rscmd =~ s/-stream//;
 531                 $rvcmd =~ s/-stream//;
 532                 }
 533         if ($no_ec && $tnam =~ /ECDH/)
 534                 {
 535                 print "$tnam: skipped, EC disabled\n";
 536                 next;
 537                 }
 538         if ($no_ecdh && $tnam =~ /ECDH/)
 539                 {
 540                 print "$tnam: skipped, ECDH disabled\n";
 541                 next;
 542                 }
 543         if ($no_ec2m && $tnam =~ /K-283/)
 544                 {
 545                 print "$tnam: skipped, EC2M disabled\n";
 546                 next;
 547                 }
 548         system("$scmd$rscmd$redir");
 549         if ($?) {
 550             print "$tnam: generation error\n";
 551             $$rv++;
 552             exit 1 if $halt_err;
 553             next;
 554         }
 555         system("$vcmd$rvcmd$redir");
 556         if ($?) {
 557             print "$tnam: verify error\n";
 558             $$rv++;
 559             exit 1 if $halt_err;
 560             next;
 561         }
 562         if (!cmp_files("smtst.txt", "smcont.txt")) {
 563             print "$tnam: content verify error\n";
 564             $$rv++;
 565             exit 1 if $halt_err;
 566             next;
 567         }
 568         print "$tnam: OK\n";
 569     }
 570 }
 571
 572 sub cmp_files {
 573     use FileHandle;
 574     my ( $f1, $f2 ) = @_;
 575     my $fp1 = FileHandle->new();
 576     my $fp2 = FileHandle->new();
 577
 578     my ( $rd1, $rd2 );
 579
 580     if ( !open( $fp1, "<$f1" ) ) {
 581         print STDERR "Can't Open file $f1\n";
 582         return 0;
 583     }
 584
 585     if ( !open( $fp2, "<$f2" ) ) {
 586         print STDERR "Can't Open file $f2\n";
 587         return 0;
 588     }
 589
 590     binmode $fp1;
 591     binmode $fp2;
 592
 593     my $ret = 0;
 594
 595     for ( ; ; ) {
 596         $n1 = sysread $fp1, $rd1, 4096;
 597         $n2 = sysread $fp2, $rd2, 4096;
 598         last if ( $n1 != $n2 );
 599         last if ( $rd1 ne $rd2 );
 600
 601         if ( $n1 == 0 ) {
 602             $ret = 1;
 603             last;
 604         }
 605
 606     }
 607
 608     close $fp1;
 609     close $fp2;
 610
 611     return $ret;
 612
 613 }
 614