Entschuldigung für die schlechte Fragestellung, also nochmal:
Mein Ziel ist es NICHT RSA zu knacken, ich will es lediglich anwenden. Mein Problem ist nun die Berechnung des privaten Exponenten d. Das funktioniert zwar nach dem Code, den ich am Anfang gepostet habe, ist aber ziemlich langsam...
Nochmal den Code von vorher als als Text:
Delphi-Quellcode:
function PrivateKeyCalc(e, phi : String) : String;
var
i, j: String;
begin
i := '0';
repeat
i um 1 erhöhen.
Resultat auf i setzen.
Ein Mod zwischen e*i und phi durchführen, das Ergebnis in j schreiben.
until
Durchführen bis j 1 ist und e alles andere als i
end;
Hoffe, das man es jetzt verstanden hat, denn das Problem ist ja: 1 = e*d mod phi(n)
Da es aber mehrere Lösungen dafür geben würde nehme ich j und multipliziere den ständig ändernden wert i mit e, bis j endlich 1 ist, dann habe ich d = i.