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

        
private void Form1_FormClosing(object sender, FormClosingEventArgs e)
        {
            if (System.IO.File.Exists("data.dat"))
                System.IO.File.Delete("data.dat");

            System.IO.FileStream fs = new System.IO.FileStream("data.dat", System.IO.FileMode.Create, System.IO.FileAccess.Write);
            System.IO.BinaryWriter w = new System.IO.BinaryWriter(fs,System.Text.Encoding.UTF32);
             w.Write((String)tbCallsign.Text);
             w.Write((String)mtbPassword.Text);
            w.Close();
            fs.Close();
        }					

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

//  einheitliches Verfahren zum Verschlüsseln und Entschlüsseln
//  Muster siehe: Michael Ebner, Delphi 3, Datenbankprogrammierung Seite 365 Stufe 2
//  Achtung: der Schlüssel ändert sich für jedes Zeichen
procedure Umsetzen_codieren( var sBuffer: shortstring );
var ix1: integer;
begin
  for ix1 := 1 to Length(sBuffer)
  do sBuffer[ix1] := chr( ord(sBuffer[ix1]) xor ((ix1 mod 9)*3+5) );
end;					

1:

chr( ord(sBuffer[ix1]) xor ((ix1 mod 9)*3+5) );					

1:

sBuffer[x1] = Convert.ToChar( ((int)sBuffer[x1]) ^ ((ix1 % 9)*3 + 5) );