p = Prime[123456789]

gamma = Prime[12345678]

d = 12345678

e = PowerMod[gamma, d, p]

texteclair = "une douleur foudroyante lui traversa la tete,une \
douleur comme il n'en avait encore jamais ressenti. c'etait comme si sa \
cicatrice avait soudain pris feu."

N[Log[32, p]]

codetxclair = code[texteclair]

Length[codetxclair]

codetxclair = ajout[codetxclair, 6]

liste = codebloc[codetxclair, 6]

b = Random[Integer, {1, p - 1}]

PowerMod[gamma, b, p]

temp = PowerMod[e, b, p]

codetxchiffre = Mod[temp*liste, p]

decodebloc[codetxchiffre, 7]

temp = PowerMod[2174065976, (p - 1 - d), p]

Mod[temp*codetxchiffre, p]