Add information and pem strings. Update dependencies.
[openssl.git] / crypto / rsa / rsa_ameth.c
1 /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
2  * project 2006.
3  */
4 /* ====================================================================
5  * Copyright (c) 2006 The OpenSSL Project.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  *
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer. 
13  *
14  * 2. Redistributions in binary form must reproduce the above copyright
15  *    notice, this list of conditions and the following disclaimer in
16  *    the documentation and/or other materials provided with the
17  *    distribution.
18  *
19  * 3. All advertising materials mentioning features or use of this
20  *    software must display the following acknowledgment:
21  *    "This product includes software developed by the OpenSSL Project
22  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
23  *
24  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
25  *    endorse or promote products derived from this software without
26  *    prior written permission. For written permission, please contact
27  *    licensing@OpenSSL.org.
28  *
29  * 5. Products derived from this software may not be called "OpenSSL"
30  *    nor may "OpenSSL" appear in their names without prior written
31  *    permission of the OpenSSL Project.
32  *
33  * 6. Redistributions of any form whatsoever must retain the following
34  *    acknowledgment:
35  *    "This product includes software developed by the OpenSSL Project
36  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
37  *
38  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
39  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
40  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
41  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
42  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
43  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
44  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
45  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
46  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
47  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
48  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
49  * OF THE POSSIBILITY OF SUCH DAMAGE.
50  * ====================================================================
51  *
52  * This product includes cryptographic software written by Eric Young
53  * (eay@cryptsoft.com).  This product includes software written by Tim
54  * Hudson (tjh@cryptsoft.com).
55  *
56  */
57
58 #include <stdio.h>
59 #include "cryptlib.h"
60 #include <openssl/asn1t.h>
61 #include <openssl/x509.h>
62 #include <openssl/rsa.h>
63 #include "asn1_locl.h"
64
65 static int rsa_pub_encode(X509_PUBKEY *pk, const EVP_PKEY *pkey)
66         {
67         unsigned char *penc = NULL;
68         int penclen;
69         penclen = i2d_RSAPublicKey(pkey->pkey.rsa, &penc);
70         if (penclen <= 0)
71                 return 0;
72         if (X509_PUBKEY_set0_param(pk, OBJ_nid2obj(EVP_PKEY_RSA),
73                                 V_ASN1_NULL, NULL, penc, penclen))
74                 return 1;
75
76         OPENSSL_free(penc);
77         return 0;
78         }
79
80 static int rsa_pub_decode(EVP_PKEY *pkey, X509_PUBKEY *pubkey)
81         {
82         const unsigned char *p;
83         int pklen;
84         RSA *rsa = NULL;
85         if (!X509_PUBKEY_get0_param(NULL, &p, &pklen, NULL, pubkey))
86                 return 0;
87         if (!(rsa = d2i_RSAPublicKey(NULL, &p, pklen)))
88                 {
89                 RSAerr(RSA_F_RSA_PUB_DECODE, ERR_R_RSA_LIB);
90                 return 0;
91                 }
92         EVP_PKEY_assign_RSA (pkey, rsa);
93         return 1;
94         }
95
96 static int rsa_pub_cmp(const EVP_PKEY *a, const EVP_PKEY *b)
97         {
98         if (BN_cmp(b->pkey.rsa->n,a->pkey.rsa->n) != 0
99                 || BN_cmp(b->pkey.rsa->e,a->pkey.rsa->e) != 0)
100                         return 0;
101         return 1;
102         }
103
104 static int rsa_priv_decode(EVP_PKEY *pkey, PKCS8_PRIV_KEY_INFO *p8)
105         {
106         const unsigned char *p;
107         int pklen;
108         RSA *rsa = NULL;
109         if (!PKCS8_pkey_get0(NULL, &p, &pklen, NULL, p8))
110                 return 0;
111         if (!(rsa = d2i_RSAPrivateKey (NULL, &p, pklen)))
112                 {
113                 RSAerr(RSA_F_RSA_PRIV_DECODE, ERR_R_RSA_LIB);
114                 return 0;
115                 }
116         EVP_PKEY_assign_RSA (pkey, rsa);
117         return 1;
118         }
119
120 static int rsa_priv_encode(PKCS8_PRIV_KEY_INFO *p8, const EVP_PKEY *pkey)
121         {
122         unsigned char *rk = NULL;
123         int rklen;
124         rklen = i2d_RSAPrivateKey(pkey->pkey.rsa, &rk);
125
126         if (rklen <= 0)
127                 {
128                 RSAerr(RSA_F_RSA_PRIV_ENCODE,ERR_R_MALLOC_FAILURE);
129                 return 0;
130                 }
131
132         if (!PKCS8_pkey_set0(p8, OBJ_nid2obj(NID_rsaEncryption), 0,
133                                 V_ASN1_NULL, NULL, rk, rklen))
134                 {
135                 RSAerr(RSA_F_RSA_PRIV_ENCODE,ERR_R_MALLOC_FAILURE);
136                 return 0;
137                 }
138
139         return 1;
140         }
141
142 static int int_rsa_size(const EVP_PKEY *pkey)
143         {
144         return RSA_size(pkey->pkey.rsa);
145         }
146
147 static int rsa_bits(const EVP_PKEY *pkey)
148         {
149         return BN_num_bits(pkey->pkey.rsa->n);
150         }
151
152 static void int_rsa_free(EVP_PKEY *pkey)
153         {
154         RSA_free(pkey->pkey.rsa);
155         }
156
157
158 static void update_buflen(const BIGNUM *b, size_t *pbuflen)
159         {
160         int i;
161         if (!b)
162                 return;
163         if (*pbuflen < (i = (size_t)BN_num_bytes(b)))
164                         *pbuflen = i;
165         }
166
167 static int do_rsa_print(BIO *bp, const RSA *x, int off, int priv)
168         {
169         char *str;
170         const char *s;
171         unsigned char *m=NULL;
172         int ret=0, mod_len = 0;
173         size_t buf_len=0;
174
175         update_buflen(x->n, &buf_len);
176         update_buflen(x->e, &buf_len);
177
178         if (priv)
179                 {
180                 update_buflen(x->d, &buf_len);
181                 update_buflen(x->p, &buf_len);
182                 update_buflen(x->q, &buf_len);
183                 update_buflen(x->dmp1, &buf_len);
184                 update_buflen(x->dmq1, &buf_len);
185                 update_buflen(x->iqmp, &buf_len);
186                 }
187
188         m=(unsigned char *)OPENSSL_malloc(buf_len+10);
189         if (m == NULL)
190                 {
191                 RSAerr(RSA_F_RSA_PRINT,ERR_R_MALLOC_FAILURE);
192                 goto err;
193                 }
194
195         if (x->n != NULL)
196                 mod_len = BN_num_bits(x->n);
197
198         if(!BIO_indent(bp,off,128))
199                 goto err;
200
201         if (priv && x->d)
202                 {
203                 if (BIO_printf(bp,"Private-Key: (%d bit)\n", mod_len)
204                         <= 0) goto err;
205                 str = "modulus:";
206                 s = "publicExponent:";
207                 }
208         else
209                 {
210                 if (BIO_printf(bp,"Public-Key: (%d bit)\n", mod_len)
211                         <= 0) goto err;
212                 str = "Modulus:";
213                 s= "Exponent:";
214                 }
215         if (!ASN1_bn_print(bp,str,x->n,m,off)) goto err;
216         if (!ASN1_bn_print(bp,s,x->e,m,off))
217                 goto err;
218         if (priv)
219                 {
220                 if (!ASN1_bn_print(bp,"privateExponent:",x->d,m,off))
221                         goto err;
222                 if (!ASN1_bn_print(bp,"prime1:",x->p,m,off))
223                         goto err;
224                 if (!ASN1_bn_print(bp,"prime2:",x->q,m,off))
225                         goto err;
226                 if (!ASN1_bn_print(bp,"exponent1:",x->dmp1,m,off))
227                         goto err;
228                 if (!ASN1_bn_print(bp,"exponent2:",x->dmq1,m,off))
229                         goto err;
230                 if (!ASN1_bn_print(bp,"coefficient:",x->iqmp,m,off))
231                         goto err;
232                 }
233         ret=1;
234 err:
235         if (m != NULL) OPENSSL_free(m);
236         return(ret);
237         }
238
239 static int rsa_pub_print(BIO *bp, const EVP_PKEY *pkey, int indent,
240                                                         ASN1_PCTX *ctx)
241         {
242         return do_rsa_print(bp, pkey->pkey.rsa, indent, 0);
243         }
244
245
246 static int rsa_priv_print(BIO *bp, const EVP_PKEY *pkey, int indent,
247                                                         ASN1_PCTX *ctx)
248         {
249         return do_rsa_print(bp, pkey->pkey.rsa, indent, 1);
250         }
251
252 const EVP_PKEY_ASN1_METHOD rsa_asn1_meths[] = 
253         {
254                 {
255                 EVP_PKEY_RSA,
256                 EVP_PKEY_RSA,
257                 0,
258
259                 "rsa",
260                 "OpenSSL RSA method",
261
262                 rsa_pub_decode,
263                 rsa_pub_encode,
264                 rsa_pub_cmp,
265                 rsa_pub_print,
266
267                 rsa_priv_decode,
268                 rsa_priv_encode,
269                 rsa_priv_print,
270
271                 int_rsa_size,
272                 rsa_bits,
273
274                 0,0,0,0,0,0,
275
276                 int_rsa_free,
277                 0
278                 },
279
280                 {
281                 EVP_PKEY_RSA2,
282                 EVP_PKEY_RSA,
283                 ASN1_PKEY_ALIAS
284                 }
285         };