/*
 * Code-Beispiel: Mit schwachem RSA-Schluessel geheimen Code knacken
 */

\\ Verschluesselungs-Exponent
e = 65537

\\ RSA-Modulus n.
n = 680564733841876929822888034435936028327

\\ Verschluesselte Nachricht
geheim = 204950903863101360211085884671147980080


\\ Faktorisierung von n:  z = [p, q]
z = factor(n)~[1,]

key = lift(Mod(1,(z[1]-1)*(z[2]-1)) / e)

\\ Der verschluesselte Text kann mit key lesbar gemacht werden.
text = Strchr(digits(lift(Mod(geheim, n) ^ key), 256))

printf("entschluesselter Text: %s\n", text);