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:

procedure TForm1.verschlüsselnOnClick(sender: TObject);
var Key: array [1..16] of Byte;
    Zeichenindex, Keyindex: integer;
    Zeichen: Byte;
begin
  Key[1]:=56;
  Key[2]:=156;
  Key[3]:=16;
  Key[4]:=51;
  Key[5]:=15;
  Key[6]:=26;
  Key[7]:=196;
  Key[8]:=155;
  Key[9]:=1;
  Key[10]:=12;
  Key[11]:=217;
  Key[12]:=200;
  Key[13]:=58;
  Key[14]:=86;
  Key[15]:=85;
  Key[16]:=93;
  Keyindex:=1;
  Memo2.clear;
  for Zeichenindex:=1 to length(Memo1.text) do begin
    if x>16 then
      x:=1;
    Zeichen:=ord(Memo1.text[Zeichenindex]) XOr Key[x];
    Memo2.text:=chr(b);
    x:=x+1;
  end;
end;					

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

var f,f2:Tfilestream;
   b:Byte;
begin
..
assignfile(f,Dateiname);
Assignfile(f2,Dateiname2);
rewrite(f2);
reset(f);
while not eof(f) do begin
f.read(b,sizeof(b));
b := VerschlüsseleByte(b);
f2.write(b);
end;
closefile(f);
Closefile(f2);					

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

var f,f2:Tfilestream;  
   b:Byte;  
begin  
  f:=TFileStream.Create('C:\input.dat',fmOpenRead);
  try
    f2:=TFileStream.Create('C:\output.dat',fmCreate);
    try
      while f.Position<f.Size do 
      begin  
        f.readbuffer(b,SizeOf(b));  
        b := VerschlüsseleByte(b);  
        f2.writebuffer(b,SizeOf(b));  
      end;
    finally
      f.Free;
    end
  finally
     f2.Free;
  end
end;					

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

var f,f2:Tfilestream;   
   b:Byte;   
begin   
  f:=TFileStream.Create('C:\input.dat',fmOpenRead);    //<-öffnet das file im lesemodus
  try 
    f2:=TFileStream.Create('C:\output.dat',fmCreate);    //<-erstellt ein file oder öffnet das existierende
    try 
      while f.Position<f.Size do     //<-wenn die "cursor" kleiner als die gesamtgröße ist mache...
      begin   
        f.readbuffer(b,SizeOf(b));    //versteh ich nicht was macht das und welche variabeln muss man mitgeben?
        b := VerschlüsseleByte(b);     //wandelt das ausgelesene byte in ein codiertes um
        f2.writebuffer(b,SizeOf(b));    //versteh ich nicht was macht das und welche variabeln muss man mitgeben? 
      end; 
    finally 
      f.Free;     //speicher freigeben
    end 
  finally 
     f2.Free;     //speicher freigeben
  end 
end;