dissertacao.pdf

While[i ≤ 23,
n0 = Min[n0, nlist[[i, 2]]];
i++;
];
i = 2;
n = nlist[[1, 2]];
While[i ≤ 23,
n = n ∗ nlist[[i, 2]];
i++;
];
m = RandomInteger[n0 − 1];
clist = Table[PowerMod[poli[i, m], nlist[[i, 1]], nlist[[i, 2]]],
{i, 1, l}];
rrp = Append[rrp, {BitLength[n], Timing[
sigma = Max[Table[nlist[[i, 1]] ∗ deg[i], {i, 1, l}]];
h = Table[sigma − deg[i] ∗ nlist[[i, 1]], {i, 1, l}];
gpoli = Function[{i, m},
Mod[PowerMod[m, h[[i]], nlist[[i, 2]]]∗
(PowerMod[poli[i, m], nlist[[i, 1]], nlist[[i, 2]]] − clist[[i]]),
nlist[[i, 2]]]
];
mlist = Table[n/nlist[[i, 2]], {i, 1, l}];
minv = Table[PowerMod[mlist[[i]], −1, nlist[[i, 2]]], {i, 1, l}];
gcrt = Function[m,
r = 0;
i = 1;
While[i ≤ l,
r = r + gpoli[i, m]mlist[[i]]minv[[i]];
i++;
];
Mod[r, n]
];
][[1]]}];
b++;
60