1d9e397b599b13d642138480a28c14db7a136bf0Adam Langley/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 2d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * All rights reserved. 3d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 4d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This package is an SSL implementation written 5d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * by Eric Young (eay@cryptsoft.com). 6d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The implementation was written so as to conform with Netscapes SSL. 7d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 8d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This library is free for commercial and non-commercial use as long as 9d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the following conditions are aheared to. The following conditions 10d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * apply to all code found in this distribution, be it the RC4, RSA, 11d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * lhash, DES, etc., code; not just the SSL code. The SSL documentation 12d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * included with this distribution is covered by the same copyright terms 13d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * except that the holder is Tim Hudson (tjh@cryptsoft.com). 14d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 15d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Copyright remains Eric Young's, and as such any Copyright notices in 16d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the code are not to be removed. 17d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * If this package is used in a product, Eric Young should be given attribution 18d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * as the author of the parts of the library used. 19d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This can be in the form of a textual message at program startup or 20d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * in documentation (online or textual) provided with the package. 21d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 22d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Redistribution and use in source and binary forms, with or without 23d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * modification, are permitted provided that the following conditions 24d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * are met: 25d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 1. Redistributions of source code must retain the copyright 26d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * notice, this list of conditions and the following disclaimer. 27d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 2. Redistributions in binary form must reproduce the above copyright 28d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * notice, this list of conditions and the following disclaimer in the 29d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * documentation and/or other materials provided with the distribution. 30d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 3. All advertising materials mentioning features or use of this software 31d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * must display the following acknowledgement: 32d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * "This product includes cryptographic software written by 33d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Eric Young (eay@cryptsoft.com)" 34d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The word 'cryptographic' can be left out if the rouines from the library 35d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * being used are not cryptographic related :-). 36d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 4. If you include any Windows specific code (or a derivative thereof) from 37d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the apps directory (application code) you must include an acknowledgement: 38d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 39d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 40d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 41d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 42d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 43d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 44d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 45d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 46d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 47d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 48d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 49d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 50d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * SUCH DAMAGE. 51d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 52d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The licence and distribution terms for any publically available version or 53d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * derivative of this code cannot be changed. i.e. this code cannot simply be 54d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * copied and put under another distribution licence 55d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * [including the GNU Public Licence.] */ 56d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 57d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/x509.h> 58d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 59d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/bio.h> 60d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/mem.h> 61d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 62d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 63d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyint PKCS8_pkey_set0(PKCS8_PRIV_KEY_INFO *priv, ASN1_OBJECT *aobj, int version, 64d9e397b599b13d642138480a28c14db7a136bf0Adam Langley int ptype, void *pval, uint8_t *penc, int penclen) { 65d9e397b599b13d642138480a28c14db7a136bf0Adam Langley uint8_t **ppenc = NULL; 66d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (version >= 0) { 67d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (!ASN1_INTEGER_set(priv->version, version)) { 68d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 69d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 70d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 71d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 72d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (penc) { 73d9e397b599b13d642138480a28c14db7a136bf0Adam Langley int pmtype; 74d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ASN1_OCTET_STRING *oct; 75d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 76d9e397b599b13d642138480a28c14db7a136bf0Adam Langley oct = ASN1_OCTET_STRING_new(); 77d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (!oct) { 78d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 79d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 80d9e397b599b13d642138480a28c14db7a136bf0Adam Langley oct->data = penc; 81d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ppenc = &oct->data; 82d9e397b599b13d642138480a28c14db7a136bf0Adam Langley oct->length = penclen; 83d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (priv->broken == PKCS8_NO_OCTET) { 84d9e397b599b13d642138480a28c14db7a136bf0Adam Langley pmtype = V_ASN1_SEQUENCE; 85d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 86d9e397b599b13d642138480a28c14db7a136bf0Adam Langley pmtype = V_ASN1_OCTET_STRING; 87d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 88d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ASN1_TYPE_set(priv->pkey, pmtype, oct); 89d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 90d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 91d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (!X509_ALGOR_set0(priv->pkeyalg, aobj, ptype, pval)) { 92d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /* If call fails do not swallow 'enc' */ 93d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (ppenc) { 94d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *ppenc = NULL; 95d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 96d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 97d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 98d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 99d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 1; 100d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 101d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 102d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyint PKCS8_pkey_get0(ASN1_OBJECT **ppkalg, const uint8_t **pk, int *ppklen, 103d9e397b599b13d642138480a28c14db7a136bf0Adam Langley X509_ALGOR **pa, PKCS8_PRIV_KEY_INFO *p8) { 104d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (ppkalg) { 105d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *ppkalg = p8->pkeyalg->algorithm; 106d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 107d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 108d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (p8->pkey->type == V_ASN1_OCTET_STRING) { 109d9e397b599b13d642138480a28c14db7a136bf0Adam Langley p8->broken = PKCS8_OK; 110d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (pk) { 111d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *pk = p8->pkey->value.octet_string->data; 112d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *ppklen = p8->pkey->value.octet_string->length; 113d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 114d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else if (p8->pkey->type == V_ASN1_SEQUENCE) { 115d9e397b599b13d642138480a28c14db7a136bf0Adam Langley p8->broken = PKCS8_NO_OCTET; 116d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (pk) { 117d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *pk = p8->pkey->value.sequence->data; 118d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *ppklen = p8->pkey->value.sequence->length; 119d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 120d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 121d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 122d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 123d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 124d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (pa) { 125d9e397b599b13d642138480a28c14db7a136bf0Adam Langley *pa = p8->pkeyalg; 126d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 127d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 1; 128d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 129d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 130d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyint X509_signature_dump(BIO *bp, const ASN1_STRING *sig, int indent) { 131d9e397b599b13d642138480a28c14db7a136bf0Adam Langley const uint8_t *s; 132d9e397b599b13d642138480a28c14db7a136bf0Adam Langley int i, n; 133d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 134d9e397b599b13d642138480a28c14db7a136bf0Adam Langley n = sig->length; 135d9e397b599b13d642138480a28c14db7a136bf0Adam Langley s = sig->data; 136d9e397b599b13d642138480a28c14db7a136bf0Adam Langley for (i = 0; i < n; i++) { 137d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ((i % 18) == 0) { 138d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_write(bp, "\n", 1) <= 0 || 139d9e397b599b13d642138480a28c14db7a136bf0Adam Langley BIO_indent(bp, indent, indent) <= 0) { 140d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 141d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 142d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 143d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_printf(bp, "%02x%s", s[i], ((i + 1) == n) ? "" : ":") <= 0) { 144d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 145d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 146d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 147d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_write(bp, "\n", 1) != 1) { 148d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 149d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 150d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 151d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 1; 152d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 153