print "Gib den Namen des Empfangers ein:"; read eName; print""; print "Gib einen Klartext ein (natuerliche Zahl mit < 156 Stellen):"; read klar; print ""; //Die Verschluesselung durch Potenzieren mit dem geheimen Exponenten //des Empfaengers Chiffrat := (IntegerRing(n_send)! StringToInteger(klar))^e_send; //Das Chiffrat wird in eine allgemein zugängliche Datei geschrieben Write("Chiffrat_" cat Name cat "_" cat eName cat ".mg", "chiffrat := " cat IntegerToString(IntegerRing()!Chiffrat) cat ";" : Overwrite);