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:
34:
35:
36:
37:

procedure XORFile(Source,Dest,Schluessel:String);
(*Ent-/Verschlüsselt die Datei Source und schreibt sie in die Datei Dest.*)
var buffer:Array[1..40000] of Byte;
// dynamischer Speicher wäre schöner
f,f2:file;
loop,loop2,gelesen:integer;
begin
if Trim(Schluessel)='' then
Schluessel:='asdlkfjöalskjdfölaksdjfölaksjfd';

AssignFile(f,Source);
ReSet(f,1);

AssignFile(f2,Dest);
ReWrite(f2,1);

loop2:=1;
while not EOF(f) do
begin
BlockRead(f,buffer,sizeof(buffer),gelesen);

for loop:= 1 to Gelesen do
begin
buffer[loop]:=buffer[loop] XOR Ord(Schluessel[loop2]);
Inc(loop2);
if loop2>length(Schluessel) then
loop2:=1;
end;

// XOR
BlockWrite(f2,buffer,gelesen);
end;

// bis zum Ende der Datei
CloseFile(f);
CloseFile(f2);
end;					

1:

ergebnisbuchstabe:=char(byte(ord(text[i])+ord(schlüssel[i])));					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function keychar(s:string) : char; //Diese Funktion liefert den Schlüssel "s" Buchstabe für Buchstabe
begin
If s='' then begin //wenn kein Schlüssel angegeben ist
Inc(keyint); //erhöhe keyint um eins, keyint ist der Index einer Stelle im Schlüssel
KeyChar:=Form1.Edit1.Text[keyint]; //Keychar ist ein Buchstabe aus dem Schlüssel
keyword:=Form1.Edit1.Text; //eher unnötige Puffervariable. der sowieso nicht vorhandenen Übersicht wegen...
If Keyint=Length(keyword) then Keyint:=0; //Überprüft, ob das Ende des Schlüssels erreicht ist. Falls ja, Neustart.
end else begin //Schlüssel wurde angegeben.
Inc(keyint);
KeyChar:=s[keyint];
If Keyint=Length(s) then Keyint:=0;
end;
end;

function ver(text, key:String) :String; //Verschlüsselt den "text" mit dem Schlüssel "key"
var s,s2:String;
    i:integer;
begin
s2:= '';
keyint:=0;
for i:=1 to length(Text) do begin //vom ersten bis zum letzten Buchstaben des Textes...
  s:=Char(byte( Ord(Text[i])+(Ord(keychar(key))))); //Verwandel den Buchstaben Nummer "i" in eine Zahl, addiere die Zahl des Schlüssels, verwandel das ganze zurück in einen Buchstaben (der Befehl Char() wird fast immer mit char(byte(65)) benutzt. warum auch immer...(65 ist übrigens 'a'))
  s2:=s2+s; //füge den neuen Buchstaben an "s2" an
end;
ver:=s2; //liefere "s2" zurück
s2:='';
end;

function ent(text, key:String) :String; //Ist fast die gleiche Funktion wie "ver(s:String):String", nur mit "Verwandel den Buchstaben Nummer "i" in eine Zahl, SUBTRAHIERE die Zahl des Schlüssels, verwandel das ganze zurück in einen Buchstaben"!!
var s,s2:String;  //keine weiteren Kommentare nötig, oder?
    i:integer;
begin
s2:= '';
keyint:=0;
for i:=1 to length(Text) do begin
  s:=Text[i];
  s:=Char(byte( Ord(Text[i])-(Ord(keychar(key)))));
  s2:=s2+s;
end;
ent:=s2;
s2:='';
end;