1/* LibTomCrypt, modular cryptographic library -- Tom St Denis
2 *
3 * LibTomCrypt is a library that provides various cryptographic
4 * algorithms in a highly modular and flexible manner.
5 *
6 * The library is free for all purposes without any express
7 * guarantee it works.
8 *
9 * Tom St Denis, tomstdenis@gmail.com, http://libtomcrypt.com
10 */
11#include "tomcrypt.h"
12
13/**
14  @file rsa_export.c
15  Export RSA PKCS keys, Tom St Denis
16*/
17
18#ifdef MRSA
19
20/**
21    This will export either an RSAPublicKey or RSAPrivateKey [defined in PKCS #1 v2.1]
22    @param out       [out] Destination of the packet
23    @param outlen    [in/out] The max size and resulting size of the packet
24    @param type      The type of exported key (PK_PRIVATE or PK_PUBLIC)
25    @param key       The RSA key to export
26    @return CRYPT_OK if successful
27*/
28int rsa_export(unsigned char *out, unsigned long *outlen, int type, rsa_key *key)
29{
30   unsigned long zero=0;
31   LTC_ARGCHK(out    != NULL);
32   LTC_ARGCHK(outlen != NULL);
33   LTC_ARGCHK(key    != NULL);
34
35   /* type valid? */
36   if (!(key->type == PK_PRIVATE) && (type == PK_PRIVATE)) {
37      return CRYPT_PK_INVALID_TYPE;
38   }
39
40   if (type == PK_PRIVATE) {
41      /* private key */
42      /* output is
43            Version, n, e, d, p, q, d mod (p-1), d mod (q - 1), 1/q mod p
44       */
45      return der_encode_sequence_multi(out, outlen,
46                          LTC_ASN1_SHORT_INTEGER, 1UL, &zero,
47                          LTC_ASN1_INTEGER, 1UL,  key->N,
48                          LTC_ASN1_INTEGER, 1UL,  key->e,
49                          LTC_ASN1_INTEGER, 1UL,  key->d,
50                          LTC_ASN1_INTEGER, 1UL,  key->p,
51                          LTC_ASN1_INTEGER, 1UL,  key->q,
52                          LTC_ASN1_INTEGER, 1UL,  key->dP,
53                          LTC_ASN1_INTEGER, 1UL,  key->dQ,
54                          LTC_ASN1_INTEGER, 1UL,  key->qP,
55                          LTC_ASN1_EOL,     0UL, NULL);
56   } else {
57      /* public key */
58      return der_encode_sequence_multi(out, outlen,
59                                 LTC_ASN1_INTEGER, 1UL,  key->N,
60                                 LTC_ASN1_INTEGER, 1UL,  key->e,
61                                 LTC_ASN1_EOL,     0UL, NULL);
62   }
63}
64
65#endif /* MRSA */
66
67/* $Source: /cvs/libtom/libtomcrypt/src/pk/rsa/rsa_export.c,v $ */
68/* $Revision: 1.15 $ */
69/* $Date: 2006/03/31 14:15:35 $ */
70