Home | History | Annotate | Download | only in katja 
      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 (at) 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 */
     28 int 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