Криптоанализ RSA (безключевое чтение). Ускорить алгоритм

procedure TForm1.Button10Click(Sender: TObject);
var C1,i:Integer;
    str:string;
    j,e1:Integer;
begin
 
  i:=1;
  str:='';
  e1:=1;
  while M_Ctext.Text[i]<>' ' do
  begin
     str:=str+M_Ctext.Text[i];
     inc(i);
  end;
  C1:=StrToInt(str);
  C:=1;
 
  //найдем число j
  j:=0;
  str:='';
  while (True) do
  begin
    Inc(j);
    e1:=(e1*e);
    C:=1;
 
    for i := 1 to e1 do
      begin
        C:=C*C1 mod N;
      end;
 
    str:=str+'e = '+IntToStr(e1)+#10#13;
    if C = C1 then
    begin
      M_bezKey.Lines.Add('j = '+IntToStr(j));
      Dec(j);
      //str:='';
      e1:=1;
      Break;
    end;
  end;
  ShowMessage(str);
  str:='';
  //найдем новую степень
  for I := 1 to j do
    begin
      e1:=(e1*e);
    end;
    
   C1:=1; 
  //Расшифровываем
  for I := 1 to Length(M_Ctext.Text) do
    begin
      if M_Ctext.Text[i]<>' ' then str:=str+M_Ctext.Text[i]
      else
      begin
        C:=StrToInt(str);
 
        for j := 1 to e1 do
          begin
            C1:=(C1*C) mod N;
          end;
       M_bezKey.Text:=M_bezKey.Text+Chr(C1)+'('+IntToStr(C1)+')';
 
        str:='';
        C1:=1;
      end;
 
    end;
  
 
 
end;