Mercurial > dropbear
comparison src/pk/katja/katja_export.c @ 380:d5faf4814ddb libtomcrypt-orig libtomcrypt-1.16
Update to LibTomCrypt 1.16
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Thu, 11 Jan 2007 02:22:00 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
280:59400faa4b44 | 380:d5faf4814ddb |
---|---|
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, [email protected], 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 $ */ |