676 zufällige Schlüssel zuweisen

[himitsu]

ich glaub Rollstuhlfahrers Code könnte Funktionieren (sieht jedenfalls für mich so aus).

Delphi-Quellcode:

Var C1, C2, C3, C4: Char;
  S: String[2];
  Liste: Array['A'..'Z', 'A'..'Z'] of String[2];
  i, i2, i3: Integer;

// Liste zuweisen
For C1 := 'A' to 'Z' do
  For C2 := 'A' to 'Z' do
    Liste[C1, C2] := C1 + C2;

// Liste mischen
For i := 0 to 10 do
  For C1 := 'A' to 'Z' do
    Liste[C1, Char(Ord('A') + Random(26))] :=
      Liste[Char(Ord('A') + Random(26)), Char(Ord('A') + Random(26))];

// oder Liste mischen
For i := 0 to 10000 do Begin
  C1 := Char(Ord('A') + Random(26));
  C2 := Char(Ord('A') + Random(26));
  C3 := Char(Ord('A') + Random(26));
  C4 := Char(Ord('A') + Random(26));
  S := Liste[C1, C2];
  Liste[C1, C2] := Liste[C3, C4];
  Liste[C3, C4] := S;
End;