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):
Memo3.Text := RandomString(Length(OriginalText));
Siehe:
(CodeLibrary) Zufallstrings erzeugen