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:

function Crypt(Bla:String;Key:integer):String; 
var i :Integer; 
begin 
  randseed:=key; 
  result := ''; 
  for i := 1 to Length(bla) do begin 
    Result := Result + chr(ord(bla[i]) xor random (256));
  end; 
end; 

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close
end;

procedure TForm1.VerschlsselnEntschlsseln1Click(Sender: TObject);
begin
if strtoint (e_key.text) >= 0 then
e_verschluesselt.text := Crypt(e_reinschrift.text, strtoint (e_key.text))

end;

procedure TForm1.Entschlsseln1Click(Sender: TObject);
begin
if strtoint (e_key.text) >= 0 then
e_reinschrift.text := Crypt(e_verschluesselt.text, strtoint (e_key.text))
end;

end.					

1:
2:
3:
4:
5:

//Erst Opendialog ausführen: (Execute allein reicht eigtl. schon)
Opendialog1.Execute;
//Jetzt die ausgewählte Datei laden (Beispiel: Memo)
Memo1.lines.Loadfromfile(opendialog1.filename);
//Somit lädt er den gewählten Pfad ins Memo.					

1:
2:
3:
4:

if key=13 then begin
Opendialog1.Execute;
Memo1.lines.Loadfromfile(opendialog1.filename);
end;					

1:

Memo1.lines.Savetofile(opendialog1.filename);