Ich sehr gerade noch folgende Anweisungen:
mathe.Minus1(p);
mathe.Minus1(q);
Damit wäre phi Phi:=mathe.Produkt(p,q) richtig, aber der Rest immer noch falsch:
1. falsch d:=modinvers(e,n);
richtig d:=modinvers(e,phi)
2. falsch
dp:=modinvers(e,mathe.Differenz(p,'1'));
richtig
dp:=modinvers(e,p);
3. falsch dq:=modinvers(e,mathe.Differenz(q,'1'));
richtig
dp:=modinvers(e,q);
4. falsch qinv:=modinvers(mathe.Summe(p,'1'),mathe.Summe(q,' 1'));
richtig qinv:=modinvers(mathe.Summe(q,'1'),mathe.Summe(p,' 1'));
Allerdings rate ich
dringend davon ab p-1 als p und q-1 als q zuverwenden, daß
bettelt geradezu um Bugs.
Gruß Gammatester