Matrix Verschlüsselung

[Blup]

Das Initialisieren kann gleich mit eingespart werden:

Delphi-Quellcode:

// Einlesen des Textes ins Array
k    := 1;
kmax := Length(s1);
for j := 1 to x do
begin
  for i := 1 to x do
  begin
    if k <= kmax then
      Matrix[i, j] := s1[k]
    else
      Matrix[i, j] := ' '; // oder '#'

    Chiffre.StringGrid1.Cells[i, j] := Matrix[i, j] // Test ob richtig Eingelesen
    k := k + 1;
  end;
end;