Und nochmal,
ich habs jetzt mal ganz brutal ausprobiert und geguckt, für welches d der Klartext wieder erscheint
Delphi-Quellcode:
Edit2.Text := IntToStr(FastExponation(26,3,p*q));
repeat
Inc(d);
until FastExponation(StrToInt(Edit2.Text),d,p*q) = 26;
Je nach dem, welchen Wert ich entschlüsseln will, ändert sich aber d, was aber eigentlich gar nicht sein dürfte. Also entweder, ich hab einen Fehler in meiner schnellen Exponention oder ich glaub an überhaupt nichts mehr. Gleicht irgendwie der Nadel im Heuhaufen... ich bin verwirrt
Bin für jede Hilfe dankbar (und ganz ausdrücklich Hagen),
Wieland