3 * Reading Diffie-Hellman parameters
5 * (c) 2004 Straylight/Edgeware
8 /*----- Licensing notice --------------------------------------------------*
10 * This file is part of Catacomb.
12 * Catacomb is free software; you can redistribute it and/or modify
13 * it under the terms of the GNU Library General Public License as
14 * published by the Free Software Foundation; either version 2 of the
15 * License, or (at your option) any later version.
17 * Catacomb is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU Library General Public License for more details.
22 * You should have received a copy of the GNU Library General Public
23 * License along with Catacomb; if not, write to the Free
24 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
28 /*----- Header files ------------------------------------------------------*/
34 /*----- Main code ---------------------------------------------------------*/
36 /* ---- @dh_infofromdata@ --- *
38 * Arguments: @dh_param *dp@ = parameters to fill in
39 * @pdata *pd@ = packed data structure
43 * Use: Fills in a parameters structure from a packed data block.
46 void dh_infofromdata(dh_param *dp, pdata *pd)
47 { dp->p = &pd->p; dp->q = &pd->q; dp->g = &pd->g; }
49 /* --- @dh_parse@, @dhbin_parse@ --- *
51 * Arguments: @qd_parse *qd@ = parser context
52 * @dh_param *dp@ = parameters to fill in
54 * Returns: Zero if OK, nonzero on error.
56 * Use: Parses a prime group string. This is either one of the
57 * standard group strings, or a %$p$%, %$q$%, %$g$% triple
58 * separated by commas.
61 static int parse(qd_parse *qd, gprime_param *dp)
63 mp *p = MP_NEW, *q = MP_NEW, *g = MP_NEW;
65 if ((p = qd_getmp(qd)) == 0) goto fail;
66 qd_delim(qd, ','); if ((q = qd_getmp(qd)) == 0) goto fail;
67 qd_delim(qd, ','); if ((g = qd_getmp(qd)) == 0) goto fail;
68 dp->p = p; dp->q = q; dp->g = g;
71 mp_drop(p); mp_drop(q); mp_drop(g);
75 int dh_parse(qd_parse *qd, dh_param *dp)
79 for (pe = ptab; pe->name; pe++) {
80 if (qd_enum(qd, pe->name) >= 0) {
81 dh_infofromdata(dp, pe->data);
91 int dhbin_parse(qd_parse *qd, gbin_param *gb)
95 for (be = bintab; be->name; be++) {
96 if (qd_enum(qd, be->name) >= 0) {
97 dh_infofromdata(gb, be->data);
107 /*----- Test rig ----------------------------------------------------------*/
113 int main(int argc, char *argv[])
121 gr = fibrand_create(0);
122 fputs("checking standard prime groups:", stdout);
124 for (pe = ptab; pe->name; pe++) {
127 dh_infofromdata(&dp, pe->data);
128 g = group_prime(&dp);
129 if (mp_bits(dp.p) > 3072 &&
130 (!argv[1] || strcmp(argv[1], "keen") != 0)) {
131 printf(" [%s skipped]", pe->name);
139 printf(" [%s failed: %s]", pe->name, e);
142 printf(" %s", pe->name);
145 fputs(ok ? " ok\n" : " failed\n", stdout);
147 fputs("checking standard binary groups:", stdout);
148 for (be = bintab; be->name; be++) {
151 dh_infofromdata(&gb, be->data);
152 g = group_binary(&gb);
157 printf(" [%s failed: %s]", be->name, e);
160 printf(" %s", be->name);
163 fputs(ok ? " ok\n" : " failed\n", stdout);
164 gr->ops->destroy(gr);
170 /*----- That's all, folks -------------------------------------------------*/