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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/*
* ecgen, tool for generating Elliptic curve domain parameters
* Copyright (C) 2017 J08nY
*/
#include "order.h"
#include "io/input.h"
GENERATOR(order_gen_input) {
pari_sp ltop = avma;
GEN ord = input_int("order", cfg->bits);
if (gequalm1(ord)) {
avma = ltop;
return -4;
} else {
curve->order = ord;
obj_insert_shallow(curve->curve, 1, ord);
return 1;
}
}
GENERATOR(order_gen_any) {
GEN ord = ellff_get_card(curve->curve);
if (isclone(ord)) {
curve->order = gcopy(ord);
} else {
curve->order = ord;
}
return 1;
}
GENERATOR(order_gen_sea) {
pari_sp ltop = avma;
GEN order = ellsea(curve->curve, 0);
if (gequal0(order)) {
avma = ltop;
return -4;
} else {
curve->order = order;
obj_insert_shallow(curve->curve, 1, order);
return 1;
}
}
GENERATOR(order_gen_smallfact) {
if (!args) {
fprintf(stderr, "No args to an arged function. order_gen_smallfact\n");
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;
}
}
GENERATOR(order_gen_prime) {
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;
}
}
|
