dissertacao.pdf
dissertacao.pdf
dissertacao.pdf
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
q = RandomPrime[{2∧ (nbits − 1), 2∧ q = RandomPrime[{2 nbits − 1}];<br />
∧ (nbits − 1), 2∧ q = RandomPrime[{2 nbits − 1}];<br />
∧ (nbits − 1), 2∧nbits − 1}];<br />
While[Intersection[{p}, primos] = = = {},<br />
p = RandomPrime[{2∧ (nbits − 1), 2∧ p = RandomPrime[{2 nbits − 1}]; ];<br />
∧ (nbits − 1), 2∧ p = RandomPrime[{2 nbits − 1}]; ];<br />
∧ (nbits − 1), 2∧nbits − 1}]; ];<br />
While[Intersection[{q}, primos] = = = {}p {}p {}p == q,<br />
q = RandomPrime[{2∧ (nbits − 1), 2∧ q = RandomPrime[{2 nbits − 1}]; ];<br />
∧ (nbits − 1), 2∧ q = RandomPrime[{2 nbits − 1}]; ];<br />
∧ (nbits − 1), 2∧nbits − 1}]; ];<br />
n = p ∗ q;<br />
neuler = (p − 1)(q − 1);<br />
If[GCD[e, neuler] == 1,<br />
nlist = Append[nlist, {e, n}];<br />
primos = Append[primos, p];<br />
primos = Append[primos, q];<br />
];<br />
];<br />
n1 = nlist[[4]];<br />
n2 = nlist[[5]];<br />
n3 = nlist[[3]];<br />
m = RandomInteger[{1, Min[n1, n2, n3] − 1}];<br />
c1 = PowerMod[m, e, n1];<br />
c2 = PowerMod[m, e, n2];<br />
c3 = PowerMod[m, e, n3];<br />
rhc = Append[rhc, {BitLength[n], Timing[<br />
n0 = Min[n1, n2, n3];<br />
n = n1 ∗ n2 ∗ n3;<br />
c = ChineseRemainder[{c1, c2, c3}, {n1, n2, n3}];<br />
dec = c∧ dec = c (1/e); ][[1]]}<br />
∧ dec = c (1/e); ][[1]]}<br />
∧ (1/e); ][[1]]}<br />
];<br />
i++;<br />
];<br />
rhc<br />
58