Changeset View
Changeset View
Standalone View
Standalone View
b/tests/keygen.c
Context not available. | |||||
static int verbose; | static int verbose; | ||||
static int debug; | static int debug; | ||||
static int error_count; | static int error_count; | ||||
static int in_fips_mode; | |||||
static void | static void | ||||
Context not available. | |||||
va_list arg_ptr; | va_list arg_ptr; | ||||
fflush (stdout); | fflush (stdout); | ||||
fprintf (stderr, "%s: ", PGM); | fprintf (stderr, "FAIL %s: ", PGM); | ||||
/* if (wherestr) */ | /* if (wherestr) */ | ||||
/* fprintf (stderr, "%s: ", wherestr); */ | /* fprintf (stderr, "%s: ", wherestr); */ | ||||
va_start (arg_ptr, format); | va_start (arg_ptr, format); | ||||
Context not available. | |||||
int rc; | int rc; | ||||
if (verbose) | if (verbose) | ||||
show ("creating 1024 bit RSA key\n"); | show ("creating 2048 bit RSA key\n"); | ||||
rc = gcry_sexp_new (&keyparm, | rc = gcry_sexp_new (&keyparm, | ||||
"(genkey\n" | "(genkey\n" | ||||
" (rsa\n" | " (rsa\n" | ||||
" (nbits 4:1024)\n" | " (nbits 4:2048)\n" | ||||
" ))", 0, 1); | " ))", 0, 1); | ||||
if (rc) | if (rc) | ||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | die ("error creating S-expression: %s\n", gpg_strerror (rc)); | ||||
Context not available. | |||||
gcry_sexp_release (keyparm); | gcry_sexp_release (keyparm); | ||||
if (rc) | if (rc) | ||||
die ("error generating RSA key: %s\n", gpg_strerror (rc)); | die ("error generating RSA key: %s\n", gpg_strerror (rc)); | ||||
if (verbose > 1) | |||||
show_sexp ("1024 bit RSA key:\n", key); | if (verbose) | ||||
check_generated_rsa_key (key, 65537); | show ("creating 1024 bit RSA key\n"); | ||||
rc = gcry_sexp_new (&keyparm, | |||||
"(genkey\n" | |||||
" (rsa\n" | |||||
" (nbits 4:1024)\n" | |||||
" ))", 0, 1); | |||||
if (rc) | |||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | |||||
rc = gcry_pk_genkey (&key, keyparm); | |||||
gcry_sexp_release (keyparm); | |||||
if (rc && !in_fips_mode) | |||||
fail ("error generating RSA key: %s\n", gpg_strerror (rc)); | |||||
else if (!rc && in_fips_mode) | |||||
fail ("generating 1024 bit RSA key must not work!"); | |||||
if (!rc) | |||||
{ | |||||
if (verbose > 1) | |||||
show_sexp ("1024 bit RSA key:\n", key); | |||||
check_generated_rsa_key (key, 65537); | |||||
} | |||||
gcry_sexp_release (key); | gcry_sexp_release (key); | ||||
Context not available. | |||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | die ("error creating S-expression: %s\n", gpg_strerror (rc)); | ||||
rc = gcry_pk_genkey (&key, keyparm); | rc = gcry_pk_genkey (&key, keyparm); | ||||
gcry_sexp_release (keyparm); | gcry_sexp_release (keyparm); | ||||
if (rc) | if (rc && !in_fips_mode) | ||||
die ("error generating RSA key: %s\n", gpg_strerror (rc)); | fail ("error generating RSA key: %s\n", gpg_strerror (rc)); | ||||
else if (!rc && in_fips_mode) | |||||
fail ("generating 512 bit RSA key must not work!"); | |||||
check_generated_rsa_key (key, 257); | if (!rc) | ||||
check_generated_rsa_key (key, 257); | |||||
gcry_sexp_release (key); | gcry_sexp_release (key); | ||||
if (verbose) | if (verbose) | ||||
Context not available. | |||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | die ("error creating S-expression: %s\n", gpg_strerror (rc)); | ||||
rc = gcry_pk_genkey (&key, keyparm); | rc = gcry_pk_genkey (&key, keyparm); | ||||
gcry_sexp_release (keyparm); | gcry_sexp_release (keyparm); | ||||
if (rc) | if (rc && !in_fips_mode) | ||||
die ("error generating RSA key: %s\n", gpg_strerror (rc)); | fail ("error generating RSA key: %s\n", gpg_strerror (rc)); | ||||
else if (!rc && in_fips_mode) | |||||
fail ("generating 512 bit RSA key must not work!"); | |||||
check_generated_rsa_key (key, 0); /* We don't expect a constant exponent. */ | if (!rc) | ||||
check_generated_rsa_key (key, 0); /* We don't expect a constant exponent. */ | |||||
gcry_sexp_release (key); | gcry_sexp_release (key); | ||||
} | } | ||||
Context not available. | |||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | die ("error creating S-expression: %s\n", gpg_strerror (rc)); | ||||
rc = gcry_pk_genkey (&key, keyparm); | rc = gcry_pk_genkey (&key, keyparm); | ||||
gcry_sexp_release (keyparm); | gcry_sexp_release (keyparm); | ||||
if (rc) | if (rc && !in_fips_mode) | ||||
die ("error generating DSA key: %s\n", gpg_strerror (rc)); | die ("error generating DSA key: %s\n", gpg_strerror (rc)); | ||||
else if (!rc && in_fips_mode) | |||||
die ("generating 512 bit DSA key must not work!"); | |||||
if (!i && verbose > 1) | if (!i && verbose > 1) | ||||
show_sexp ("1024 bit DSA key:\n", key); | show_sexp ("1024 bit DSA key:\n", key); | ||||
gcry_sexp_release (key); | gcry_sexp_release (key); | ||||
Context not available. | |||||
die ("error creating S-expression: %s\n", gpg_strerror (rc)); | die ("error creating S-expression: %s\n", gpg_strerror (rc)); | ||||
rc = gcry_pk_genkey (&key, keyparm); | rc = gcry_pk_genkey (&key, keyparm); | ||||
gcry_sexp_release (keyparm); | gcry_sexp_release (keyparm); | ||||
if (rc) | if (rc && !in_fips_mode) | ||||
die ("error generating DSA key: %s\n", gpg_strerror (rc)); | die ("error generating DSA key: %s\n", gpg_strerror (rc)); | ||||
else if (!rc && in_fips_mode) | |||||
die ("generating 1536 bit DSA key must not work!"); | |||||
if (verbose > 1) | if (verbose > 1) | ||||
show_sexp ("1536 bit DSA key:\n", key); | show_sexp ("1536 bit DSA key:\n", key); | ||||
gcry_sexp_release (key); | gcry_sexp_release (key); | ||||
Context not available. | |||||
break; | break; | ||||
} | } | ||||
if ( gcry_fips_mode_active () ) | |||||
in_fips_mode = 1; | |||||
if (!gcry_check_version (GCRYPT_VERSION)) | if (!gcry_check_version (GCRYPT_VERSION)) | ||||
die ("version mismatch\n"); | die ("version mismatch\n"); | ||||
gcry_control (GCRYCTL_DISABLE_SECMEM, 0); | gcry_control (GCRYCTL_DISABLE_SECMEM, 0); | ||||
Context not available. |