5 /* nettle, low-level cryptographics library
7 * Copyright (C) 2002 Niels Möller
9 * The nettle library is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU Lesser General Public License as published by
11 * the Free Software Foundation; either version 2.1 of the License, or (at your
12 * option) any later version.
14 * The nettle library is distributed in the hope that it will be useful, but
15 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
17 * License for more details.
19 * You should have received a copy of the GNU Lesser General Public License
20 * along with the nettle library; see the file COPYING.LIB. If not, write to
21 * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
36 #define GET(x, l, v) \
38 if (!nettle_mpz_set_sexp((x), (l), (v)) \
43 /* Iterator should point past the algorithm tag, e.g.
45 * (public-key (rsa (n |xxxx|) (e |xxxx|))
50 rsa_keypair_from_sexp_alist(struct rsa_public_key *pub,
51 struct rsa_private_key *priv,
53 struct sexp_iterator *i)
55 static const uint8_t * const names[8]
56 = { "n", "e", "d", "p", "q", "a", "b", "c" };
57 struct sexp_iterator values[8];
58 unsigned nvalues = priv ? 8 : 2;
60 if (!sexp_iterator_assoc(i, nvalues, names, values))
65 GET(priv->d, limit, &values[2]);
66 GET(priv->p, limit, &values[3]);
67 GET(priv->q, limit, &values[4]);
68 GET(priv->a, limit, &values[5]);
69 GET(priv->b, limit, &values[6]);
70 GET(priv->c, limit, &values[7]);
72 if (!rsa_private_key_prepare(priv))
78 GET(pub->n, limit, &values[0]);
79 GET(pub->e, limit, &values[1]);
81 if (!rsa_public_key_prepare(pub))
89 rsa_keypair_from_sexp(struct rsa_public_key *pub,
90 struct rsa_private_key *priv,
92 unsigned length, const uint8_t *expr)
94 struct sexp_iterator i;
95 static const uint8_t * const names[3]
96 = { "rsa", "rsa-pkcs1", "rsa-pkcs1-sha1" };
98 if (!sexp_iterator_first(&i, length, expr))
101 if (!sexp_iterator_check_type(&i, priv ? "private-key" : "public-key"))
104 if (!sexp_iterator_check_types(&i, 3, names))
107 return rsa_keypair_from_sexp_alist(pub, priv, limit, &i);