#include <libecc/lib_ecc_config.h>
#ifdef WITH_SIG_ECGDSA
#include <libecc/nn/nn.h>
#include <libecc/nn/nn_rand.h>
#include <libecc/nn/nn_mul_public.h>
#include <libecc/nn/nn_logical.h>
#include <libecc/sig/sig_algs_internal.h>
#include <libecc/sig/ec_key.h>
#ifdef VERBOSE_INNER_VALUES
#define EC_SIG_ALG "ECGDSA"
#endif
#include <libecc/utils/dbg_sig.h>
int ecgdsa_init_pub_key(ec_pub_key *out_pub, const ec_priv_key *in_priv)
{
prj_pt_src_t G;
nn_src_t q;
nn xinv;
int ret, cmp;
xinv.magic = WORD(0);
MUST_HAVE((out_pub != NULL), ret, err);
ret = local_memset(out_pub, 0, sizeof(ec_pub_key)); EG(ret, err);
ret = priv_key_check_initialized_and_type(in_priv, ECGDSA); EG(ret, err);
q = &(in_priv->params->ec_gen_order);
MUST_HAVE((!nn_cmp(&(in_priv->x), q, &cmp)) && (cmp < 0), ret, err);
G = &(in_priv->params->ec_gen);
ret = nn_modinv_fermat(&xinv, &(in_priv->x), &(in_priv->params->ec_gen_order)); EG(ret, err);
ret = prj_pt_mul_blind(&(out_pub->y), &xinv, G); EG(ret, err);
out_pub->key_type = ECGDSA;
out_pub->params = in_priv->params;
out_pub->magic = PUB_KEY_MAGIC;
err:
nn_uninit(&xinv);
return ret;
}
int ecgdsa_siglen(u16 p_bit_len, u16 q_bit_len, u8 hsize, u8 blocksize, u8 *siglen)
{
int ret;
MUST_HAVE((siglen != NULL), ret, err);
MUST_HAVE((p_bit_len <= CURVES_MAX_P_BIT_LEN) &&
(q_bit_len <= CURVES_MAX_Q_BIT_LEN) &&
(hsize <= MAX_DIGEST_SIZE) && (blocksize <= MAX_BLOCK_SIZE), ret, err);
(*siglen) = (u8)ECGDSA_SIGLEN(q_bit_len);
ret = 0;
err:
return ret;
}
#define ECGDSA_SIGN_MAGIC ((word_t)(0xe2f60ea3353ecc9eULL))
#define ECGDSA_SIGN_CHECK_INITIALIZED(A, ret, err) \
MUST_HAVE((((void *)(A)) != NULL) && \
((A)->magic == ECGDSA_SIGN_MAGIC), ret, err)
int _ecgdsa_sign_init(struct ec_sign_context *ctx)
{
int ret;
ret = sig_sign_check_initialized(ctx); EG(ret, err);
ret = key_pair_check_initialized_and_type(ctx->key_pair, ECGDSA); EG(ret, err);
MUST_HAVE((ctx->h != NULL) && (ctx->h->digest_size <= MAX_DIGEST_SIZE) &&
(ctx->h->block_size <= MAX_BLOCK_SIZE), ret, err);
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_init(&(ctx->sign_data.ecgdsa.h_ctx)); EG(ret, err);
ctx->sign_data.ecgdsa.magic = ECGDSA_SIGN_MAGIC;
err:
return ret;
}
int _ecgdsa_sign_update(struct ec_sign_context *ctx,
const u8 *chunk, u32 chunklen)
{
int ret;
ret = sig_sign_check_initialized(ctx); EG(ret, err);
ECGDSA_SIGN_CHECK_INITIALIZED(&(ctx->sign_data.ecgdsa), ret, err);
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_update(&(ctx->sign_data.ecgdsa.h_ctx), chunk, chunklen);
err:
return ret;
}
int _ecgdsa_sign_finalize(struct ec_sign_context *ctx, u8 *sig, u8 siglen)
{
nn_src_t q, x;
u8 e_buf[MAX_DIGEST_SIZE];
const ec_priv_key *priv_key;
prj_pt_src_t G;
u8 hsize, r_len, s_len;
bitcnt_t q_bit_len, p_bit_len, rshift;
prj_pt kG;
int ret, cmp, iszero;
nn tmp, s, e, kr, k, r;
#ifdef USE_SIG_BLINDING
nn b, binv;
b.magic = binv.magic = WORD(0);
#endif
tmp.magic = s.magic = e.magic = WORD(0);
kr.magic = k.magic = r.magic = WORD(0);
kG.magic = WORD(0);
ret = sig_sign_check_initialized(ctx); EG(ret, err);
ECGDSA_SIGN_CHECK_INITIALIZED(&(ctx->sign_data.ecgdsa), ret, err);
MUST_HAVE((sig != NULL), ret, err);
ret = local_memset(&kG, 0, sizeof(prj_pt)); EG(ret, err);
priv_key = &(ctx->key_pair->priv_key);
G = &(priv_key->params->ec_gen);
q = &(priv_key->params->ec_gen_order);
x = &(priv_key->x);
q_bit_len = priv_key->params->ec_gen_order_bitlen;
p_bit_len = priv_key->params->ec_fp.p_bitlen;
MUST_HAVE(((u32)BYTECEIL(p_bit_len) <= NN_MAX_BYTE_LEN), ret, err);
r_len = (u8)ECGDSA_R_LEN(q_bit_len);
s_len = (u8)ECGDSA_S_LEN(q_bit_len);
hsize = ctx->h->digest_size;
ret = nn_cmp(x, q, &cmp); EG(ret, err);
MUST_HAVE((cmp < 0), ret, err);
MUST_HAVE((siglen == ECGDSA_SIGLEN(q_bit_len)), ret, err);
dbg_nn_print("p", &(priv_key->params->ec_fp.p));
dbg_nn_print("q", q);
dbg_priv_key_print("x", priv_key);
dbg_ec_point_print("G", G);
dbg_pub_key_print("Y", &(ctx->key_pair->pub_key));
ret = local_memset(e_buf, 0, hsize); EG(ret, err);
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_finalize(&(ctx->sign_data.ecgdsa.h_ctx), e_buf); EG(ret, err);
dbg_buf_print("H(m)", e_buf, hsize);
rshift = 0;
if ((hsize * 8) > q_bit_len) {
rshift = (bitcnt_t)((hsize * 8) - q_bit_len);
}
ret = nn_init_from_buf(&tmp, e_buf, hsize); EG(ret, err);
ret = local_memset(e_buf, 0, hsize); EG(ret, err);
if (rshift) {
ret = nn_rshift_fixedlen(&tmp, &tmp, rshift); EG(ret, err);
}
dbg_nn_print("H(m) truncated as nn", &tmp);
ret = nn_mod(&tmp, &tmp, q); EG(ret, err);
ret = nn_mod_neg(&e, &tmp, q); EG(ret, err);
restart:
#ifdef NO_KNOWN_VECTORS
MUST_HAVE(ctx->rand == nn_get_random_mod, ret, err);
#endif
MUST_HAVE(ctx->rand != NULL, ret, err);
ret = ctx->rand(&k, q); EG(ret, err);
#ifdef USE_SIG_BLINDING
ret = nn_get_random_mod(&b, q); EG(ret, err);
dbg_nn_print("b", &b);
#endif
#ifdef USE_SIG_BLINDING
ret = prj_pt_mul_blind(&kG, &k, G); EG(ret, err);
#else
ret = prj_pt_mul(&kG, &k, G); EG(ret, err);
#endif
ret = prj_pt_unique(&kG, &kG); EG(ret, err);
dbg_nn_print("W_x", &(kG.X.fp_val));
dbg_nn_print("W_y", &(kG.Y.fp_val));
ret = nn_mod(&r, &(kG.X.fp_val), q); EG(ret, err);
dbg_nn_print("r", &r);
ret = nn_iszero(&r, &iszero); EG(ret, err);
if (iszero) {
goto restart;
}
ret = nn_export_to_buf(sig, r_len, &r); EG(ret, err);
#ifdef USE_SIG_BLINDING
ret = nn_mod_mul(&e, &e, &b, q); EG(ret, err);
ret = nn_mod_mul(&r, &r, &b, q); EG(ret, err);
#endif
ret = nn_mod_mul(&kr, &k, &r, q); EG(ret, err);
ret = nn_mod_add(&tmp, &kr, &e, q); EG(ret, err);
ret = nn_mod_mul(&s, x, &tmp, q); EG(ret, err);
#ifdef USE_SIG_BLINDING
ret = nn_modinv_fermat(&binv, &b, q); EG(ret, err);
ret = nn_mod_mul(&s, &s, &binv, q); EG(ret, err);
#endif
dbg_nn_print("s", &s);
ret = nn_iszero(&s, &iszero); EG(ret, err);
if (iszero) {
goto restart;
}
ret = nn_export_to_buf(sig + r_len, s_len, &s);
err:
nn_uninit(&tmp);
nn_uninit(&s);
nn_uninit(&e);
nn_uninit(&kr);
nn_uninit(&k);
nn_uninit(&r);
prj_pt_uninit(&kG);
#ifdef USE_SIG_BLINDING
nn_uninit(&b);
nn_uninit(&binv);
#endif
if(ctx != NULL){
IGNORE_RET_VAL(local_memset(&(ctx->sign_data.ecgdsa), 0, sizeof(ecgdsa_sign_data)));
}
VAR_ZEROIFY(q_bit_len);
VAR_ZEROIFY(p_bit_len);
VAR_ZEROIFY(r_len);
VAR_ZEROIFY(s_len);
VAR_ZEROIFY(hsize);
PTR_NULLIFY(q);
PTR_NULLIFY(x);
PTR_NULLIFY(priv_key);
PTR_NULLIFY(G);
return ret;
}
#define ECGDSA_VERIFY_MAGIC ((word_t)(0xd4da37527288d1b6ULL))
#define ECGDSA_VERIFY_CHECK_INITIALIZED(A, ret, err) \
MUST_HAVE((((void *)(A)) != NULL) && \
((A)->magic == ECGDSA_VERIFY_MAGIC), ret, err)
int _ecgdsa_verify_init(struct ec_verify_context *ctx,
const u8 *sig, u8 siglen)
{
u8 r_len, s_len;
bitcnt_t q_bit_len;
nn_src_t q;
nn *s, *r;
int ret, iszero1, iszero2, cmp1, cmp2;
ret = sig_verify_check_initialized(ctx); EG(ret, err);
ret = pub_key_check_initialized_and_type(ctx->pub_key, ECGDSA); EG(ret, err);
MUST_HAVE((ctx->h != NULL) && (ctx->h->digest_size <= MAX_DIGEST_SIZE) &&
(ctx->h->block_size <= MAX_BLOCK_SIZE), ret, err);
MUST_HAVE((sig != NULL), ret, err);
q = &(ctx->pub_key->params->ec_gen_order);
q_bit_len = ctx->pub_key->params->ec_gen_order_bitlen;
r = &(ctx->verify_data.ecgdsa.r);
s = &(ctx->verify_data.ecgdsa.s);
r_len = (u8)ECGDSA_R_LEN(q_bit_len);
s_len = (u8)ECGDSA_S_LEN(q_bit_len);
MUST_HAVE((siglen == ECGDSA_SIGLEN(q_bit_len)), ret, err);
ret = nn_init_from_buf(r, sig, r_len); EG(ret, err);
ret = nn_init_from_buf(s, sig + r_len, s_len); EG(ret, err);
ret = nn_iszero(s, &iszero1); EG(ret, err);
ret = nn_iszero(r, &iszero2); EG(ret, err);
ret = nn_cmp(s, q, &cmp1); EG(ret, err);
ret = nn_cmp(r, q, &cmp2); EG(ret, err);
MUST_HAVE((!iszero1) && (cmp1 < 0) && (!iszero2) && (cmp2 < 0), ret, err);
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_init(&(ctx->verify_data.ecgdsa.h_ctx)); EG(ret, err);
ctx->verify_data.ecgdsa.magic = ECGDSA_VERIFY_MAGIC;
err:
VAR_ZEROIFY(q_bit_len);
VAR_ZEROIFY(r_len);
VAR_ZEROIFY(s_len);
PTR_NULLIFY(q);
PTR_NULLIFY(s);
PTR_NULLIFY(r);
return ret;
}
int _ecgdsa_verify_update(struct ec_verify_context *ctx,
const u8 *chunk, u32 chunklen)
{
int ret;
ret = sig_verify_check_initialized(ctx); EG(ret, err);
ECGDSA_VERIFY_CHECK_INITIALIZED(&(ctx->verify_data.ecgdsa), ret, err);
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_update(&(ctx->verify_data.ecgdsa.h_ctx), chunk,
chunklen);
err:
return ret;
}
int _ecgdsa_verify_finalize(struct ec_verify_context *ctx)
{
nn e, r_prime, rinv, uv, *r, *s;
prj_pt uG, vY;
prj_pt_t Wprime;
prj_pt_src_t G, Y;
u8 e_buf[MAX_DIGEST_SIZE];
nn_src_t q;
u8 hsize;
bitcnt_t q_bit_len, rshift;
int ret, cmp;
e.magic = r_prime.magic = WORD(0);
rinv.magic = uv.magic = WORD(0);
uG.magic = vY.magic = WORD(0);
Wprime = &uG;
ret = sig_verify_check_initialized(ctx); EG(ret, err);
ECGDSA_VERIFY_CHECK_INITIALIZED(&(ctx->verify_data.ecgdsa), ret, err);
ret = local_memset(&uG, 0, sizeof(prj_pt)); EG(ret, err);
ret = local_memset(&vY, 0, sizeof(prj_pt)); EG(ret, err);
G = &(ctx->pub_key->params->ec_gen);
Y = &(ctx->pub_key->y);
q = &(ctx->pub_key->params->ec_gen_order);
r = &(ctx->verify_data.ecgdsa.r);
s = &(ctx->verify_data.ecgdsa.s);
q_bit_len = ctx->pub_key->params->ec_gen_order_bitlen;
hsize = ctx->h->digest_size;
ret = hash_mapping_callbacks_sanity_check(ctx->h); EG(ret, err);
ret = ctx->h->hfunc_finalize(&(ctx->verify_data.ecgdsa.h_ctx), e_buf); EG(ret, err);
dbg_buf_print("H(m)", e_buf, hsize);
rshift = 0;
if ((hsize * 8) > q_bit_len) {
rshift = (bitcnt_t)((hsize * 8) - q_bit_len);
}
ret = nn_init_from_buf(&e, e_buf, hsize); EG(ret, err);
ret = local_memset(e_buf, 0, hsize); EG(ret, err);
if (rshift) {
ret = nn_rshift_fixedlen(&e, &e, rshift); EG(ret, err);
}
dbg_nn_print("H(m) truncated as nn", &e);
ret = nn_mod(&e, &e, q); EG(ret, err);
ret = nn_modinv(&rinv, r, q); EG(ret, err);
ret = nn_mod_mul(&uv, &rinv, &e, q); EG(ret, err);
ret = prj_pt_mul(&uG, &uv, G); EG(ret, err);
ret = nn_mod_mul(&uv, &rinv, s, q); EG(ret, err);
ret = prj_pt_mul(&vY, &uv, Y); EG(ret, err);
ret = prj_pt_add(Wprime, &uG, &vY); EG(ret, err);
ret = prj_pt_unique(Wprime, Wprime); EG(ret, err);
dbg_nn_print("W'_x", &(Wprime->X.fp_val));
dbg_nn_print("W'_y", &(Wprime->Y.fp_val));
ret = nn_mod(&r_prime, &(Wprime->X.fp_val), q); EG(ret, err);
ret = nn_cmp(r, &r_prime, &cmp); EG(ret, err);
ret = (cmp != 0) ? -1 : 0;
err:
nn_uninit(&e);
nn_uninit(&r_prime);
nn_uninit(&rinv);
nn_uninit(&uv);
prj_pt_uninit(&uG);
prj_pt_uninit(&vY);
if(ctx != NULL){
IGNORE_RET_VAL(local_memset(&(ctx->verify_data.ecgdsa), 0,
sizeof(ecgdsa_verify_data)));
}
PTR_NULLIFY(Wprime);
PTR_NULLIFY(r);
PTR_NULLIFY(s);
PTR_NULLIFY(G);
PTR_NULLIFY(Y);
PTR_NULLIFY(q);
VAR_ZEROIFY(hsize);
return ret;
}
#else
typedef int dummy;
#endif