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 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 */ 28 int 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
