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

function crypt(Klartext, Schluessel: Char): Char;
begin
  Result := Char(Ord(Klartext) xor Ord(Schluessel));
end;

var
  Mapdatei: String;
  i : Integer;
begin
  for i := 1 to Length(Mapdatei) do
    Mapdatei[i] := crypt(Mapdatei[i], 'y');  //Ent- und Verschlüsseln geht auf die gleiche Art                    

1:
2:
3:
4:
5:

original     schlüssel      xor
    1            0           1
    1            1           0
    0            1           1
    0            0           0                    

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

FindFirst(extractfilepath(paramstr(0))+'\bin\maps\*.lab',0,F);
listbox1.Items.Add(F.Name);

repeat
FindNext(F);
listbox1.Items.Add(F.Name);                                            
until FindNext(F)<>0;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function crypt(Klartext, Schluessel: Char): Char;
begin
  Result := Char(Ord(Klartext) xor Ord(Schluessel));
end;

var
  Mapdatei: String;
  Key: String;
  i, KeyLength : Integer;
begin
  Key := 'MeinGeheimerSchlüssel';
  KeyLength := Length(Key);
  for i := 1 to Length(Mapdatei) do
    Mapdatei[i] := crypt(Mapdatei[i], Key[(i mod Keylength) + 1]);  //Ent- und Verschlüsseln geht auf die gleiche Art                    

1:
2:
3:

Schlüssel: blablablabl
Klartext : huhu *freu*
Code     : wasauchimme                    

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

FindFirst(extractfilepath(paramstr(0))+'\bin\maps\*.lab',0,F);

repeat
listbox1.Items.Add(F.Name);
FindNext(F);
listbox1.Items.Add(F.Name);
until FindNext(F)<>0;

if (listbox1.Count mod 2 = 0) then begin
listbox1.Items.Delete(listbox1.Count-1);
end;                    

1:
2:
3:
4:
5:

FindFirst(extractfilepath(paramstr(0))+'\bin\maps\*.lab',0,F);

repeat
  listbox1.Items.Add(F.Name);
until FindNext(F)<>0;                    

1:
2:
3:
4:
5:

FindFirst(extractfilepath(paramstr(0))+'\bin\maps\*.lab',0,F);

repeat
  listbox1.Items.Add(F.Name);
until FindNext(F)<>0;                    

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

var 
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create;
  for i := 0 to AnzahlZeilen-1 do
    sl.Add('0000000000000000000[...]0'); //soviele 0en wie du Spalten hast

  //Zum Ändern eines Feldes
  sl[zeile][spalte] := 'a';

  //Dann halt Verschlüsseln und
  sl.SaveToFile(Dateiname);
  sl.Free;
end;