RSA-Verschlüsselung

[brushmate]

Soo hab den Fehler jetzt gefunden:

Delphi-Quellcode:

constructor TRSA.create();
var help: Integer;
begin
  randomize;
  repeat
    help := random(46340);
  until isPrime(help);
  p := help;
  repeat
    repeat
      help := random(46340);
    until isPrime(help);
    q := help;
  until p <> q;
  N := p*q;
  phi := (p-1)*(q-1);
  repeat                                  //
    e := random*(N-1);                    //
  until (e > 1) and ((ggT(e, N)) = 1);    //irgendein Fehler
  repeat
    d := random*N;
  until modulo((e*d), phi) = 1;
  p := 0;
  q := 0;
  phi := 0;
end;

Der Fehler liegt in der markierten Schleife...