Pfad_Ein = "C:\Program Files (x86)\Katalog\Landschaft\Fauna\Menschen\Bild 1.bmp"
        Pfad_Aus = "C:\Program Files (" & _
          "x86)\Katalog\Landschaft\Fauna\Menschen\Bild 1.kax"
 
        Dim F_Ein As New FileInfo(Pfad_Ein)
        Dim R_Ein As New BinaryReader(F_Ein.OpenRead())
        Dim B As Byte
 
        Dim F_Aus As New FileInfo(Pfad_Aus)
        Dim W_Aus As New BinaryWriter(F_Aus.OpenWrite())
 
        While (R_Ein.PeekChar() > -1)
 
            B = (R_Ein.ReadByte())
 
            'Hier soll die Verschlüsselung mittels XOR eingefügt werden
 
            W_Aus.Write(B)
 
        End While
 
        R_Ein.Close()
        W_Aus.Close()