Zufall generieren dauert lange

[Ultimator]

Hallo!
Ich habe jetzt ein Verschlüsselungsprogramm geschrieben. Ich bin auch ziemlich weit, aber jetzt wirft sich eine Frage auf:
Wenn ich für einen Text ein Zufallspasswort generieren lassen will, und der Text recht lang (>200 Zeichen) ist, dann dauert das. Sogar sehr lange. So, nun möxhte ich dem Benutzer die Möglichkeit geben, den ganzen Vorgang abzubrechen, doch wie mache ich das?

[Meflin]

poste doch mal den entsprechenden source teil. prinzipiell hilft application.processmessages oder multithreading

[Ultimator]

Application.Processmessagen hab ich schon an allen möglichen und unmöglichen Stellen eingefügt, aber hier trotzdem mal der Code zum generieren des Passwortes:

Delphi-Quellcode:

procedure TForm1.CreateOTP(OriginalText: string);
var i: integer;
begin
  for i := 1 to length(OriginalText) do
  begin
    Memo3.Text := Memo3.Text + inttostr(random(255));
    Application.ProcessMessages;
  end;
end;

Ich hoffe, ihr könnt mir helfen. :pale:

[Meflin]

dann muss da noch in die schleife sowas rein wie if blAbbruch = true then break; blAbbruch muss dann natürlich boolean sein. wenn du dann per buttonclick blAbbruch 8globale variable) auf true setzt, stoppt die schleife!

[Ultimator]

OK, danke! Hat mir gehlofen :thuimb:
Aber warum dauert es so lange, 200 Zufallszahlen zu finden?

[Meflin]

kann ich dir auch nicht sagen. aber mir fällt gerade auf, dass du scheinbar kein randomize verwendest, was du tun solltest, da sonst random immer die gleichen zufallszahlen liefert!

[Ultimator]

Doch, ich hab ein randomize im FormCreate. :wink:

[Meflin]

achso, dann passts ja! wär eher kontraproduktiv wenn dus nicht drin hättest :wink:

[shmia]

Zitat:

Zitat von Ultimator

Delphi-Quellcode:

procedure TForm1.CreateOTP(OriginalText: string);
var i: integer;
begin
  for i := 1 to length(OriginalText) do
  begin
    Memo3.Text := Memo3.Text + inttostr(random(255));
    Application.ProcessMessages;
  end;
end;

Das ist aber extrem ungünstig programmiert!!!
Besser so (braucht nur wenige ms):

Delphi-Quellcode:

   Memo3.Text := RandomString(Length(OriginalText));

Siehe:
(CodeLibrary) Zufallstrings erzeugen

[Ultimator]

Oh, hehe. Muss ich übersehen haben :oops:
Ist das dann auch echter Zufall oder wieder nur Pseudo-Zufall?