dissertacao.pdf

B Implementations of the attacks from section
3.3
B.1 Stereotyped Message Attack
rsm = {};
i = 3;
While[i < 14,
nbits = 2∧ nbits = 2 i; ∧ nbits = 2 i; ∧i; p = RandomPrime[{2∧ (nbits/2 − 1), 2∧ p = RandomPrime[{2 (nbits/2) − 1}];
∧ (nbits/2 − 1), 2∧ p = RandomPrime[{2 (nbits/2) − 1}];
∧ (nbits/2 − 1), 2∧ (nbits/2) − 1}];
q = RandomPrime[{2∧ (nbits/2 − 1), 2∧ q = RandomPrime[{2 (nbits/2) − 1}];
∧ (nbits/2 − 1), 2∧ q = RandomPrime[{2 (nbits/2) − 1}];
∧ (nbits/2 − 1), 2∧ (nbits/2) − 1}];
While[q == p, q = RandomPrime[{2∧ (nbits/2 − 1), 2∧ While[q == p, q = RandomPrime[{2 (nbits/2) − 1}]];
∧ (nbits/2 − 1), 2∧ While[q == p, q = RandomPrime[{2 (nbits/2) − 1}]];
∧ (nbits/2 − 1), 2∧ (nbits/2) − 1}]];
n = p ∗ q;
e = 3;
While[GCD[e, (p − 1)(q − 1)] = = = 1, e = NextPrime[e]; ];
Print["RSA gerado: ", i];
bits = Table[RandomInteger[{0, 1}], {i, 1, nbits}];
l = Length[bits];
f = Floor[(1/e) ∗ l] − 1;
p = RandomInteger[{1, l − f}];
u = 1;
m = 0;
While[u