Copyright consolidation: perl files
[openssl.git] / crypto / asn1 / t_spki.c
1 /*
2  * Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL project
3  * 1999.
4  */
5 /* ====================================================================
6  * Copyright (c) 1999 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  * This product includes cryptographic software written by Eric Young
54  * (eay@cryptsoft.com).  This product includes software written by Tim
55  * Hudson (tjh@cryptsoft.com).
56  *
57  */
58
59 #include <stdio.h>
60 #include "internal/cryptlib.h"
61 #include <openssl/x509.h>
62 #include <openssl/asn1.h>
63 #include <openssl/rsa.h>
64 #include <openssl/dsa.h>
65 #include <openssl/bn.h>
66
67 /* Print out an SPKI */
68
69 int NETSCAPE_SPKI_print(BIO *out, NETSCAPE_SPKI *spki)
70 {
71     EVP_PKEY *pkey;
72     ASN1_IA5STRING *chal;
73     ASN1_OBJECT *spkioid;
74     int i, n;
75     char *s;
76     BIO_printf(out, "Netscape SPKI:\n");
77     X509_PUBKEY_get0_param(&spkioid, NULL, NULL, NULL, spki->spkac->pubkey);
78     i = OBJ_obj2nid(spkioid);
79     BIO_printf(out, "  Public Key Algorithm: %s\n",
80                (i == NID_undef) ? "UNKNOWN" : OBJ_nid2ln(i));
81     pkey = X509_PUBKEY_get(spki->spkac->pubkey);
82     if (!pkey)
83         BIO_printf(out, "  Unable to load public key\n");
84     else {
85         EVP_PKEY_print_public(out, pkey, 4, NULL);
86         EVP_PKEY_free(pkey);
87     }
88     chal = spki->spkac->challenge;
89     if (chal->length)
90         BIO_printf(out, "  Challenge String: %s\n", chal->data);
91     i = OBJ_obj2nid(spki->sig_algor.algorithm);
92     BIO_printf(out, "  Signature Algorithm: %s",
93                (i == NID_undef) ? "UNKNOWN" : OBJ_nid2ln(i));
94
95     n = spki->signature->length;
96     s = (char *)spki->signature->data;
97     for (i = 0; i < n; i++) {
98         if ((i % 18) == 0)
99             BIO_write(out, "\n      ", 7);
100         BIO_printf(out, "%02x%s", (unsigned char)s[i],
101                    ((i + 1) == n) ? "" : ":");
102     }
103     BIO_write(out, "\n", 1);
104     return 1;
105 }