p  =  Prime[50]

Mod [5^228, 229]

Table [PowerMod [x, (p - 1),  p],  {x, 0, p - 1}]

p  =  
      Prime [100]

q  =  Prime [200]

e  = 5

GCD [e,  (p - 1) (q - 1)]

e  =  109

GCD [e,  (p - 1) (q - 1)]

ExtendedGCD [e,  (p - 1) (q - 1)]

-108971  +  (p - 1) (q - 1)

d  = PowerMod [e,  -1,  (p - 1) (q - 1)]

n =  p * q

M  =  130183

c  =  Mod [130183^e,  n]

c

d

n

entschluesselterWert  =  Mod [c^d,  n]

N [Log [2] / Log [10]]

% *1023