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?

[Ultimator]

Juhu, danke! Jetzt geht's endlich. :party:

[Chewie]

Zitat:

Zitat von Ultimator

Ist das dann auch echter Zufall oder wieder nur Pseudo-Zufall?

Pseudo-Zufall. Reine softwre-basierte "Zufallsgeneratoren" liefern immer nur Pseudo-Zufallszahlen.
Nur mit entsprechender Hardware, die sich Quanteneffekte zunutze macht, ist echter Zufall möglich. Zumindest falls unser phsyikalisches Weltbild der Realität entspricht.

[Ultimator]

Ok, naja. Es wird wahrscheinlich eh keiner hergehen und versuchen, einen Text zu knacken, der mit Hilfe meines Programms verschlüsselt wurde :mrgreen:
Und, bitte! Keine Grundsatzdiskussionen wegen dem hier:

Zitat:

Zitat von Chewie

Zumindest falls unser phsyikalisches Weltbild der Realität entspricht.

*g*

Für mich jedenfalls reicht Pseudo-Zufall und wahrscheinlich für jeden hier im Forum auch (außer negaH vielleicht :mrgreen: )

[GuenterS]

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));
    if (i mod 25 = 0) then
       Application.ProcessMessages;
  end;
end;

probier mal ob das schneller ist. (ich gehe davon aus dass du einen 200 Byte Langen OriginalText hast, bzw. dieser nicht um größenordnungen Größer ist.

[Ultimator]

Nö, danke. Ist auch nicht schneller, eher im Gegenteil.
Außerdem soll der User ja auch Texte >200 Zeichen verschlüsseln können.

[nailor]

mach dir ne lokale variable, und mach das nicht direkt mit "Edit3.Text"! dann geht das vieeeeeeeeeel schneller, weil die Lese und Schreib Methode nur je einmal und nicht 255 mal durchgeführt wird.

[Ultimator]

Ich versteh jetzt nicht ganz, was du von mir willst? :gruebel:
Erklär bitte nochmal genauer.

[nailor]

Delphi-Quellcode:

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

guckst du da^^

[eroe]

Zitat:

Zitat von Ultimator

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

[OT] Hihi, da hat anscheinend jemand aufmerksam unsern Thread gelesen :D [/OT]