restart;18 mod 5;2 mod 5;-3 mod 5;18^5705890543 mod 37;18&^5705890543 mod 37;p:=nextprime(02789540789543207895432532890475727890643);q:=nextprime(02789540789543207895432552435432543232890475727890643);isprime(p),isprime(q);N:=p*q;PhiN:=(p-1)*(q-1);e:=rand(1..PhiN)();igcd(PhiN,e);igcdex(PhiN,e,'L','M');L,M;Mtwo:=M mod PhiN;d:=Mtwo;#or just:d:=(e)&^(-1) mod(PhiN);X:=5945354542542354322355425425432;ENCRYPTED:=X&^e mod N;DECRYPTED:=ENCRYPTED&^d mod N;