Changeset View
Changeset View
Standalone View
Standalone View
b/tests/pubkey.c
Context not available. | |||||
rc = gcry_sexp_new (&key_spec, | rc = gcry_sexp_new (&key_spec, | ||||
transient_key | transient_key | ||||
? "(genkey (dsa (nbits 4:1024)(transient-key)))" | ? "(genkey (dsa (nbits 4:2048)(transient-key)))" | ||||
: "(genkey (dsa (nbits 4:1024)))", | : "(genkey (dsa (nbits 4:2048)))", | ||||
0, 1); | 0, 1); | ||||
if (rc) | if (rc) | ||||
die ("error creating S-expression: %s\n", gcry_strerror (rc)); | die ("error creating S-expression: %s\n", gcry_strerror (rc)); | ||||
Context not available. | |||||
int rc; | int rc; | ||||
rc = gcry_sexp_new | rc = gcry_sexp_new | ||||
(&key_spec, "(genkey (dsa (nbits 4:1024)(use-fips186)))", 0, 1); | (&key_spec, "(genkey (dsa (nbits 4:2048)(use-fips186)))", 0, 1); | ||||
if (rc) | if (rc) | ||||
die ("error creating S-expression: %s\n", gcry_strerror (rc)); | die ("error creating S-expression: %s\n", gcry_strerror (rc)); | ||||
rc = gcry_pk_genkey (&key, key_spec); | rc = gcry_pk_genkey (&key, key_spec); | ||||
Context not available. | |||||
(&key_spec, | (&key_spec, | ||||
"(genkey" | "(genkey" | ||||
" (dsa" | " (dsa" | ||||
" (nbits 4:1024)" | " (nbits 4:3072)" | ||||
" (use-fips186)" | " (use-fips186)" | ||||
" (transient-key)" | " (transient-key)" | ||||
" (derive-parms" | " (derive-parms" | ||||
Context not available. | |||||
gcry_sexp_release (pkey); | gcry_sexp_release (pkey); | ||||
gcry_sexp_release (skey); | gcry_sexp_release (skey); | ||||
if (verbose) | /* The given domain contains too short q for generate_fips186 */ | ||||
fprintf (stderr, "Generating DSA key with given domain.\n"); | if (!gcry_fips_mode_active()) | ||||
get_dsa_key_with_domain_new (&pkey, &skey); | { | ||||
/* Fixme: Add a check function for DSA keys. */ | if (verbose) | ||||
gcry_sexp_release (pkey); | fprintf (stderr, "Generating DSA key with given domain.\n"); | ||||
gcry_sexp_release (skey); | get_dsa_key_with_domain_new (&pkey, &skey); | ||||
/* Fixme: Add a check function for DSA keys. */ | |||||
gcry_sexp_release (pkey); | |||||
gcry_sexp_release (skey); | |||||
} | |||||
/* The given domain contains too short q for generate_fips186 */ | |||||
/* | |||||
if (verbose) | if (verbose) | ||||
fprintf (stderr, "Generating DSA key with given domain (FIPS 186).\n"); | fprintf (stderr, "Generating DSA key with given domain (FIPS 186).\n"); | ||||
get_dsa_key_fips186_with_domain_new (&pkey, &skey); | get_dsa_key_fips186_with_domain_new (&pkey, &skey); | ||||
/* Fixme: Add a check function for DSA keys. */ | / * Fixme: Add a check function for DSA keys. * / | ||||
gcry_sexp_release (pkey); | gcry_sexp_release (pkey); | ||||
gcry_sexp_release (skey); | gcry_sexp_release (skey); | ||||
*/ | |||||
if (verbose) | if (verbose) | ||||
fprintf (stderr, "Generating DSA key with given seed (FIPS 186).\n"); | fprintf (stderr, "Generating DSA key with given seed (FIPS 186).\n"); | ||||
Context not available. | |||||
check_x931_derived_key (i); | check_x931_derived_key (i); | ||||
check_ecc_sample_key (); | check_ecc_sample_key (); | ||||
check_ed25519ecdsa_sample_key (); | if (!gcry_fips_mode_active ()) | ||||
check_ed25519ecdsa_sample_key (); | |||||
return !!error_count; | return !!error_count; | ||||
} | } | ||||
Context not available. |