1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  Form1: TForm1;
  s: Char = 'a';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Edit1.Text := OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 26 do
  begin
    s := Chr(Ord(s)+1);
    ListBox1.Items.Add(s);
    ProgressBar1.Position := i;
    if i = 26 then
    begin
      ListBox1.Items.Add(s)
    end
 end;
  ProgressBar1.Position := 100;
end;


end.                    

1:
2:

for i := 0 to 100 do
  ShowMessage(Chr(Ord('a') + i mod 26));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Label Sprung;
begin
  Sprung:
  for i := 1 to 26 do
  begin
    s := Chr(Ord(s)+1);
    ListBox1.Items.Add(s);
    ProgressBar1.Position := i;
    if i = 26 then
    begin
      Goto Sprung;
      ListBox1.Items.Add(s)
    end
 end;
  ProgressBar1.Position := 100;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

PROZEDURE GetPasswords(Start: String; Depth, MaxDepth: Integer)
  zähle alle buchstaben durch (0-25)
    füge den start-String + den aktuellen Buchstaben zur Liste hinzu
    wenn die Tiefe (Depth) nicht die maximale Tiefe (MaxDepth) ist, dann... 
      Rufe dich selbst mit folgenden Parametern auf: 
        Aktuelles Passwort(Start+Buchstabe), 
        Tiefe+1,
        Maximale Tiefe
END-PROZEDURE GetPasswords