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 katja_export.c
15  Export Katja PKCS-style keys, Tom St Denis
16*/
17
18#ifdef MKAT
19
20/**
21    This will export either an KatjaPublicKey or KatjaPrivateKey
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 Katja key to export
26    @return CRYPT_OK if successful
27*/
28int katja_export(unsigned char *out, unsigned long *outlen, int type, katja_key *key)
29{
30   int           err;
31   unsigned long zero=0;
32
33   LTC_ARGCHK(out    != NULL);
34   LTC_ARGCHK(outlen != NULL);
35   LTC_ARGCHK(key    != NULL);
36
37   /* type valid? */
38   if (!(key->type == PK_PRIVATE) && (type == PK_PRIVATE)) {
39      return CRYPT_PK_INVALID_TYPE;
40   }
41
42   if (type == PK_PRIVATE) {
43      /* private key */
44      /* output is
45            Version, n, d, p, q, d mod (p-1), d mod (q - 1), 1/q mod p, pq
46       */
47      if ((err = der_encode_sequence_multi(out, outlen,
48                          LTC_ASN1_SHORT_INTEGER, 1UL, &zero,
49                          LTC_ASN1_INTEGER, 1UL,  key->N,
50                          LTC_ASN1_INTEGER, 1UL,  key->d,
51                          LTC_ASN1_INTEGER, 1UL,  key->p,
52                          LTC_ASN1_INTEGER, 1UL,  key->q,
53                          LTC_ASN1_INTEGER, 1UL,  key->dP,
54                          LTC_ASN1_INTEGER, 1UL,  key->dQ,
55                          LTC_ASN1_INTEGER, 1UL,  key->qP,
56                          LTC_ASN1_INTEGER, 1UL,  key->pq,
57                          LTC_ASN1_EOL,     0UL, NULL)) != CRYPT_OK) {
58         return err;
59      }
60
61      /* clear zero and return */
62      return CRYPT_OK;
63   } else {
64      /* public key */
65      return der_encode_sequence_multi(out, outlen,
66                                 LTC_ASN1_INTEGER, 1UL, key->N,
67                                 LTC_ASN1_EOL,     0UL, NULL);
68   }
69}
70
71#endif /* MRSA */
72
73/* $Source: /cvs/libtom/libtomcrypt/src/pk/katja/katja_export.c,v $ */
74/* $Revision: 1.2 $ */
75/* $Date: 2006/03/31 14:15:35 $ */
76