In Schleife Passwörter erzeugen

[nieurig]

Hi Dax,
ich hatte nicht gedacht, das die paar Zeilen SO unübersichtlich sein könnten. Nun denn ...

Ach ja, der Code in der Procedure kann keinen Einfluss haben.

Code:

procedure saveBenutzerPW(BenutzerName, Kennwort :String);

Deshalb habe ich ihn nicht gezeigt.


Niels

Code:

procedure TFLogin.Button3Click(Sender: TObject); 
var TestPW, Doppel : String; i:Integer; 
    dat : TextFile; 
begin 
  // Öffnen eine Textdatei
  AssignFile(dat,'C:\Fehlerhafte.txt'); 
  rewrite(dat); 

  // Schleife erzeugt 50 Passwörter
  randomize; 
  for i := 1 to 50 do begin 

    // Erzeugen eines Passwortes
    TestPW := ''; 
    while Length(TestPW) < 26 do 
      TestPW := TestPW + char( Random(210)+30 ); 

    // Schreiben des Passwort in Datei und in DB
    write(dat,inttoStr(i)+'-'+TestPW + '->'); 
    saveBenutzerPW('TestUser',TestPW); 

    // Lesen des Passwortes aus DB und schreiben in Datei
    doppel := getNutzerPW('TestUser'); 
    write(dat,doppel); 

    // Vergleich, ob beide gleich sind
    if Doppel = TestPW then writeln(dat,'*OK*') 
                       else writeln(dat,'*--*'); 
  end; 
  // Datei schließen
  closefile(dat); 
  inpName.Text := 'Fertig'; 

end;