Mercurial > dropbear

comparison libtomcrypt/src/pk/katja/katja_export.c @ 478:d4f32c3443ac dbclient-netcat-alike

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'au.asn.ucc.matt.dropbear' (head f21045c791002d81fc6b8dde6537ea481e513eb2) to branch 'au.asn.ucc.matt.dropbear.dbclient-netcat-alike' (head d1f69334581dc4c35f9ca16aa5355074c9dd315d)
author Matt Johnston <matt@ucc.asn.au>
date Sun, 14 Sep 2008 06:47:51 +0000
parents 0cbe8f6dbf9e
children f849a5ca2efc
comparison
equal deleted inserted replaced
296:6b41e2cbf071 478:d4f32c3443ac
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 $ */