restart; 18 mod 5;

IiIk

2 mod 5;

IiIj

-3 mod 5;

IiIj

18^5705890543 mod 37;

Error, numeric exception: overflow

18&^5705890543 mod 37;

IiM+

p:=nextprime(02789540789543207895432532890475727890643);

IklwMSp5c3YvKkdgS2EqeT9WJip5UyYqeSM=

q:=nextprime(02789540789543207895432552435432543232890475727890643);

IlUibyEqeXN2LypHQlZEVk5DYkthKnk/ViYqeVMmKnkj

isprime(p),isprime(q);

NiRJJXRydWVHJSpwcm90ZWN0ZWRHRiM=

N:=p*q;

ImZwKmViPnYlM211IyopKjMvMl11QERBIykzXS9kW0kiNGQoSHRZLSRSI3BzJG9WYF87eWAieSg=

PhiN:=(p-1)*(q-1);

ImZwU1U8J0hMXm9oSiNIcmokXCcqSCd5JSlbJlwiXCU0TTFkKEh0WS0kUiNwcyRvVmBfO3lgInko

e:=rand(1..PhiN)();

ImZwPEFnJlJVKzs4TGtWKztSIm9MUFgqSE1gLCVbZiIpUiEzUyJwLy5RRmwmKiopKkhCdXYsVg==

igcd(PhiN,e);

IiIi

igcdex(PhiN,e,'L','M');

IiIi

L,M;

NiQiZXAjUk5uMHdQWyhcKXAsPT5OT0kxLGsnSEcrcik9IlJKcVReQV1MIXAjKTQqUncrTnVsQyFlcChvKFE1W2wsLV11MGsuLyM9bUotSEdFZih6X0grb0crPW5tMCZ6KHkoNFtmS00uWSU=

Mtwo:=M mod PhiN; #see exercise 1.13

ImZwYGx5Jlt5TVtoJ1tCMmcqR3lqYVhmRUJLWiIpUS54NUkoR05FPXUlXCFSYElSUS9iTCg=

JSFH

d:=Mtwo;

ImZwYGx5Jlt5TVtoJ1tCMmcqR3lqYVhmRUJLWiIpUS54NUkoR05FPXUlXCFSYElSUS9iTCg=

X:=5945354542542354322355425425432;

IkBLYVVEYU5BVk5VRGFhYCVm

ENCRYPTED:=X&^e mod N;

ImZwJVFZLkBNI1FnXG52SCdcMGxHZiIzWUJGbHAmb1Nidm9hU3U9aTU/cnY4JzNwd1NIIw==

DECRYPTED:=ENCRYPTED&^d mod N;

IkBLYVVEYU5BVk5VRGFhYCVm