engines/ccgost/gost2001.c

40 	BN_CTX *ctx=BN_CTX_new();
43 	BN_CTX_start(ctx);
44 	p=BN_CTX_get(ctx);
45 	a=BN_CTX_get(ctx);
46 	b=BN_CTX_get(ctx);
47 	x=BN_CTX_get(ctx);
48 	y=BN_CTX_get(ctx);
49 	q=BN_CTX_get(ctx);
60 	grp = EC_GROUP_new_curve_GFp(p,a,b,ctx);
66 	EC_POINT_set_affine_coordinates_GFp(grp,P,x,y,ctx);
83 	BN_CTX_end(ctx);
84 	BN_CTX_free(ctx);
103 	BN_CTX *ctx = BN_CTX_new();
104 	BN_CTX_start(ctx);
113 	order=BN_CTX_get(ctx);
114 	EC_GROUP_get_order(group,order,ctx);
116 	e = BN_CTX_get(ctx);
117 	BN_mod(e,md,order,ctx);
129 	k =BN_CTX_get(ctx);
142 			if (!EC_POINT_mul(group,C,k,NULL,NULL,ctx))
149 			if (!X) X=BN_CTX_get(ctx);
150 			if (!EC_POINT_get_affine_coordinates_GFp(group,C,X,NULL,ctx))
157 			if (!r) r=BN_CTX_get(ctx);
158 			BN_nnmod(r,X,order,ctx);
162 		if (!tmp) tmp = BN_CTX_get(ctx);
163 		BN_mod_mul(tmp,priv_key,r,order,ctx);
164 		if (!tmp2) tmp2 = BN_CTX_get(ctx);
165 		BN_mod_mul(tmp2,k,e,order,ctx);
166 		if (!s) s=BN_CTX_get(ctx);
167 		BN_mod_add(s,tmp,tmp2,order,ctx);
174 	BN_CTX_end(ctx);
175 	BN_CTX_free(ctx);
187 	BN_CTX *ctx=BN_CTX_new();
196 	BN_CTX_start(ctx);
197 	order = BN_CTX_get(ctx);
198 	e = BN_CTX_get(ctx);
199 	z1 = BN_CTX_get(ctx);
200 	z2 = BN_CTX_get(ctx);
201 	tmp = BN_CTX_get(ctx);
202 	X= BN_CTX_get(ctx);
203 	R=BN_CTX_get(ctx);
204 	v=BN_CTX_get(ctx);
206 	EC_GROUP_get_order(group,order,ctx);
217 	BN_mod(e,md,order,ctx);
225 	v=BN_mod_inverse(v,e,order,ctx);
226 	BN_mod_mul(z1,sig->s,v,order,ctx);
228 	BN_mod_mul(z2,tmp,v,order,ctx);
238 	if (!EC_POINT_mul(group,C,z1,pub_key,z2,ctx))
243 	if (!EC_POINT_get_affine_coordinates_GFp(group,C,X,NULL,ctx))
248 	BN_mod(R,X,order,ctx);
266 	BN_CTX_end(ctx);
267 	BN_CTX_free(ctx);
281 	BN_CTX *ctx=NULL;
289 	ctx=BN_CTX_new();
290 	BN_CTX_start(ctx);
298 	if (!EC_POINT_mul(group,pub_key,priv_key,NULL,NULL,ctx))
310 	BN_CTX_end(ctx);
312 	BN_CTX_free(ctx);