1
1
/* keygen.c - key generation regression tests
2
* Copyright (C) 2003 Free Software Foundation, Inc.
2
* Copyright (C) 2003, 2005 Free Software Foundation, Inc.
4
4
* This file is part of Libgcrypt.
120
124
gcry_sexp_t keyparm, key;
124
fprintf (stderr, "creating 1024 bit RSA key using old interface\n");
128
/* Check that DSA generation works and that it can grok the qbits
131
fprintf (stderr, "creating 5 1024 bit DSA keys\n");
132
for (i=0; i < 5; i++)
134
rc = gcry_sexp_new (&keyparm,
140
die ("error creating S-expression: %s\n", gpg_strerror (rc));
141
rc = gcry_pk_genkey (&key, keyparm);
142
gcry_sexp_release (keyparm);
144
die ("error generating DSA key: %s\n", gpg_strerror (rc));
145
gcry_sexp_release (key);
147
fprintf (stderr, " done\n");
151
fprintf (stderr, "creating 1536 bit DSA key\n");
152
rc = gcry_sexp_new (&keyparm,
159
die ("error creating S-expression: %s\n", gpg_strerror (rc));
160
rc = gcry_pk_genkey (&key, keyparm);
161
gcry_sexp_release (keyparm);
163
die ("error generating DSA key: %s\n", gpg_strerror (rc));
167
gcry_sexp_sprint (key, GCRYSEXP_FMT_ADVANCED, buffer, sizeof buffer);
169
printf ("=============================\n%s\n"
170
"=============================\n", buffer);
172
gcry_sexp_release (key);
175
fprintf (stderr, "creating 1024 bit RSA key\n");
125
176
rc = gcry_sexp_new (&keyparm,
137
188
check_generated_rsa_key (key, 65537);
138
189
gcry_sexp_release (key);
141
193
fprintf (stderr, "creating 512 bit RSA key with e=257\n");
142
194
rc = gcry_sexp_new (&keyparm,
271
progress_cb (void *cb_data, const char *what, int printchar,
272
int current, int total)
279
if (printchar == '\n')
280
fputs ( "<LF>", stdout);
218
288
main (int argc, char **argv)
222
290
if (argc > 1 && !strcmp (argv[1], "--verbose"))
224
292
else if (argc > 1 && !strcmp (argv[1], "--debug"))
232
300
gcry_control (GCRYCTL_SET_DEBUG_FLAGS, 1u , 0);
233
301
/* No valuable keys are create, so we can speed up our RNG. */
234
302
gcry_control (GCRYCTL_ENABLE_QUICK_RANDOM, 0);
304
gcry_set_progress_handler ( progress_cb, NULL );
236
306
check_rsa_keys ();