1 /* 2 * Copyright 2008-2018 The OpenSSL Project Authors. All Rights Reserved. 3 * 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 8 */ 9 10 /* CMS utility function */ 11 12 #include <stdio.h> 13 #include <string.h> 14 #include "apps.h" 15 16 #ifndef OPENSSL_NO_CMS 17 18 # include <openssl/crypto.h> 19 # include <openssl/pem.h> 20 # include <openssl/err.h> 21 # include <openssl/x509_vfy.h> 22 # include <openssl/x509v3.h> 23 # include <openssl/cms.h> 24 25 static int save_certs(char *signerfile, STACK_OF(X509) *signers); 26 static int cms_cb(int ok, X509_STORE_CTX *ctx); 27 static void receipt_request_print(CMS_ContentInfo *cms); 28 static CMS_ReceiptRequest *make_receipt_request(STACK_OF(OPENSSL_STRING) 29 *rr_to, int rr_allorfirst, STACK_OF(OPENSSL_STRING) 30 *rr_from); 31 static int cms_set_pkey_param(EVP_PKEY_CTX *pctx, 32 STACK_OF(OPENSSL_STRING) *param); 33 34 # define SMIME_OP 0x10 35 # define SMIME_IP 0x20 36 # define SMIME_SIGNERS 0x40 37 # define SMIME_ENCRYPT (1 | SMIME_OP) 38 # define SMIME_DECRYPT (2 | SMIME_IP) 39 # define SMIME_SIGN (3 | SMIME_OP | SMIME_SIGNERS) 40 # define SMIME_VERIFY (4 | SMIME_IP) 41 # define SMIME_CMSOUT (5 | SMIME_IP | SMIME_OP) 42 # define SMIME_RESIGN (6 | SMIME_IP | SMIME_OP | SMIME_SIGNERS) 43 # define SMIME_DATAOUT (7 | SMIME_IP) 44 # define SMIME_DATA_CREATE (8 | SMIME_OP) 45 # define SMIME_DIGEST_VERIFY (9 | SMIME_IP) 46 # define SMIME_DIGEST_CREATE (10 | SMIME_OP) 47 # define SMIME_UNCOMPRESS (11 | SMIME_IP) 48 # define SMIME_COMPRESS (12 | SMIME_OP) 49 # define SMIME_ENCRYPTED_DECRYPT (13 | SMIME_IP) 50 # define SMIME_ENCRYPTED_ENCRYPT (14 | SMIME_OP) 51 # define SMIME_SIGN_RECEIPT (15 | SMIME_IP | SMIME_OP) 52 # define SMIME_VERIFY_RECEIPT (16 | SMIME_IP) 53 54 static int verify_err = 0; 55 56 typedef struct cms_key_param_st cms_key_param; 57 58 struct cms_key_param_st { 59 int idx; 60 STACK_OF(OPENSSL_STRING) *param; 61 cms_key_param *next; 62 }; 63 64 typedef enum OPTION_choice { 65 OPT_ERR = -1, OPT_EOF = 0, OPT_HELP, 66 OPT_INFORM, OPT_OUTFORM, OPT_IN, OPT_OUT, OPT_ENCRYPT, 67 OPT_DECRYPT, OPT_SIGN, OPT_SIGN_RECEIPT, OPT_RESIGN, 68 OPT_VERIFY, OPT_VERIFY_RETCODE, OPT_VERIFY_RECEIPT, 69 OPT_CMSOUT, OPT_DATA_OUT, OPT_DATA_CREATE, OPT_DIGEST_VERIFY, 70 OPT_DIGEST_CREATE, OPT_COMPRESS, OPT_UNCOMPRESS, 71 OPT_ED_DECRYPT, OPT_ED_ENCRYPT, OPT_DEBUG_DECRYPT, OPT_TEXT, 72 OPT_ASCIICRLF, OPT_NOINTERN, OPT_NOVERIFY, OPT_NOCERTS, 73 OPT_NOATTR, OPT_NODETACH, OPT_NOSMIMECAP, OPT_BINARY, OPT_KEYID, 74 OPT_NOSIGS, OPT_NO_CONTENT_VERIFY, OPT_NO_ATTR_VERIFY, OPT_INDEF, 75 OPT_NOINDEF, OPT_CRLFEOL, OPT_NOOUT, OPT_RR_PRINT, 76 OPT_RR_ALL, OPT_RR_FIRST, OPT_RCTFORM, OPT_CERTFILE, OPT_CAFILE, 77 OPT_CAPATH, OPT_NOCAPATH, OPT_NOCAFILE,OPT_CONTENT, OPT_PRINT, 78 OPT_SECRETKEY, OPT_SECRETKEYID, OPT_PWRI_PASSWORD, OPT_ECONTENT_TYPE, 79 OPT_RAND, OPT_PASSIN, OPT_TO, OPT_FROM, OPT_SUBJECT, OPT_SIGNER, OPT_RECIP, 80 OPT_CERTSOUT, OPT_MD, OPT_INKEY, OPT_KEYFORM, OPT_KEYOPT, OPT_RR_FROM, 81 OPT_RR_TO, OPT_AES128_WRAP, OPT_AES192_WRAP, OPT_AES256_WRAP, 82 OPT_3DES_WRAP, OPT_ENGINE, 83 OPT_V_ENUM, 84 OPT_CIPHER 85 } OPTION_CHOICE; 86 87 OPTIONS cms_options[] = { 88 {OPT_HELP_STR, 1, '-', "Usage: %s [options] cert.pem...\n"}, 89 {OPT_HELP_STR, 1, '-', 90 " cert.pem... recipient certs for encryption\n"}, 91 {OPT_HELP_STR, 1, '-', "Valid options are:\n"}, 92 {"help", OPT_HELP, '-', "Display this summary"}, 93 {"inform", OPT_INFORM, 'c', "Input format SMIME (default), PEM or DER"}, 94 {"outform", OPT_OUTFORM, 'c', 95 "Output format SMIME (default), PEM or DER"}, 96 {"in", OPT_IN, '<', "Input file"}, 97 {"out", OPT_OUT, '>', "Output file"}, 98 {"encrypt", OPT_ENCRYPT, '-', "Encrypt message"}, 99 {"decrypt", OPT_DECRYPT, '-', "Decrypt encrypted message"}, 100 {"sign", OPT_SIGN, '-', "Sign message"}, 101 {"sign_receipt", OPT_SIGN_RECEIPT, '-', "Generate a signed receipt for the message"}, 102 {"resign", OPT_RESIGN, '-', "Resign a signed message"}, 103 {"verify", OPT_VERIFY, '-', "Verify signed message"}, 104 {"verify_retcode", OPT_VERIFY_RETCODE, '-'}, 105 {"verify_receipt", OPT_VERIFY_RECEIPT, '<'}, 106 {"cmsout", OPT_CMSOUT, '-', "Output CMS structure"}, 107 {"data_out", OPT_DATA_OUT, '-'}, 108 {"data_create", OPT_DATA_CREATE, '-'}, 109 {"digest_verify", OPT_DIGEST_VERIFY, '-'}, 110 {"digest_create", OPT_DIGEST_CREATE, '-'}, 111 {"compress", OPT_COMPRESS, '-'}, 112 {"uncompress", OPT_UNCOMPRESS, '-'}, 113 {"EncryptedData_decrypt", OPT_ED_DECRYPT, '-'}, 114 {"EncryptedData_encrypt", OPT_ED_ENCRYPT, '-'}, 115 {"debug_decrypt", OPT_DEBUG_DECRYPT, '-'}, 116 {"text", OPT_TEXT, '-', "Include or delete text MIME headers"}, 117 {"asciicrlf", OPT_ASCIICRLF, '-'}, 118 {"nointern", OPT_NOINTERN, '-', 119 "Don't search certificates in message for signer"}, 120 {"noverify", OPT_NOVERIFY, '-', "Don't verify signers certificate"}, 121 {"nocerts", OPT_NOCERTS, '-', 122 "Don't include signers certificate when signing"}, 123 {"noattr", OPT_NOATTR, '-', "Don't include any signed attributes"}, 124 {"nodetach", OPT_NODETACH, '-', "Use opaque signing"}, 125 {"nosmimecap", OPT_NOSMIMECAP, '-', "Omit the SMIMECapabilities attribute"}, 126 {"binary", OPT_BINARY, '-', "Don't translate message to text"}, 127 {"keyid", OPT_KEYID, '-', "Use subject key identifier"}, 128 {"nosigs", OPT_NOSIGS, '-', "Don't verify message signature"}, 129 {"no_content_verify", OPT_NO_CONTENT_VERIFY, '-'}, 130 {"no_attr_verify", OPT_NO_ATTR_VERIFY, '-'}, 131 {"stream", OPT_INDEF, '-', "Enable CMS streaming"}, 132 {"indef", OPT_INDEF, '-', "Same as -stream"}, 133 {"noindef", OPT_NOINDEF, '-', "Disable CMS streaming"}, 134 {"crlfeol", OPT_CRLFEOL, '-', "Use CRLF as EOL termination instead of CR only" }, 135 {"noout", OPT_NOOUT, '-', "For the -cmsout operation do not output the parsed CMS structure"}, 136 {"receipt_request_print", OPT_RR_PRINT, '-', "Print CMS Receipt Request" }, 137 {"receipt_request_all", OPT_RR_ALL, '-'}, 138 {"receipt_request_first", OPT_RR_FIRST, '-'}, 139 {"rctform", OPT_RCTFORM, 'F', "Receipt file format"}, 140 {"certfile", OPT_CERTFILE, '<', "Other certificates file"}, 141 {"CAfile", OPT_CAFILE, '<', "Trusted certificates file"}, 142 {"CApath", OPT_CAPATH, '/', "trusted certificates directory"}, 143 {"no-CAfile", OPT_NOCAFILE, '-', 144 "Do not load the default certificates file"}, 145 {"no-CApath", OPT_NOCAPATH, '-', 146 "Do not load certificates from the default certificates directory"}, 147 {"content", OPT_CONTENT, '<', 148 "Supply or override content for detached signature"}, 149 {"print", OPT_PRINT, '-', 150 "For the -cmsout operation print out all fields of the CMS structure"}, 151 {"secretkey", OPT_SECRETKEY, 's'}, 152 {"secretkeyid", OPT_SECRETKEYID, 's'}, 153 {"pwri_password", OPT_PWRI_PASSWORD, 's'}, 154 {"econtent_type", OPT_ECONTENT_TYPE, 's'}, 155 {"rand", OPT_RAND, 's', 156 "Load the file(s) into the random number generator"}, 157 {"passin", OPT_PASSIN, 's', "Input file pass phrase source"}, 158 {"to", OPT_TO, 's', "To address"}, 159 {"from", OPT_FROM, 's', "From address"}, 160 {"subject", OPT_SUBJECT, 's', "Subject"}, 161 {"signer", OPT_SIGNER, 's', "Signer certificate file"}, 162 {"recip", OPT_RECIP, '<', "Recipient cert file for decryption"}, 163 {"certsout", OPT_CERTSOUT, '>', "Certificate output file"}, 164 {"md", OPT_MD, 's', "Digest algorithm to use when signing or resigning"}, 165 {"inkey", OPT_INKEY, 's', 166 "Input private key (if not signer or recipient)"}, 167 {"keyform", OPT_KEYFORM, 'f', "Input private key format (PEM or ENGINE)"}, 168 {"keyopt", OPT_KEYOPT, 's', "Set public key parameters as n:v pairs"}, 169 {"receipt_request_from", OPT_RR_FROM, 's'}, 170 {"receipt_request_to", OPT_RR_TO, 's'}, 171 {"", OPT_CIPHER, '-', "Any supported cipher"}, 172 OPT_V_OPTIONS, 173 {"aes128-wrap", OPT_AES128_WRAP, '-', "Use AES128 to wrap key"}, 174 {"aes192-wrap", OPT_AES192_WRAP, '-', "Use AES192 to wrap key"}, 175 {"aes256-wrap", OPT_AES256_WRAP, '-', "Use AES256 to wrap key"}, 176 # ifndef OPENSSL_NO_DES 177 {"des3-wrap", OPT_3DES_WRAP, '-', "Use 3DES-EDE to wrap key"}, 178 # endif 179 # ifndef OPENSSL_NO_ENGINE 180 {"engine", OPT_ENGINE, 's', "Use engine e, possibly a hardware device"}, 181 # endif 182 {NULL} 183 }; 184 185 int cms_main(int argc, char **argv) 186 { 187 ASN1_OBJECT *econtent_type = NULL; 188 BIO *in = NULL, *out = NULL, *indata = NULL, *rctin = NULL; 189 CMS_ContentInfo *cms = NULL, *rcms = NULL; 190 CMS_ReceiptRequest *rr = NULL; 191 ENGINE *e = NULL; 192 EVP_PKEY *key = NULL; 193 const EVP_CIPHER *cipher = NULL, *wrap_cipher = NULL; 194 const EVP_MD *sign_md = NULL; 195 STACK_OF(OPENSSL_STRING) *rr_to = NULL, *rr_from = NULL; 196 STACK_OF(OPENSSL_STRING) *sksigners = NULL, *skkeys = NULL; 197 STACK_OF(X509) *encerts = NULL, *other = NULL; 198 X509 *cert = NULL, *recip = NULL, *signer = NULL; 199 X509_STORE *store = NULL; 200 X509_VERIFY_PARAM *vpm = NULL; 201 char *certfile = NULL, *keyfile = NULL, *contfile = NULL; 202 const char *CAfile = NULL, *CApath = NULL; 203 char *certsoutfile = NULL; 204 int noCAfile = 0, noCApath = 0; 205 char *infile = NULL, *outfile = NULL, *rctfile = NULL, *inrand = NULL; 206 char *passinarg = NULL, *passin = NULL, *signerfile = NULL, *recipfile = 207 NULL; 208 char *to = NULL, *from = NULL, *subject = NULL, *prog; 209 cms_key_param *key_first = NULL, *key_param = NULL; 210 int flags = CMS_DETACHED, noout = 0, print = 0, keyidx = -1, vpmtouched = 211 0; 212 int informat = FORMAT_SMIME, outformat = FORMAT_SMIME; 213 int need_rand = 0, operation = 0, ret = 1, rr_print = 0, rr_allorfirst = 214 -1; 215 int verify_retcode = 0, rctformat = FORMAT_SMIME, keyform = FORMAT_PEM; 216 size_t secret_keylen = 0, secret_keyidlen = 0; 217 unsigned char *pwri_pass = NULL, *pwri_tmp = NULL; 218 unsigned char *secret_key = NULL, *secret_keyid = NULL; 219 long ltmp; 220 const char *mime_eol = "\n"; 221 OPTION_CHOICE o; 222 223 if ((vpm = X509_VERIFY_PARAM_new()) == NULL) 224 return 1; 225 226 prog = opt_init(argc, argv, cms_options); 227 while ((o = opt_next()) != OPT_EOF) { 228 switch (o) { 229 case OPT_EOF: 230 case OPT_ERR: 231 opthelp: 232 BIO_printf(bio_err, "%s: Use -help for summary.\n", prog); 233 goto end; 234 case OPT_HELP: 235 opt_help(cms_options); 236 ret = 0; 237 goto end; 238 case OPT_INFORM: 239 if (!opt_format(opt_arg(), OPT_FMT_PDS, &informat)) 240 goto opthelp; 241 break; 242 case OPT_OUTFORM: 243 if (!opt_format(opt_arg(), OPT_FMT_PDS, &outformat)) 244 goto opthelp; 245 break; 246 case OPT_OUT: 247 outfile = opt_arg(); 248 break; 249 case OPT_ENCRYPT: 250 operation = SMIME_ENCRYPT; 251 break; 252 case OPT_DECRYPT: 253 operation = SMIME_DECRYPT; 254 break; 255 case OPT_SIGN: 256 operation = SMIME_SIGN; 257 break; 258 case OPT_SIGN_RECEIPT: 259 operation = SMIME_SIGN_RECEIPT; 260 break; 261 case OPT_RESIGN: 262 operation = SMIME_RESIGN; 263 break; 264 case OPT_VERIFY: 265 operation = SMIME_VERIFY; 266 break; 267 case OPT_VERIFY_RETCODE: 268 verify_retcode = 1; 269 break; 270 case OPT_VERIFY_RECEIPT: 271 operation = SMIME_VERIFY_RECEIPT; 272 rctfile = opt_arg(); 273 break; 274 case OPT_CMSOUT: 275 operation = SMIME_CMSOUT; 276 break; 277 case OPT_DATA_OUT: 278 operation = SMIME_DATAOUT; 279 break; 280 case OPT_DATA_CREATE: 281 operation = SMIME_DATA_CREATE; 282 break; 283 case OPT_DIGEST_VERIFY: 284 operation = SMIME_DIGEST_VERIFY; 285 break; 286 case OPT_DIGEST_CREATE: 287 operation = SMIME_DIGEST_CREATE; 288 break; 289 case OPT_COMPRESS: 290 operation = SMIME_COMPRESS; 291 break; 292 case OPT_UNCOMPRESS: 293 operation = SMIME_UNCOMPRESS; 294 break; 295 case OPT_ED_DECRYPT: 296 operation = SMIME_ENCRYPTED_DECRYPT; 297 break; 298 case OPT_ED_ENCRYPT: 299 operation = SMIME_ENCRYPTED_ENCRYPT; 300 break; 301 case OPT_DEBUG_DECRYPT: 302 flags |= CMS_DEBUG_DECRYPT; 303 break; 304 case OPT_TEXT: 305 flags |= CMS_TEXT; 306 break; 307 case OPT_ASCIICRLF: 308 flags |= CMS_ASCIICRLF; 309 break; 310 case OPT_NOINTERN: 311 flags |= CMS_NOINTERN; 312 break; 313 case OPT_NOVERIFY: 314 flags |= CMS_NO_SIGNER_CERT_VERIFY; 315 break; 316 case OPT_NOCERTS: 317 flags |= CMS_NOCERTS; 318 break; 319 case OPT_NOATTR: 320 flags |= CMS_NOATTR; 321 break; 322 case OPT_NODETACH: 323 flags &= ~CMS_DETACHED; 324 break; 325 case OPT_NOSMIMECAP: 326 flags |= CMS_NOSMIMECAP; 327 break; 328 case OPT_BINARY: 329 flags |= CMS_BINARY; 330 break; 331 case OPT_KEYID: 332 flags |= CMS_USE_KEYID; 333 break; 334 case OPT_NOSIGS: 335 flags |= CMS_NOSIGS; 336 break; 337 case OPT_NO_CONTENT_VERIFY: 338 flags |= CMS_NO_CONTENT_VERIFY; 339 break; 340 case OPT_NO_ATTR_VERIFY: 341 flags |= CMS_NO_ATTR_VERIFY; 342 break; 343 case OPT_INDEF: 344 flags |= CMS_STREAM; 345 break; 346 case OPT_NOINDEF: 347 flags &= ~CMS_STREAM; 348 break; 349 case OPT_CRLFEOL: 350 mime_eol = "\r\n"; 351 flags |= CMS_CRLFEOL; 352 break; 353 case OPT_NOOUT: 354 noout = 1; 355 break; 356 case OPT_RR_PRINT: 357 rr_print = 1; 358 break; 359 case OPT_RR_ALL: 360 rr_allorfirst = 0; 361 break; 362 case OPT_RR_FIRST: 363 rr_allorfirst = 1; 364 break; 365 case OPT_RCTFORM: 366 if (rctformat == FORMAT_SMIME) 367 rcms = SMIME_read_CMS(rctin, NULL); 368 else if (rctformat == FORMAT_PEM) 369 rcms = PEM_read_bio_CMS(rctin, NULL, NULL, NULL); 370 else if (rctformat == FORMAT_ASN1) 371 if (!opt_format(opt_arg(), 372 OPT_FMT_PEMDER | OPT_FMT_SMIME, &rctformat)) 373 goto opthelp; 374 break; 375 case OPT_CERTFILE: 376 certfile = opt_arg(); 377 break; 378 case OPT_CAFILE: 379 CAfile = opt_arg(); 380 break; 381 case OPT_CAPATH: 382 CApath = opt_arg(); 383 break; 384 case OPT_NOCAFILE: 385 noCAfile = 1; 386 break; 387 case OPT_NOCAPATH: 388 noCApath = 1; 389 break; 390 case OPT_IN: 391 infile = opt_arg(); 392 break; 393 case OPT_CONTENT: 394 contfile = opt_arg(); 395 break; 396 case OPT_RR_FROM: 397 if (rr_from == NULL 398 && (rr_from = sk_OPENSSL_STRING_new_null()) == NULL) 399 goto end; 400 sk_OPENSSL_STRING_push(rr_from, opt_arg()); 401 break; 402 case OPT_RR_TO: 403 if (rr_to == NULL 404 && (rr_to = sk_OPENSSL_STRING_new_null()) == NULL) 405 goto end; 406 sk_OPENSSL_STRING_push(rr_to, opt_arg()); 407 break; 408 case OPT_PRINT: 409 noout = print = 1; 410 break; 411 case OPT_SECRETKEY: 412 if (secret_key != NULL) { 413 BIO_printf(bio_err, "Invalid key (supplied twice) %s\n", 414 opt_arg()); 415 goto opthelp; 416 } 417 secret_key = OPENSSL_hexstr2buf(opt_arg(), <mp); 418 if (secret_key == NULL) { 419 BIO_printf(bio_err, "Invalid key %s\n", opt_arg()); 420 goto end; 421 } 422 secret_keylen = (size_t)ltmp; 423 break; 424 case OPT_SECRETKEYID: 425 if (secret_keyid != NULL) { 426 BIO_printf(bio_err, "Invalid id (supplied twice) %s\n", 427 opt_arg()); 428 goto opthelp; 429 } 430 secret_keyid = OPENSSL_hexstr2buf(opt_arg(), <mp); 431 if (secret_keyid == NULL) { 432 BIO_printf(bio_err, "Invalid id %s\n", opt_arg()); 433 goto opthelp; 434 } 435 secret_keyidlen = (size_t)ltmp; 436 break; 437 case OPT_PWRI_PASSWORD: 438 pwri_pass = (unsigned char *)opt_arg(); 439 break; 440 case OPT_ECONTENT_TYPE: 441 if (econtent_type != NULL) { 442 BIO_printf(bio_err, "Invalid OID (supplied twice) %s\n", 443 opt_arg()); 444 goto opthelp; 445 } 446 econtent_type = OBJ_txt2obj(opt_arg(), 0); 447 if (econtent_type == NULL) { 448 BIO_printf(bio_err, "Invalid OID %s\n", opt_arg()); 449 goto opthelp; 450 } 451 break; 452 case OPT_RAND: 453 inrand = opt_arg(); 454 need_rand = 1; 455 break; 456 case OPT_ENGINE: 457 e = setup_engine(opt_arg(), 0); 458 break; 459 case OPT_PASSIN: 460 passinarg = opt_arg(); 461 break; 462 case OPT_TO: 463 to = opt_arg(); 464 break; 465 case OPT_FROM: 466 from = opt_arg(); 467 break; 468 case OPT_SUBJECT: 469 subject = opt_arg(); 470 break; 471 case OPT_CERTSOUT: 472 certsoutfile = opt_arg(); 473 break; 474 case OPT_MD: 475 if (!opt_md(opt_arg(), &sign_md)) 476 goto end; 477 break; 478 case OPT_SIGNER: 479 /* If previous -signer argument add signer to list */ 480 if (signerfile) { 481 if (sksigners == NULL 482 && (sksigners = sk_OPENSSL_STRING_new_null()) == NULL) 483 goto end; 484 sk_OPENSSL_STRING_push(sksigners, signerfile); 485 if (keyfile == NULL) 486 keyfile = signerfile; 487 if (skkeys == NULL 488 && (skkeys = sk_OPENSSL_STRING_new_null()) == NULL) 489 goto end; 490 sk_OPENSSL_STRING_push(skkeys, keyfile); 491 keyfile = NULL; 492 } 493 signerfile = opt_arg(); 494 break; 495 case OPT_INKEY: 496 /* If previous -inkey argument add signer to list */ 497 if (keyfile) { 498 if (signerfile == NULL) { 499 BIO_puts(bio_err, "Illegal -inkey without -signer\n"); 500 goto end; 501 } 502 if (sksigners == NULL 503 && (sksigners = sk_OPENSSL_STRING_new_null()) == NULL) 504 goto end; 505 sk_OPENSSL_STRING_push(sksigners, signerfile); 506 signerfile = NULL; 507 if (skkeys == NULL 508 && (skkeys = sk_OPENSSL_STRING_new_null()) == NULL) 509 goto end; 510 sk_OPENSSL_STRING_push(skkeys, keyfile); 511 } 512 keyfile = opt_arg(); 513 break; 514 case OPT_KEYFORM: 515 if (!opt_format(opt_arg(), OPT_FMT_ANY, &keyform)) 516 goto opthelp; 517 break; 518 case OPT_RECIP: 519 if (operation == SMIME_ENCRYPT) { 520 if (encerts == NULL && (encerts = sk_X509_new_null()) == NULL) 521 goto end; 522 cert = load_cert(opt_arg(), FORMAT_PEM, 523 "recipient certificate file"); 524 if (cert == NULL) 525 goto end; 526 sk_X509_push(encerts, cert); 527 cert = NULL; 528 } else 529 recipfile = opt_arg(); 530 break; 531 case OPT_CIPHER: 532 if (!opt_cipher(opt_unknown(), &cipher)) 533 goto end; 534 break; 535 case OPT_KEYOPT: 536 keyidx = -1; 537 if (operation == SMIME_ENCRYPT) { 538 if (encerts) 539 keyidx += sk_X509_num(encerts); 540 } else { 541 if (keyfile || signerfile) 542 keyidx++; 543 if (skkeys) 544 keyidx += sk_OPENSSL_STRING_num(skkeys); 545 } 546 if (keyidx < 0) { 547 BIO_printf(bio_err, "No key specified\n"); 548 goto opthelp; 549 } 550 if (key_param == NULL || key_param->idx != keyidx) { 551 cms_key_param *nparam; 552 nparam = app_malloc(sizeof(*nparam), "key param buffer"); 553 nparam->idx = keyidx; 554 if ((nparam->param = sk_OPENSSL_STRING_new_null()) == NULL) 555 goto end; 556 nparam->next = NULL; 557 if (key_first == NULL) 558 key_first = nparam; 559 else 560 key_param->next = nparam; 561 key_param = nparam; 562 } 563 sk_OPENSSL_STRING_push(key_param->param, opt_arg()); 564 break; 565 case OPT_V_CASES: 566 if (!opt_verify(o, vpm)) 567 goto end; 568 vpmtouched++; 569 break; 570 case OPT_3DES_WRAP: 571 # ifndef OPENSSL_NO_DES 572 wrap_cipher = EVP_des_ede3_wrap(); 573 # endif 574 break; 575 case OPT_AES128_WRAP: 576 wrap_cipher = EVP_aes_128_wrap(); 577 break; 578 case OPT_AES192_WRAP: 579 wrap_cipher = EVP_aes_192_wrap(); 580 break; 581 case OPT_AES256_WRAP: 582 wrap_cipher = EVP_aes_256_wrap(); 583 break; 584 } 585 } 586 argc = opt_num_rest(); 587 argv = opt_rest(); 588 589 if (((rr_allorfirst != -1) || rr_from) && !rr_to) { 590 BIO_puts(bio_err, "No Signed Receipts Recipients\n"); 591 goto opthelp; 592 } 593 594 if (!(operation & SMIME_SIGNERS) && (rr_to || rr_from)) { 595 BIO_puts(bio_err, "Signed receipts only allowed with -sign\n"); 596 goto opthelp; 597 } 598 if (!(operation & SMIME_SIGNERS) && (skkeys || sksigners)) { 599 BIO_puts(bio_err, "Multiple signers or keys not allowed\n"); 600 goto opthelp; 601 } 602 603 if (operation & SMIME_SIGNERS) { 604 if (keyfile && !signerfile) { 605 BIO_puts(bio_err, "Illegal -inkey without -signer\n"); 606 goto opthelp; 607 } 608 /* Check to see if any final signer needs to be appended */ 609 if (signerfile) { 610 if (!sksigners 611 && (sksigners = sk_OPENSSL_STRING_new_null()) == NULL) 612 goto end; 613 sk_OPENSSL_STRING_push(sksigners, signerfile); 614 if (!skkeys && (skkeys = sk_OPENSSL_STRING_new_null()) == NULL) 615 goto end; 616 if (!keyfile) 617 keyfile = signerfile; 618 sk_OPENSSL_STRING_push(skkeys, keyfile); 619 } 620 if (!sksigners) { 621 BIO_printf(bio_err, "No signer certificate specified\n"); 622 goto opthelp; 623 } 624 signerfile = NULL; 625 keyfile = NULL; 626 need_rand = 1; 627 } 628 629 else if (operation == SMIME_DECRYPT) { 630 if (!recipfile && !keyfile && !secret_key && !pwri_pass) { 631 BIO_printf(bio_err, 632 "No recipient certificate or key specified\n"); 633 goto opthelp; 634 } 635 } else if (operation == SMIME_ENCRYPT) { 636 if (*argv == NULL && !secret_key && !pwri_pass && !encerts) { 637 BIO_printf(bio_err, "No recipient(s) certificate(s) specified\n"); 638 goto opthelp; 639 } 640 need_rand = 1; 641 } else if (!operation) 642 goto opthelp; 643 644 if (!app_passwd(passinarg, NULL, &passin, NULL)) { 645 BIO_printf(bio_err, "Error getting password\n"); 646 goto end; 647 } 648 649 if (need_rand) { 650 app_RAND_load_file(NULL, (inrand != NULL)); 651 if (inrand != NULL) 652 BIO_printf(bio_err, "%ld semi-random bytes loaded\n", 653 app_RAND_load_files(inrand)); 654 } 655 656 ret = 2; 657 658 if (!(operation & SMIME_SIGNERS)) 659 flags &= ~CMS_DETACHED; 660 661 if (!(operation & SMIME_OP)) { 662 if (flags & CMS_BINARY) 663 outformat = FORMAT_BINARY; 664 } 665 666 if (!(operation & SMIME_IP)) { 667 if (flags & CMS_BINARY) 668 informat = FORMAT_BINARY; 669 } 670 671 if (operation == SMIME_ENCRYPT) { 672 if (!cipher) { 673 # ifndef OPENSSL_NO_DES 674 cipher = EVP_des_ede3_cbc(); 675 # else 676 BIO_printf(bio_err, "No cipher selected\n"); 677 goto end; 678 # endif 679 } 680 681 if (secret_key && !secret_keyid) { 682 BIO_printf(bio_err, "No secret key id\n"); 683 goto end; 684 } 685 686 if (*argv && !encerts) 687 if ((encerts = sk_X509_new_null()) == NULL) 688 goto end; 689 while (*argv) { 690 if ((cert = load_cert(*argv, FORMAT_PEM, 691 "recipient certificate file")) == NULL) 692 goto end; 693 sk_X509_push(encerts, cert); 694 cert = NULL; 695 argv++; 696 } 697 } 698 699 if (certfile) { 700 if (!load_certs(certfile, &other, FORMAT_PEM, NULL, 701 "certificate file")) { 702 ERR_print_errors(bio_err); 703 goto end; 704 } 705 } 706 707 if (recipfile && (operation == SMIME_DECRYPT)) { 708 if ((recip = load_cert(recipfile, FORMAT_PEM, 709 "recipient certificate file")) == NULL) { 710 ERR_print_errors(bio_err); 711 goto end; 712 } 713 } 714 715 if (operation == SMIME_SIGN_RECEIPT) { 716 if ((signer = load_cert(signerfile, FORMAT_PEM, 717 "receipt signer certificate file")) == NULL) { 718 ERR_print_errors(bio_err); 719 goto end; 720 } 721 } 722 723 if (operation == SMIME_DECRYPT) { 724 if (!keyfile) 725 keyfile = recipfile; 726 } else if ((operation == SMIME_SIGN) || (operation == SMIME_SIGN_RECEIPT)) { 727 if (!keyfile) 728 keyfile = signerfile; 729 } else 730 keyfile = NULL; 731 732 if (keyfile) { 733 key = load_key(keyfile, keyform, 0, passin, e, "signing key file"); 734 if (!key) 735 goto end; 736 } 737 738 in = bio_open_default(infile, 'r', informat); 739 if (in == NULL) 740 goto end; 741 742 if (operation & SMIME_IP) { 743 if (informat == FORMAT_SMIME) 744 cms = SMIME_read_CMS(in, &indata); 745 else if (informat == FORMAT_PEM) 746 cms = PEM_read_bio_CMS(in, NULL, NULL, NULL); 747 else if (informat == FORMAT_ASN1) 748 cms = d2i_CMS_bio(in, NULL); 749 else { 750 BIO_printf(bio_err, "Bad input format for CMS file\n"); 751 goto end; 752 } 753 754 if (!cms) { 755 BIO_printf(bio_err, "Error reading S/MIME message\n"); 756 goto end; 757 } 758 if (contfile) { 759 BIO_free(indata); 760 if ((indata = BIO_new_file(contfile, "rb")) == NULL) { 761 BIO_printf(bio_err, "Can't read content file %s\n", contfile); 762 goto end; 763 } 764 } 765 if (certsoutfile) { 766 STACK_OF(X509) *allcerts; 767 allcerts = CMS_get1_certs(cms); 768 if (!save_certs(certsoutfile, allcerts)) { 769 BIO_printf(bio_err, 770 "Error writing certs to %s\n", certsoutfile); 771 ret = 5; 772 goto end; 773 } 774 sk_X509_pop_free(allcerts, X509_free); 775 } 776 } 777 778 if (rctfile) { 779 char *rctmode = (rctformat == FORMAT_ASN1) ? "rb" : "r"; 780 if ((rctin = BIO_new_file(rctfile, rctmode)) == NULL) { 781 BIO_printf(bio_err, "Can't open receipt file %s\n", rctfile); 782 goto end; 783 } 784 785 if (rctformat == FORMAT_SMIME) 786 rcms = SMIME_read_CMS(rctin, NULL); 787 else if (rctformat == FORMAT_PEM) 788 rcms = PEM_read_bio_CMS(rctin, NULL, NULL, NULL); 789 else if (rctformat == FORMAT_ASN1) 790 rcms = d2i_CMS_bio(rctin, NULL); 791 else { 792 BIO_printf(bio_err, "Bad input format for receipt\n"); 793 goto end; 794 } 795 796 if (!rcms) { 797 BIO_printf(bio_err, "Error reading receipt\n"); 798 goto end; 799 } 800 } 801 802 out = bio_open_default(outfile, 'w', outformat); 803 if (out == NULL) 804 goto end; 805 806 if ((operation == SMIME_VERIFY) || (operation == SMIME_VERIFY_RECEIPT)) { 807 if ((store = setup_verify(CAfile, CApath, noCAfile, noCApath)) == NULL) 808 goto end; 809 X509_STORE_set_verify_cb(store, cms_cb); 810 if (vpmtouched) 811 X509_STORE_set1_param(store, vpm); 812 } 813 814 ret = 3; 815 816 if (operation == SMIME_DATA_CREATE) { 817 cms = CMS_data_create(in, flags); 818 } else if (operation == SMIME_DIGEST_CREATE) { 819 cms = CMS_digest_create(in, sign_md, flags); 820 } else if (operation == SMIME_COMPRESS) { 821 cms = CMS_compress(in, -1, flags); 822 } else if (operation == SMIME_ENCRYPT) { 823 int i; 824 flags |= CMS_PARTIAL; 825 cms = CMS_encrypt(NULL, in, cipher, flags); 826 if (!cms) 827 goto end; 828 for (i = 0; i < sk_X509_num(encerts); i++) { 829 CMS_RecipientInfo *ri; 830 cms_key_param *kparam; 831 int tflags = flags; 832 X509 *x = sk_X509_value(encerts, i); 833 for (kparam = key_first; kparam; kparam = kparam->next) { 834 if (kparam->idx == i) { 835 tflags |= CMS_KEY_PARAM; 836 break; 837 } 838 } 839 ri = CMS_add1_recipient_cert(cms, x, tflags); 840 if (!ri) 841 goto end; 842 if (kparam) { 843 EVP_PKEY_CTX *pctx; 844 pctx = CMS_RecipientInfo_get0_pkey_ctx(ri); 845 if (!cms_set_pkey_param(pctx, kparam->param)) 846 goto end; 847 } 848 if (CMS_RecipientInfo_type(ri) == CMS_RECIPINFO_AGREE 849 && wrap_cipher) { 850 EVP_CIPHER_CTX *wctx; 851 wctx = CMS_RecipientInfo_kari_get0_ctx(ri); 852 EVP_EncryptInit_ex(wctx, wrap_cipher, NULL, NULL, NULL); 853 } 854 } 855 856 if (secret_key) { 857 if (!CMS_add0_recipient_key(cms, NID_undef, 858 secret_key, secret_keylen, 859 secret_keyid, secret_keyidlen, 860 NULL, NULL, NULL)) 861 goto end; 862 /* NULL these because call absorbs them */ 863 secret_key = NULL; 864 secret_keyid = NULL; 865 } 866 if (pwri_pass) { 867 pwri_tmp = (unsigned char *)OPENSSL_strdup((char *)pwri_pass); 868 if (!pwri_tmp) 869 goto end; 870 if (!CMS_add0_recipient_password(cms, 871 -1, NID_undef, NID_undef, 872 pwri_tmp, -1, NULL)) 873 goto end; 874 pwri_tmp = NULL; 875 } 876 if (!(flags & CMS_STREAM)) { 877 if (!CMS_final(cms, in, NULL, flags)) 878 goto end; 879 } 880 } else if (operation == SMIME_ENCRYPTED_ENCRYPT) { 881 cms = CMS_EncryptedData_encrypt(in, cipher, 882 secret_key, secret_keylen, flags); 883 884 } else if (operation == SMIME_SIGN_RECEIPT) { 885 CMS_ContentInfo *srcms = NULL; 886 STACK_OF(CMS_SignerInfo) *sis; 887 CMS_SignerInfo *si; 888 sis = CMS_get0_SignerInfos(cms); 889 if (!sis) 890 goto end; 891 si = sk_CMS_SignerInfo_value(sis, 0); 892 srcms = CMS_sign_receipt(si, signer, key, other, flags); 893 if (!srcms) 894 goto end; 895 CMS_ContentInfo_free(cms); 896 cms = srcms; 897 } else if (operation & SMIME_SIGNERS) { 898 int i; 899 /* 900 * If detached data content we enable streaming if S/MIME output 901 * format. 902 */ 903 if (operation == SMIME_SIGN) { 904 905 if (flags & CMS_DETACHED) { 906 if (outformat == FORMAT_SMIME) 907 flags |= CMS_STREAM; 908 } 909 flags |= CMS_PARTIAL; 910 cms = CMS_sign(NULL, NULL, other, in, flags); 911 if (!cms) 912 goto end; 913 if (econtent_type) 914 CMS_set1_eContentType(cms, econtent_type); 915 916 if (rr_to) { 917 rr = make_receipt_request(rr_to, rr_allorfirst, rr_from); 918 if (!rr) { 919 BIO_puts(bio_err, 920 "Signed Receipt Request Creation Error\n"); 921 goto end; 922 } 923 } 924 } else 925 flags |= CMS_REUSE_DIGEST; 926 for (i = 0; i < sk_OPENSSL_STRING_num(sksigners); i++) { 927 CMS_SignerInfo *si; 928 cms_key_param *kparam; 929 int tflags = flags; 930 signerfile = sk_OPENSSL_STRING_value(sksigners, i); 931 keyfile = sk_OPENSSL_STRING_value(skkeys, i); 932 933 signer = load_cert(signerfile, FORMAT_PEM, "signer certificate"); 934 if (!signer) { 935 ret = 2; 936 goto end; 937 } 938 key = load_key(keyfile, keyform, 0, passin, e, "signing key file"); 939 if (!key) { 940 ret = 2; 941 goto end; 942 } 943 for (kparam = key_first; kparam; kparam = kparam->next) { 944 if (kparam->idx == i) { 945 tflags |= CMS_KEY_PARAM; 946 break; 947 } 948 } 949 si = CMS_add1_signer(cms, signer, key, sign_md, tflags); 950 if (!si) 951 goto end; 952 if (kparam) { 953 EVP_PKEY_CTX *pctx; 954 pctx = CMS_SignerInfo_get0_pkey_ctx(si); 955 if (!cms_set_pkey_param(pctx, kparam->param)) 956 goto end; 957 } 958 if (rr && !CMS_add1_ReceiptRequest(si, rr)) 959 goto end; 960 X509_free(signer); 961 signer = NULL; 962 EVP_PKEY_free(key); 963 key = NULL; 964 } 965 /* If not streaming or resigning finalize structure */ 966 if ((operation == SMIME_SIGN) && !(flags & CMS_STREAM)) { 967 if (!CMS_final(cms, in, NULL, flags)) 968 goto end; 969 } 970 } 971 972 if (!cms) { 973 BIO_printf(bio_err, "Error creating CMS structure\n"); 974 goto end; 975 } 976 977 ret = 4; 978 if (operation == SMIME_DECRYPT) { 979 if (flags & CMS_DEBUG_DECRYPT) 980 CMS_decrypt(cms, NULL, NULL, NULL, NULL, flags); 981 982 if (secret_key) { 983 if (!CMS_decrypt_set1_key(cms, 984 secret_key, secret_keylen, 985 secret_keyid, secret_keyidlen)) { 986 BIO_puts(bio_err, "Error decrypting CMS using secret key\n"); 987 goto end; 988 } 989 } 990 991 if (key) { 992 if (!CMS_decrypt_set1_pkey(cms, key, recip)) { 993 BIO_puts(bio_err, "Error decrypting CMS using private key\n"); 994 goto end; 995 } 996 } 997 998 if (pwri_pass) { 999 if (!CMS_decrypt_set1_password(cms, pwri_pass, -1)) { 1000 BIO_puts(bio_err, "Error decrypting CMS using password\n"); 1001 goto end; 1002 } 1003 } 1004 1005 if (!CMS_decrypt(cms, NULL, NULL, indata, out, flags)) { 1006 BIO_printf(bio_err, "Error decrypting CMS structure\n"); 1007 goto end; 1008 } 1009 } else if (operation == SMIME_DATAOUT) { 1010 if (!CMS_data(cms, out, flags)) 1011 goto end; 1012 } else if (operation == SMIME_UNCOMPRESS) { 1013 if (!CMS_uncompress(cms, indata, out, flags)) 1014 goto end; 1015 } else if (operation == SMIME_DIGEST_VERIFY) { 1016 if (CMS_digest_verify(cms, indata, out, flags) > 0) 1017 BIO_printf(bio_err, "Verification successful\n"); 1018 else { 1019 BIO_printf(bio_err, "Verification failure\n"); 1020 goto end; 1021 } 1022 } else if (operation == SMIME_ENCRYPTED_DECRYPT) { 1023 if (!CMS_EncryptedData_decrypt(cms, secret_key, secret_keylen, 1024 indata, out, flags)) 1025 goto end; 1026 } else if (operation == SMIME_VERIFY) { 1027 if (CMS_verify(cms, other, store, indata, out, flags) > 0) 1028 BIO_printf(bio_err, "Verification successful\n"); 1029 else { 1030 BIO_printf(bio_err, "Verification failure\n"); 1031 if (verify_retcode) 1032 ret = verify_err + 32; 1033 goto end; 1034 } 1035 if (signerfile) { 1036 STACK_OF(X509) *signers; 1037 signers = CMS_get0_signers(cms); 1038 if (!save_certs(signerfile, signers)) { 1039 BIO_printf(bio_err, 1040 "Error writing signers to %s\n", signerfile); 1041 ret = 5; 1042 goto end; 1043 } 1044 sk_X509_free(signers); 1045 } 1046 if (rr_print) 1047 receipt_request_print(cms); 1048 1049 } else if (operation == SMIME_VERIFY_RECEIPT) { 1050 if (CMS_verify_receipt(rcms, cms, other, store, flags) > 0) 1051 BIO_printf(bio_err, "Verification successful\n"); 1052 else { 1053 BIO_printf(bio_err, "Verification failure\n"); 1054 goto end; 1055 } 1056 } else { 1057 if (noout) { 1058 if (print) 1059 CMS_ContentInfo_print_ctx(out, cms, 0, NULL); 1060 } else if (outformat == FORMAT_SMIME) { 1061 if (to) 1062 BIO_printf(out, "To: %s%s", to, mime_eol); 1063 if (from) 1064 BIO_printf(out, "From: %s%s", from, mime_eol); 1065 if (subject) 1066 BIO_printf(out, "Subject: %s%s", subject, mime_eol); 1067 if (operation == SMIME_RESIGN) 1068 ret = SMIME_write_CMS(out, cms, indata, flags); 1069 else 1070 ret = SMIME_write_CMS(out, cms, in, flags); 1071 } else if (outformat == FORMAT_PEM) 1072 ret = PEM_write_bio_CMS_stream(out, cms, in, flags); 1073 else if (outformat == FORMAT_ASN1) 1074 ret = i2d_CMS_bio_stream(out, cms, in, flags); 1075 else { 1076 BIO_printf(bio_err, "Bad output format for CMS file\n"); 1077 goto end; 1078 } 1079 if (ret <= 0) { 1080 ret = 6; 1081 goto end; 1082 } 1083 } 1084 ret = 0; 1085 end: 1086 if (ret) 1087 ERR_print_errors(bio_err); 1088 if (need_rand) 1089 app_RAND_write_file(NULL); 1090 sk_X509_pop_free(encerts, X509_free); 1091 sk_X509_pop_free(other, X509_free); 1092 X509_VERIFY_PARAM_free(vpm); 1093 sk_OPENSSL_STRING_free(sksigners); 1094 sk_OPENSSL_STRING_free(skkeys); 1095 OPENSSL_free(secret_key); 1096 OPENSSL_free(secret_keyid); 1097 OPENSSL_free(pwri_tmp); 1098 ASN1_OBJECT_free(econtent_type); 1099 CMS_ReceiptRequest_free(rr); 1100 sk_OPENSSL_STRING_free(rr_to); 1101 sk_OPENSSL_STRING_free(rr_from); 1102 for (key_param = key_first; key_param;) { 1103 cms_key_param *tparam; 1104 sk_OPENSSL_STRING_free(key_param->param); 1105 tparam = key_param->next; 1106 OPENSSL_free(key_param); 1107 key_param = tparam; 1108 } 1109 X509_STORE_free(store); 1110 X509_free(cert); 1111 X509_free(recip); 1112 X509_free(signer); 1113 EVP_PKEY_free(key); 1114 CMS_ContentInfo_free(cms); 1115 CMS_ContentInfo_free(rcms); 1116 release_engine(e); 1117 BIO_free(rctin); 1118 BIO_free(in); 1119 BIO_free(indata); 1120 BIO_free_all(out); 1121 OPENSSL_free(passin); 1122 return (ret); 1123 } 1124 1125 static int save_certs(char *signerfile, STACK_OF(X509) *signers) 1126 { 1127 int i; 1128 BIO *tmp; 1129 if (!signerfile) 1130 return 1; 1131 tmp = BIO_new_file(signerfile, "w"); 1132 if (!tmp) 1133 return 0; 1134 for (i = 0; i < sk_X509_num(signers); i++) 1135 PEM_write_bio_X509(tmp, sk_X509_value(signers, i)); 1136 BIO_free(tmp); 1137 return 1; 1138 } 1139 1140 /* Minimal callback just to output policy info (if any) */ 1141 1142 static int cms_cb(int ok, X509_STORE_CTX *ctx) 1143 { 1144 int error; 1145 1146 error = X509_STORE_CTX_get_error(ctx); 1147 1148 verify_err = error; 1149 1150 if ((error != X509_V_ERR_NO_EXPLICIT_POLICY) 1151 && ((error != X509_V_OK) || (ok != 2))) 1152 return ok; 1153 1154 policies_print(ctx); 1155 1156 return ok; 1157 1158 } 1159 1160 static void gnames_stack_print(STACK_OF(GENERAL_NAMES) *gns) 1161 { 1162 STACK_OF(GENERAL_NAME) *gens; 1163 GENERAL_NAME *gen; 1164 int i, j; 1165 1166 for (i = 0; i < sk_GENERAL_NAMES_num(gns); i++) { 1167 gens = sk_GENERAL_NAMES_value(gns, i); 1168 for (j = 0; j < sk_GENERAL_NAME_num(gens); j++) { 1169 gen = sk_GENERAL_NAME_value(gens, j); 1170 BIO_puts(bio_err, " "); 1171 GENERAL_NAME_print(bio_err, gen); 1172 BIO_puts(bio_err, "\n"); 1173 } 1174 } 1175 return; 1176 } 1177 1178 static void receipt_request_print(CMS_ContentInfo *cms) 1179 { 1180 STACK_OF(CMS_SignerInfo) *sis; 1181 CMS_SignerInfo *si; 1182 CMS_ReceiptRequest *rr; 1183 int allorfirst; 1184 STACK_OF(GENERAL_NAMES) *rto, *rlist; 1185 ASN1_STRING *scid; 1186 int i, rv; 1187 sis = CMS_get0_SignerInfos(cms); 1188 for (i = 0; i < sk_CMS_SignerInfo_num(sis); i++) { 1189 si = sk_CMS_SignerInfo_value(sis, i); 1190 rv = CMS_get1_ReceiptRequest(si, &rr); 1191 BIO_printf(bio_err, "Signer %d:\n", i + 1); 1192 if (rv == 0) 1193 BIO_puts(bio_err, " No Receipt Request\n"); 1194 else if (rv < 0) { 1195 BIO_puts(bio_err, " Receipt Request Parse Error\n"); 1196 ERR_print_errors(bio_err); 1197 } else { 1198 const char *id; 1199 int idlen; 1200 CMS_ReceiptRequest_get0_values(rr, &scid, &allorfirst, 1201 &rlist, &rto); 1202 BIO_puts(bio_err, " Signed Content ID:\n"); 1203 idlen = ASN1_STRING_length(scid); 1204 id = (const char *)ASN1_STRING_get0_data(scid); 1205 BIO_dump_indent(bio_err, id, idlen, 4); 1206 BIO_puts(bio_err, " Receipts From"); 1207 if (rlist) { 1208 BIO_puts(bio_err, " List:\n"); 1209 gnames_stack_print(rlist); 1210 } else if (allorfirst == 1) 1211 BIO_puts(bio_err, ": First Tier\n"); 1212 else if (allorfirst == 0) 1213 BIO_puts(bio_err, ": All\n"); 1214 else 1215 BIO_printf(bio_err, " Unknown (%d)\n", allorfirst); 1216 BIO_puts(bio_err, " Receipts To:\n"); 1217 gnames_stack_print(rto); 1218 } 1219 CMS_ReceiptRequest_free(rr); 1220 } 1221 } 1222 1223 static STACK_OF(GENERAL_NAMES) *make_names_stack(STACK_OF(OPENSSL_STRING) *ns) 1224 { 1225 int i; 1226 STACK_OF(GENERAL_NAMES) *ret; 1227 GENERAL_NAMES *gens = NULL; 1228 GENERAL_NAME *gen = NULL; 1229 ret = sk_GENERAL_NAMES_new_null(); 1230 if (!ret) 1231 goto err; 1232 for (i = 0; i < sk_OPENSSL_STRING_num(ns); i++) { 1233 char *str = sk_OPENSSL_STRING_value(ns, i); 1234 gen = a2i_GENERAL_NAME(NULL, NULL, NULL, GEN_EMAIL, str, 0); 1235 if (!gen) 1236 goto err; 1237 gens = GENERAL_NAMES_new(); 1238 if (gens == NULL) 1239 goto err; 1240 if (!sk_GENERAL_NAME_push(gens, gen)) 1241 goto err; 1242 gen = NULL; 1243 if (!sk_GENERAL_NAMES_push(ret, gens)) 1244 goto err; 1245 gens = NULL; 1246 } 1247 1248 return ret; 1249 1250 err: 1251 sk_GENERAL_NAMES_pop_free(ret, GENERAL_NAMES_free); 1252 GENERAL_NAMES_free(gens); 1253 GENERAL_NAME_free(gen); 1254 return NULL; 1255 } 1256 1257 static CMS_ReceiptRequest *make_receipt_request(STACK_OF(OPENSSL_STRING) 1258 *rr_to, int rr_allorfirst, STACK_OF(OPENSSL_STRING) 1259 *rr_from) 1260 { 1261 STACK_OF(GENERAL_NAMES) *rct_to = NULL, *rct_from = NULL; 1262 CMS_ReceiptRequest *rr; 1263 rct_to = make_names_stack(rr_to); 1264 if (!rct_to) 1265 goto err; 1266 if (rr_from) { 1267 rct_from = make_names_stack(rr_from); 1268 if (!rct_from) 1269 goto err; 1270 } else 1271 rct_from = NULL; 1272 rr = CMS_ReceiptRequest_create0(NULL, -1, rr_allorfirst, rct_from, 1273 rct_to); 1274 return rr; 1275 err: 1276 sk_GENERAL_NAMES_pop_free(rct_to, GENERAL_NAMES_free); 1277 return NULL; 1278 } 1279 1280 static int cms_set_pkey_param(EVP_PKEY_CTX *pctx, 1281 STACK_OF(OPENSSL_STRING) *param) 1282 { 1283 char *keyopt; 1284 int i; 1285 if (sk_OPENSSL_STRING_num(param) <= 0) 1286 return 1; 1287 for (i = 0; i < sk_OPENSSL_STRING_num(param); i++) { 1288 keyopt = sk_OPENSSL_STRING_value(param, i); 1289 if (pkey_ctrl_string(pctx, keyopt) <= 0) { 1290 BIO_printf(bio_err, "parameter error \"%s\"\n", keyopt); 1291 ERR_print_errors(bio_err); 1292 return 0; 1293 } 1294 } 1295 return 1; 1296 } 1297 1298 #endif 1299