Beinahe realistische Schluessel

p  =  
      16^^9177701C283C527481BBB577A74A989E6D98DD173A1997A656E005D22732A6A3427C057D
q  =  
      16^^EC95855B10FC0F7E4B417956B89D456F522411FA02F34CFE5815362E545C89ACCB155AB3
Length[IntegerDigits[a b, 2]]   
e  =  2^16 + 1;  {_, {d, _}}  = ExtendedGCD[e, phi];
d  =  d  +  phi;
P  =  {e, n};
 S  =  {d, n};

code = PublicEncryption["Versuchen Sie mal 'n' \
zu faktorisieren um phi zu berechnen (nehmen Sie an, dass Sie 'd' nicht \
kennen). Viel Glueck dabei ...", P, 
        5]

IntegersToText[code]

PrivateDecryption[code, S]