1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
/*
* ecgen, tool for generating Elliptic curve domain parameters
* Copyright (C) 2017 J08nY
*/
#include "order.h"
int order_any(curve_t *curve, config_t *cfg, arg_t *args) {
curve->order = ellff_get_card(curve->curve);
return 1;
}
int order_smallfact(curve_t *curve, config_t *cfg, arg_t *args) {
if (!args) {
fprintf(stderr, "No args to an arged function. order_smallfact");
return INT_MIN;
}
pari_ulong smallfact = *(pari_ulong *)args->args;
pari_sp ltop = avma;
GEN fact = mpfact(smallfact);
if (lgefint(fact) > 3) {
smallfact = 0;
} else {
smallfact = itou(fact);
}
GEN order = ellsea(curve->curve, smallfact);
if (gequal0(order) || gequal1(gcdii(order, fact))) {
avma = ltop;
return -4;
} else {
curve->order = order;
obj_insert_shallow(curve->curve, 1, curve->order);
return 1;
}
}
int order_prime(curve_t *curve, config_t *cfg, arg_t *args) {
pari_sp ltop = avma;
GEN order = ellsea(curve->curve, 1);
if (gequal0(order) || !(isprime(order))) {
avma = ltop;
return -4;
} else {
curve->order = order;
obj_insert_shallow(curve->curve, 1, curve->order);
return 1;
}
}
|
