]>
Commit | Line | Data |
---|---|---|
71712b27 GM |
1 | /********************************************************************** |
2 | * Copyright (c) 2013, 2014 Pieter Wuille * | |
3 | * Distributed under the MIT software license, see the accompanying * | |
4 | * file COPYING or http://www.opensource.org/licenses/mit-license.php.* | |
5 | **********************************************************************/ | |
0a433ea2 | 6 | |
7a4b7691 PW |
7 | #ifndef _SECP256K1_GROUP_IMPL_H_ |
8 | #define _SECP256K1_GROUP_IMPL_H_ | |
9 | ||
f11ff5be | 10 | #include <string.h> |
607884fc | 11 | |
11ab5622 PW |
12 | #include "num.h" |
13 | #include "field.h" | |
14 | #include "group.h" | |
607884fc | 15 | |
a4a43d75 | 16 | static void secp256k1_ge_set_infinity(secp256k1_ge_t *r) { |
f11ff5be | 17 | r->infinity = 1; |
607884fc PW |
18 | } |
19 | ||
a4a43d75 | 20 | static void secp256k1_ge_set_xy(secp256k1_ge_t *r, const secp256k1_fe_t *x, const secp256k1_fe_t *y) { |
f11ff5be PW |
21 | r->infinity = 0; |
22 | r->x = *x; | |
23 | r->y = *y; | |
607884fc PW |
24 | } |
25 | ||
a4a43d75 | 26 | static int secp256k1_ge_is_infinity(const secp256k1_ge_t *a) { |
f11ff5be | 27 | return a->infinity; |
607884fc PW |
28 | } |
29 | ||
a4a43d75 | 30 | static void secp256k1_ge_neg(secp256k1_ge_t *r, const secp256k1_ge_t *a) { |
39bd94d8 | 31 | *r = *a; |
0295f0a3 | 32 | secp256k1_fe_normalize_weak(&r->y); |
39bd94d8 PW |
33 | secp256k1_fe_negate(&r->y, &r->y, 1); |
34 | } | |
35 | ||
a4a43d75 | 36 | static void secp256k1_ge_get_hex(char *r, int *rlen, const secp256k1_ge_t *a) { |
f11ff5be PW |
37 | char cx[65]; int lx=65; |
38 | char cy[65]; int ly=65; | |
39 | secp256k1_fe_get_hex(cx, &lx, &a->x); | |
40 | secp256k1_fe_get_hex(cy, &ly, &a->y); | |
41 | lx = strlen(cx); | |
42 | ly = strlen(cy); | |
43 | int len = lx + ly + 3 + 1; | |
44 | if (*rlen < len) { | |
45 | *rlen = len; | |
46 | return; | |
47 | } | |
48 | *rlen = len; | |
49 | r[0] = '('; | |
50 | memcpy(r+1, cx, lx); | |
51 | r[1+lx] = ','; | |
52 | memcpy(r+2+lx, cy, ly); | |
53 | r[2+lx+ly] = ')'; | |
54 | r[3+lx+ly] = 0; | |
55 | } | |
56 | ||
a4a43d75 | 57 | static void secp256k1_ge_set_gej(secp256k1_ge_t *r, secp256k1_gej_t *a) { |
da55986f PW |
58 | r->infinity = a->infinity; |
59 | secp256k1_fe_inv(&a->z, &a->z); | |
60 | secp256k1_fe_t z2; secp256k1_fe_sqr(&z2, &a->z); | |
61 | secp256k1_fe_t z3; secp256k1_fe_mul(&z3, &a->z, &z2); | |
62 | secp256k1_fe_mul(&a->x, &a->x, &z2); | |
63 | secp256k1_fe_mul(&a->y, &a->y, &z3); | |
64 | secp256k1_fe_set_int(&a->z, 1); | |
65 | r->x = a->x; | |
66 | r->y = a->y; | |
67 | } | |
68 | ||
a4a43d75 | 69 | static void secp256k1_ge_set_gej_var(secp256k1_ge_t *r, secp256k1_gej_t *a) { |
1136bedb PW |
70 | r->infinity = a->infinity; |
71 | if (a->infinity) { | |
72 | return; | |
73 | } | |
f11ff5be PW |
74 | secp256k1_fe_inv_var(&a->z, &a->z); |
75 | secp256k1_fe_t z2; secp256k1_fe_sqr(&z2, &a->z); | |
76 | secp256k1_fe_t z3; secp256k1_fe_mul(&z3, &a->z, &z2); | |
77 | secp256k1_fe_mul(&a->x, &a->x, &z2); | |
78 | secp256k1_fe_mul(&a->y, &a->y, &z3); | |
79 | secp256k1_fe_set_int(&a->z, 1); | |
f11ff5be PW |
80 | r->x = a->x; |
81 | r->y = a->y; | |
607884fc PW |
82 | } |
83 | ||
a4a43d75 | 84 | static void secp256k1_ge_set_all_gej_var(size_t len, secp256k1_ge_t r[len], const secp256k1_gej_t a[len]) { |
65a14abb | 85 | size_t count = 0; |
a5759c57 | 86 | secp256k1_fe_t *az = checked_malloc(sizeof(secp256k1_fe_t) * len); |
65a14abb | 87 | for (size_t i=0; i<len; i++) { |
f16be77f PD |
88 | if (!a[i].infinity) { |
89 | az[count++] = a[i].z; | |
90 | } | |
91 | } | |
92 | ||
a5759c57 | 93 | secp256k1_fe_t *azi = checked_malloc(sizeof(secp256k1_fe_t) * count); |
f16be77f | 94 | secp256k1_fe_inv_all_var(count, azi, az); |
f461b769 | 95 | free(az); |
f16be77f PD |
96 | |
97 | count = 0; | |
65a14abb | 98 | for (size_t i=0; i<len; i++) { |
f16be77f PD |
99 | r[i].infinity = a[i].infinity; |
100 | if (!a[i].infinity) { | |
101 | secp256k1_fe_t *zi = &azi[count++]; | |
102 | secp256k1_fe_t zi2; secp256k1_fe_sqr(&zi2, zi); | |
103 | secp256k1_fe_t zi3; secp256k1_fe_mul(&zi3, &zi2, zi); | |
104 | secp256k1_fe_mul(&r[i].x, &a[i].x, &zi2); | |
105 | secp256k1_fe_mul(&r[i].y, &a[i].y, &zi3); | |
106 | } | |
107 | } | |
f461b769 | 108 | free(azi); |
f16be77f PD |
109 | } |
110 | ||
a4a43d75 | 111 | static void secp256k1_gej_set_infinity(secp256k1_gej_t *r) { |
f11ff5be | 112 | r->infinity = 1; |
9338dbf7 PW |
113 | secp256k1_fe_set_int(&r->x, 0); |
114 | secp256k1_fe_set_int(&r->y, 0); | |
115 | secp256k1_fe_set_int(&r->z, 0); | |
607884fc PW |
116 | } |
117 | ||
a4a43d75 | 118 | static void secp256k1_gej_set_xy(secp256k1_gej_t *r, const secp256k1_fe_t *x, const secp256k1_fe_t *y) { |
f11ff5be PW |
119 | r->infinity = 0; |
120 | r->x = *x; | |
121 | r->y = *y; | |
122 | secp256k1_fe_set_int(&r->z, 1); | |
607884fc PW |
123 | } |
124 | ||
a4a43d75 | 125 | static void secp256k1_gej_clear(secp256k1_gej_t *r) { |
2f6c8019 GM |
126 | r->infinity = 0; |
127 | secp256k1_fe_clear(&r->x); | |
128 | secp256k1_fe_clear(&r->y); | |
129 | secp256k1_fe_clear(&r->z); | |
130 | } | |
131 | ||
a4a43d75 | 132 | static void secp256k1_ge_clear(secp256k1_ge_t *r) { |
2f6c8019 GM |
133 | r->infinity = 0; |
134 | secp256k1_fe_clear(&r->x); | |
135 | secp256k1_fe_clear(&r->y); | |
136 | } | |
137 | ||
39bd94d8 | 138 | static int secp256k1_ge_set_xo_var(secp256k1_ge_t *r, const secp256k1_fe_t *x, int odd) { |
f11ff5be PW |
139 | r->x = *x; |
140 | secp256k1_fe_t x2; secp256k1_fe_sqr(&x2, x); | |
141 | secp256k1_fe_t x3; secp256k1_fe_mul(&x3, x, &x2); | |
eb0be8ee | 142 | r->infinity = 0; |
f11ff5be PW |
143 | secp256k1_fe_t c; secp256k1_fe_set_int(&c, 7); |
144 | secp256k1_fe_add(&c, &x3); | |
39bd94d8 | 145 | if (!secp256k1_fe_sqrt_var(&r->y, &c)) |
09ca4f32 | 146 | return 0; |
39bd94d8 | 147 | secp256k1_fe_normalize_var(&r->y); |
f11ff5be PW |
148 | if (secp256k1_fe_is_odd(&r->y) != odd) |
149 | secp256k1_fe_negate(&r->y, &r->y, 1); | |
09ca4f32 | 150 | return 1; |
910d0de4 | 151 | } |
607884fc | 152 | |
a4a43d75 | 153 | static void secp256k1_gej_set_ge(secp256k1_gej_t *r, const secp256k1_ge_t *a) { |
f11ff5be PW |
154 | r->infinity = a->infinity; |
155 | r->x = a->x; | |
156 | r->y = a->y; | |
157 | secp256k1_fe_set_int(&r->z, 1); | |
910d0de4 | 158 | } |
607884fc | 159 | |
ce7eb6fb PW |
160 | static int secp256k1_gej_eq_x_var(const secp256k1_fe_t *x, const secp256k1_gej_t *a) { |
161 | VERIFY_CHECK(!a->infinity); | |
162 | secp256k1_fe_t r; secp256k1_fe_sqr(&r, &a->z); secp256k1_fe_mul(&r, &r, x); | |
163 | secp256k1_fe_t r2 = a->x; | |
164 | secp256k1_fe_normalize_var(&r); | |
165 | secp256k1_fe_normalize_var(&r2); | |
166 | return secp256k1_fe_equal(&r, &r2); | |
910d0de4 | 167 | } |
607884fc | 168 | |
0295f0a3 | 169 | static void secp256k1_gej_neg(secp256k1_gej_t *r, const secp256k1_gej_t *a) { |
f11ff5be PW |
170 | r->infinity = a->infinity; |
171 | r->x = a->x; | |
172 | r->y = a->y; | |
173 | r->z = a->z; | |
0295f0a3 | 174 | secp256k1_fe_normalize_weak(&r->y); |
f11ff5be | 175 | secp256k1_fe_negate(&r->y, &r->y, 1); |
607884fc PW |
176 | } |
177 | ||
a4a43d75 | 178 | static int secp256k1_gej_is_infinity(const secp256k1_gej_t *a) { |
f11ff5be | 179 | return a->infinity; |
0a07e62f PW |
180 | } |
181 | ||
39bd94d8 | 182 | static int secp256k1_gej_is_valid_var(const secp256k1_gej_t *a) { |
f11ff5be | 183 | if (a->infinity) |
eb0be8ee | 184 | return 0; |
71712b27 GM |
185 | /** y^2 = x^3 + 7 |
186 | * (Y/Z^3)^2 = (X/Z^2)^3 + 7 | |
187 | * Y^2 / Z^6 = X^3 / Z^6 + 7 | |
188 | * Y^2 = X^3 + 7*Z^6 | |
189 | */ | |
f11ff5be PW |
190 | secp256k1_fe_t y2; secp256k1_fe_sqr(&y2, &a->y); |
191 | secp256k1_fe_t x3; secp256k1_fe_sqr(&x3, &a->x); secp256k1_fe_mul(&x3, &x3, &a->x); | |
192 | secp256k1_fe_t z2; secp256k1_fe_sqr(&z2, &a->z); | |
910d0de4 PW |
193 | secp256k1_fe_t z6; secp256k1_fe_sqr(&z6, &z2); secp256k1_fe_mul(&z6, &z6, &z2); |
194 | secp256k1_fe_mul_int(&z6, 7); | |
195 | secp256k1_fe_add(&x3, &z6); | |
39bd94d8 PW |
196 | secp256k1_fe_normalize_var(&y2); |
197 | secp256k1_fe_normalize_var(&x3); | |
910d0de4 | 198 | return secp256k1_fe_equal(&y2, &x3); |
607884fc PW |
199 | } |
200 | ||
39bd94d8 | 201 | static int secp256k1_ge_is_valid_var(const secp256k1_ge_t *a) { |
764332d0 PW |
202 | if (a->infinity) |
203 | return 0; | |
71712b27 | 204 | /* y^2 = x^3 + 7 */ |
764332d0 PW |
205 | secp256k1_fe_t y2; secp256k1_fe_sqr(&y2, &a->y); |
206 | secp256k1_fe_t x3; secp256k1_fe_sqr(&x3, &a->x); secp256k1_fe_mul(&x3, &x3, &a->x); | |
207 | secp256k1_fe_t c; secp256k1_fe_set_int(&c, 7); | |
208 | secp256k1_fe_add(&x3, &c); | |
39bd94d8 PW |
209 | secp256k1_fe_normalize_var(&y2); |
210 | secp256k1_fe_normalize_var(&x3); | |
764332d0 PW |
211 | return secp256k1_fe_equal(&y2, &x3); |
212 | } | |
213 | ||
a4a43d75 | 214 | static void secp256k1_gej_double_var(secp256k1_gej_t *r, const secp256k1_gej_t *a) { |
e3d692ff PW |
215 | // For secp256k1, 2Q is infinity if and only if Q is infinity. This is because if 2Q = infinity, |
216 | // Q must equal -Q, or that Q.y == -(Q.y), or Q.y is 0. For a point on y^2 = x^3 + 7 to have | |
217 | // y=0, x^3 must be -7 mod p. However, -7 has no cube root mod p. | |
f7dc1c65 PW |
218 | r->infinity = a->infinity; |
219 | if (r->infinity) { | |
607884fc PW |
220 | return; |
221 | } | |
222 | ||
910d0de4 | 223 | secp256k1_fe_t t1,t2,t3,t4; |
be82e92f | 224 | secp256k1_fe_mul(&r->z, &a->z, &a->y); |
71712b27 | 225 | secp256k1_fe_mul_int(&r->z, 2); /* Z' = 2*Y*Z (2) */ |
f11ff5be | 226 | secp256k1_fe_sqr(&t1, &a->x); |
71712b27 GM |
227 | secp256k1_fe_mul_int(&t1, 3); /* T1 = 3*X^2 (3) */ |
228 | secp256k1_fe_sqr(&t2, &t1); /* T2 = 9*X^4 (1) */ | |
f7dc1c65 | 229 | secp256k1_fe_sqr(&t3, &a->y); |
71712b27 | 230 | secp256k1_fe_mul_int(&t3, 2); /* T3 = 2*Y^2 (2) */ |
910d0de4 | 231 | secp256k1_fe_sqr(&t4, &t3); |
71712b27 | 232 | secp256k1_fe_mul_int(&t4, 2); /* T4 = 8*Y^4 (2) */ |
be82e92f | 233 | secp256k1_fe_mul(&t3, &t3, &a->x); /* T3 = 2*X*Y^2 (1) */ |
f11ff5be | 234 | r->x = t3; |
71712b27 GM |
235 | secp256k1_fe_mul_int(&r->x, 4); /* X' = 8*X*Y^2 (4) */ |
236 | secp256k1_fe_negate(&r->x, &r->x, 4); /* X' = -8*X*Y^2 (5) */ | |
237 | secp256k1_fe_add(&r->x, &t2); /* X' = 9*X^4 - 8*X*Y^2 (6) */ | |
238 | secp256k1_fe_negate(&t2, &t2, 1); /* T2 = -9*X^4 (2) */ | |
239 | secp256k1_fe_mul_int(&t3, 6); /* T3 = 12*X*Y^2 (6) */ | |
240 | secp256k1_fe_add(&t3, &t2); /* T3 = 12*X*Y^2 - 9*X^4 (8) */ | |
241 | secp256k1_fe_mul(&r->y, &t1, &t3); /* Y' = 36*X^3*Y^2 - 27*X^6 (1) */ | |
242 | secp256k1_fe_negate(&t2, &t4, 2); /* T2 = -8*Y^4 (3) */ | |
243 | secp256k1_fe_add(&r->y, &t2); /* Y' = 36*X^3*Y^2 - 27*X^6 - 8*Y^4 (4) */ | |
607884fc PW |
244 | } |
245 | ||
a4a43d75 | 246 | static void secp256k1_gej_add_var(secp256k1_gej_t *r, const secp256k1_gej_t *a, const secp256k1_gej_t *b) { |
f11ff5be PW |
247 | if (a->infinity) { |
248 | *r = *b; | |
607884fc PW |
249 | return; |
250 | } | |
f11ff5be PW |
251 | if (b->infinity) { |
252 | *r = *a; | |
607884fc PW |
253 | return; |
254 | } | |
eb0be8ee | 255 | r->infinity = 0; |
f11ff5be PW |
256 | secp256k1_fe_t z22; secp256k1_fe_sqr(&z22, &b->z); |
257 | secp256k1_fe_t z12; secp256k1_fe_sqr(&z12, &a->z); | |
258 | secp256k1_fe_t u1; secp256k1_fe_mul(&u1, &a->x, &z22); | |
259 | secp256k1_fe_t u2; secp256k1_fe_mul(&u2, &b->x, &z12); | |
260 | secp256k1_fe_t s1; secp256k1_fe_mul(&s1, &a->y, &z22); secp256k1_fe_mul(&s1, &s1, &b->z); | |
261 | secp256k1_fe_t s2; secp256k1_fe_mul(&s2, &b->y, &z12); secp256k1_fe_mul(&s2, &s2, &a->z); | |
39bd94d8 PW |
262 | secp256k1_fe_normalize_var(&u1); |
263 | secp256k1_fe_normalize_var(&u2); | |
910d0de4 | 264 | if (secp256k1_fe_equal(&u1, &u2)) { |
39bd94d8 PW |
265 | secp256k1_fe_normalize_var(&s1); |
266 | secp256k1_fe_normalize_var(&s2); | |
910d0de4 | 267 | if (secp256k1_fe_equal(&s1, &s2)) { |
da55986f | 268 | secp256k1_gej_double_var(r, a); |
607884fc | 269 | } else { |
eb0be8ee | 270 | r->infinity = 1; |
607884fc PW |
271 | } |
272 | return; | |
273 | } | |
910d0de4 | 274 | secp256k1_fe_t h; secp256k1_fe_negate(&h, &u1, 1); secp256k1_fe_add(&h, &u2); |
f11ff5be PW |
275 | secp256k1_fe_t i; secp256k1_fe_negate(&i, &s1, 1); secp256k1_fe_add(&i, &s2); |
276 | secp256k1_fe_t i2; secp256k1_fe_sqr(&i2, &i); | |
910d0de4 PW |
277 | secp256k1_fe_t h2; secp256k1_fe_sqr(&h2, &h); |
278 | secp256k1_fe_t h3; secp256k1_fe_mul(&h3, &h, &h2); | |
f11ff5be | 279 | secp256k1_fe_mul(&r->z, &a->z, &b->z); secp256k1_fe_mul(&r->z, &r->z, &h); |
910d0de4 | 280 | secp256k1_fe_t t; secp256k1_fe_mul(&t, &u1, &h2); |
f11ff5be PW |
281 | r->x = t; secp256k1_fe_mul_int(&r->x, 2); secp256k1_fe_add(&r->x, &h3); secp256k1_fe_negate(&r->x, &r->x, 3); secp256k1_fe_add(&r->x, &i2); |
282 | secp256k1_fe_negate(&r->y, &r->x, 5); secp256k1_fe_add(&r->y, &t); secp256k1_fe_mul(&r->y, &r->y, &i); | |
910d0de4 | 283 | secp256k1_fe_mul(&h3, &h3, &s1); secp256k1_fe_negate(&h3, &h3, 1); |
f11ff5be | 284 | secp256k1_fe_add(&r->y, &h3); |
607884fc PW |
285 | } |
286 | ||
a4a43d75 | 287 | static void secp256k1_gej_add_ge_var(secp256k1_gej_t *r, const secp256k1_gej_t *a, const secp256k1_ge_t *b) { |
f11ff5be PW |
288 | if (a->infinity) { |
289 | r->infinity = b->infinity; | |
290 | r->x = b->x; | |
291 | r->y = b->y; | |
292 | secp256k1_fe_set_int(&r->z, 1); | |
607884fc PW |
293 | return; |
294 | } | |
f11ff5be PW |
295 | if (b->infinity) { |
296 | *r = *a; | |
607884fc PW |
297 | return; |
298 | } | |
eb0be8ee | 299 | r->infinity = 0; |
f11ff5be | 300 | secp256k1_fe_t z12; secp256k1_fe_sqr(&z12, &a->z); |
1c29f2eb | 301 | secp256k1_fe_t u1 = a->x; |
f11ff5be | 302 | secp256k1_fe_t u2; secp256k1_fe_mul(&u2, &b->x, &z12); |
39bd94d8 | 303 | secp256k1_fe_t s1 = a->y; secp256k1_fe_normalize_var(&s1); |
f11ff5be | 304 | secp256k1_fe_t s2; secp256k1_fe_mul(&s2, &b->y, &z12); secp256k1_fe_mul(&s2, &s2, &a->z); |
39bd94d8 PW |
305 | secp256k1_fe_normalize_var(&u1); |
306 | secp256k1_fe_normalize_var(&u2); | |
910d0de4 | 307 | if (secp256k1_fe_equal(&u1, &u2)) { |
39bd94d8 | 308 | secp256k1_fe_normalize_var(&s2); |
910d0de4 | 309 | if (secp256k1_fe_equal(&s1, &s2)) { |
da55986f | 310 | secp256k1_gej_double_var(r, a); |
607884fc | 311 | } else { |
eb0be8ee | 312 | r->infinity = 1; |
607884fc PW |
313 | } |
314 | return; | |
315 | } | |
910d0de4 | 316 | secp256k1_fe_t h; secp256k1_fe_negate(&h, &u1, 1); secp256k1_fe_add(&h, &u2); |
f11ff5be PW |
317 | secp256k1_fe_t i; secp256k1_fe_negate(&i, &s1, 1); secp256k1_fe_add(&i, &s2); |
318 | secp256k1_fe_t i2; secp256k1_fe_sqr(&i2, &i); | |
910d0de4 PW |
319 | secp256k1_fe_t h2; secp256k1_fe_sqr(&h2, &h); |
320 | secp256k1_fe_t h3; secp256k1_fe_mul(&h3, &h, &h2); | |
f11ff5be | 321 | r->z = a->z; secp256k1_fe_mul(&r->z, &r->z, &h); |
910d0de4 | 322 | secp256k1_fe_t t; secp256k1_fe_mul(&t, &u1, &h2); |
f11ff5be PW |
323 | r->x = t; secp256k1_fe_mul_int(&r->x, 2); secp256k1_fe_add(&r->x, &h3); secp256k1_fe_negate(&r->x, &r->x, 3); secp256k1_fe_add(&r->x, &i2); |
324 | secp256k1_fe_negate(&r->y, &r->x, 5); secp256k1_fe_add(&r->y, &t); secp256k1_fe_mul(&r->y, &r->y, &i); | |
910d0de4 | 325 | secp256k1_fe_mul(&h3, &h3, &s1); secp256k1_fe_negate(&h3, &h3, 1); |
f11ff5be | 326 | secp256k1_fe_add(&r->y, &h3); |
607884fc PW |
327 | } |
328 | ||
a4a43d75 | 329 | static void secp256k1_gej_add_ge(secp256k1_gej_t *r, const secp256k1_gej_t *a, const secp256k1_ge_t *b) { |
9338dbf7 PW |
330 | VERIFY_CHECK(!b->infinity); |
331 | VERIFY_CHECK(a->infinity == 0 || a->infinity == 1); | |
332 | ||
71712b27 GM |
333 | /** In: |
334 | * Eric Brier and Marc Joye, Weierstrass Elliptic Curves and Side-Channel Attacks. | |
335 | * In D. Naccache and P. Paillier, Eds., Public Key Cryptography, vol. 2274 of Lecture Notes in Computer Science, pages 335-345. Springer-Verlag, 2002. | |
336 | * we find as solution for a unified addition/doubling formula: | |
337 | * lambda = ((x1 + x2)^2 - x1 * x2 + a) / (y1 + y2), with a = 0 for secp256k1's curve equation. | |
338 | * x3 = lambda^2 - (x1 + x2) | |
339 | * 2*y3 = lambda * (x1 + x2 - 2 * x3) - (y1 + y2). | |
340 | * | |
341 | * Substituting x_i = Xi / Zi^2 and yi = Yi / Zi^3, for i=1,2,3, gives: | |
342 | * U1 = X1*Z2^2, U2 = X2*Z1^2 | |
2a54f9bc | 343 | * S1 = Y1*Z2^3, S2 = Y2*Z1^3 |
71712b27 GM |
344 | * Z = Z1*Z2 |
345 | * T = U1+U2 | |
346 | * M = S1+S2 | |
347 | * Q = T*M^2 | |
348 | * R = T^2-U1*U2 | |
349 | * X3 = 4*(R^2-Q) | |
350 | * Y3 = 4*(R*(3*Q-2*R^2)-M^4) | |
351 | * Z3 = 2*M*Z | |
352 | * (Note that the paper uses xi = Xi / Zi and yi = Yi / Zi instead.) | |
353 | */ | |
354 | ||
355 | secp256k1_fe_t zz; secp256k1_fe_sqr(&zz, &a->z); /* z = Z1^2 */ | |
0295f0a3 | 356 | secp256k1_fe_t u1 = a->x; secp256k1_fe_normalize_weak(&u1); /* u1 = U1 = X1*Z2^2 (1) */ |
71712b27 | 357 | secp256k1_fe_t u2; secp256k1_fe_mul(&u2, &b->x, &zz); /* u2 = U2 = X2*Z1^2 (1) */ |
0295f0a3 | 358 | secp256k1_fe_t s1 = a->y; secp256k1_fe_normalize_weak(&s1); /* s1 = S1 = Y1*Z2^3 (1) */ |
71712b27 GM |
359 | secp256k1_fe_t s2; secp256k1_fe_mul(&s2, &b->y, &zz); /* s2 = Y2*Z2^2 (1) */ |
360 | secp256k1_fe_mul(&s2, &s2, &a->z); /* s2 = S2 = Y2*Z1^3 (1) */ | |
361 | secp256k1_fe_t z = a->z; /* z = Z = Z1*Z2 (8) */ | |
362 | secp256k1_fe_t t = u1; secp256k1_fe_add(&t, &u2); /* t = T = U1+U2 (2) */ | |
363 | secp256k1_fe_t m = s1; secp256k1_fe_add(&m, &s2); /* m = M = S1+S2 (2) */ | |
364 | secp256k1_fe_t n; secp256k1_fe_sqr(&n, &m); /* n = M^2 (1) */ | |
365 | secp256k1_fe_t q; secp256k1_fe_mul(&q, &n, &t); /* q = Q = T*M^2 (1) */ | |
366 | secp256k1_fe_sqr(&n, &n); /* n = M^4 (1) */ | |
367 | secp256k1_fe_t rr; secp256k1_fe_sqr(&rr, &t); /* rr = T^2 (1) */ | |
368 | secp256k1_fe_mul(&t, &u1, &u2); secp256k1_fe_negate(&t, &t, 1); /* t = -U1*U2 (2) */ | |
369 | secp256k1_fe_add(&rr, &t); /* rr = R = T^2-U1*U2 (3) */ | |
370 | secp256k1_fe_sqr(&t, &rr); /* t = R^2 (1) */ | |
371 | secp256k1_fe_mul(&r->z, &m, &z); /* r->z = M*Z (1) */ | |
9338dbf7 PW |
372 | secp256k1_fe_normalize(&r->z); |
373 | int infinity = secp256k1_fe_is_zero(&r->z) * (1 - a->infinity); | |
71712b27 GM |
374 | secp256k1_fe_mul_int(&r->z, 2 * (1 - a->infinity)); /* r->z = Z3 = 2*M*Z (2) */ |
375 | r->x = t; /* r->x = R^2 (1) */ | |
376 | secp256k1_fe_negate(&q, &q, 1); /* q = -Q (2) */ | |
377 | secp256k1_fe_add(&r->x, &q); /* r->x = R^2-Q (3) */ | |
9338dbf7 | 378 | secp256k1_fe_normalize(&r->x); |
71712b27 GM |
379 | secp256k1_fe_mul_int(&q, 3); /* q = -3*Q (6) */ |
380 | secp256k1_fe_mul_int(&t, 2); /* t = 2*R^2 (2) */ | |
381 | secp256k1_fe_add(&t, &q); /* t = 2*R^2-3*Q (8) */ | |
382 | secp256k1_fe_mul(&t, &t, &rr); /* t = R*(2*R^2-3*Q) (1) */ | |
383 | secp256k1_fe_add(&t, &n); /* t = R*(2*R^2-3*Q)+M^4 (2) */ | |
384 | secp256k1_fe_negate(&r->y, &t, 2); /* r->y = R*(3*Q-2*R^2)-M^4 (3) */ | |
0295f0a3 | 385 | secp256k1_fe_normalize_weak(&r->y); |
71712b27 GM |
386 | secp256k1_fe_mul_int(&r->x, 4 * (1 - a->infinity)); /* r->x = X3 = 4*(R^2-Q) */ |
387 | secp256k1_fe_mul_int(&r->y, 4 * (1 - a->infinity)); /* r->y = Y3 = 4*R*(3*Q-2*R^2)-4*M^4 (4) */ | |
9338dbf7 | 388 | |
71712b27 GM |
389 | /** In case a->infinity == 1, the above code results in r->x, r->y, and r->z all equal to 0. |
390 | * Add b->x to x, b->y to y, and 1 to z in that case. | |
391 | */ | |
9338dbf7 PW |
392 | t = b->x; secp256k1_fe_mul_int(&t, a->infinity); |
393 | secp256k1_fe_add(&r->x, &t); | |
394 | t = b->y; secp256k1_fe_mul_int(&t, a->infinity); | |
395 | secp256k1_fe_add(&r->y, &t); | |
396 | secp256k1_fe_set_int(&t, a->infinity); | |
397 | secp256k1_fe_add(&r->z, &t); | |
398 | r->infinity = infinity; | |
399 | } | |
400 | ||
401 | ||
402 | ||
a4a43d75 | 403 | static void secp256k1_gej_get_hex(char *r, int *rlen, const secp256k1_gej_t *a) { |
f11ff5be PW |
404 | secp256k1_gej_t c = *a; |
405 | secp256k1_ge_t t; secp256k1_ge_set_gej(&t, &c); | |
406 | secp256k1_ge_get_hex(r, rlen, &t); | |
607884fc PW |
407 | } |
408 | ||
399c03f2 | 409 | #ifdef USE_ENDOMORPHISM |
a4a43d75 | 410 | static void secp256k1_gej_mul_lambda(secp256k1_gej_t *r, const secp256k1_gej_t *a) { |
f11ff5be PW |
411 | const secp256k1_fe_t *beta = &secp256k1_ge_consts->beta; |
412 | *r = *a; | |
413 | secp256k1_fe_mul(&r->x, &r->x, beta); | |
607884fc | 414 | } |
399c03f2 | 415 | #endif |
607884fc | 416 | |
a4a43d75 | 417 | static void secp256k1_ge_start(void) { |
ff29b855 PW |
418 | static const unsigned char secp256k1_ge_consts_g_x[] = { |
419 | 0x79,0xBE,0x66,0x7E,0xF9,0xDC,0xBB,0xAC, | |
420 | 0x55,0xA0,0x62,0x95,0xCE,0x87,0x0B,0x07, | |
421 | 0x02,0x9B,0xFC,0xDB,0x2D,0xCE,0x28,0xD9, | |
422 | 0x59,0xF2,0x81,0x5B,0x16,0xF8,0x17,0x98 | |
423 | }; | |
424 | static const unsigned char secp256k1_ge_consts_g_y[] = { | |
425 | 0x48,0x3A,0xDA,0x77,0x26,0xA3,0xC4,0x65, | |
426 | 0x5D,0xA4,0xFB,0xFC,0x0E,0x11,0x08,0xA8, | |
427 | 0xFD,0x17,0xB4,0x48,0xA6,0x85,0x54,0x19, | |
428 | 0x9C,0x47,0xD0,0x8F,0xFB,0x10,0xD4,0xB8 | |
429 | }; | |
399c03f2 | 430 | #ifdef USE_ENDOMORPHISM |
71712b27 | 431 | /* properties of secp256k1's efficiently computable endomorphism */ |
ff29b855 PW |
432 | static const unsigned char secp256k1_ge_consts_beta[] = { |
433 | 0x7a,0xe9,0x6a,0x2b,0x65,0x7c,0x07,0x10, | |
434 | 0x6e,0x64,0x47,0x9e,0xac,0x34,0x34,0xe9, | |
435 | 0x9c,0xf0,0x49,0x75,0x12,0xf5,0x89,0x95, | |
436 | 0xc1,0x39,0x6c,0x28,0x71,0x95,0x01,0xee | |
437 | }; | |
399c03f2 | 438 | #endif |
f11ff5be | 439 | if (secp256k1_ge_consts == NULL) { |
a5759c57 | 440 | secp256k1_ge_consts_t *ret = (secp256k1_ge_consts_t*)checked_malloc(sizeof(secp256k1_ge_consts_t)); |
399c03f2 | 441 | #ifdef USE_ENDOMORPHISM |
d907ebc0 | 442 | VERIFY_CHECK(secp256k1_fe_set_b32(&ret->beta, secp256k1_ge_consts_beta)); |
399c03f2 | 443 | #endif |
f11ff5be | 444 | secp256k1_fe_t g_x, g_y; |
d907ebc0 PW |
445 | VERIFY_CHECK(secp256k1_fe_set_b32(&g_x, secp256k1_ge_consts_g_x)); |
446 | VERIFY_CHECK(secp256k1_fe_set_b32(&g_y, secp256k1_ge_consts_g_y)); | |
f11ff5be PW |
447 | secp256k1_ge_set_xy(&ret->g, &g_x, &g_y); |
448 | secp256k1_ge_consts = ret; | |
449 | } | |
450 | } | |
451 | ||
a4a43d75 | 452 | static void secp256k1_ge_stop(void) { |
f11ff5be PW |
453 | if (secp256k1_ge_consts != NULL) { |
454 | secp256k1_ge_consts_t *c = (secp256k1_ge_consts_t*)secp256k1_ge_consts; | |
f11ff5be PW |
455 | free((void*)c); |
456 | secp256k1_ge_consts = NULL; | |
457 | } | |
458 | } | |
7a4b7691 PW |
459 | |
460 | #endif |