RSA: Privaten Schlüssel schneller berechnen

[WIN-MANww]

Hi zusammen

Ich bin seit letzter Zeit daran, eine RSA Verschlüsselung zu schreiben, nur habe ich Probleme mit der Berechnung des privaten Schlüssels, d.h. es funktioniert zwar, ist aber ziemlich langsam. Mein Code sieht bis jetzt so aus:

Delphi-Quellcode:

function PrivateKeyCalc(e, phi : String) : String;
var
 i, j: String;
begin
 i := '0';
 repeat
  i := GiantAddition(i, '1');
  result := i;
  j := GiantMod(GiantMultiplication(e, i), phi);
  Showmessage(j);
 until
  (GiantSizeTest(j, '1') = 0) and (GiantSizeTest(e, result) <> 0);
end;

Stört euch nicht an den Giant Dingern, das ist eine eigene Unit von mir um grosse Zahlen zu berechnen, nur ist die eben langsam, darum will ich bei der Berechnung des Schlüssels selber nicht so viele Operationen durchführen müssen. Ich versuche hier ja mit i den Schlüssel zu finden, jedoch ist das ziemlich langsam, weil es ja alle Werte von 1 bis zum gefundenen Schlüssel durchprobieren muss. Ich würde also gerne von euch wissen, ob man nicht einen genäueren Startwert für i berechnen könnte, damit man nur noch so 5 Durchläufe braucht. Danke schon im vorraus für die Antworten