[color=green]'Dateiverschlüsselung mit XOR
Public Sub Crypt(ByRef Path As String)
  Dim inhalt As String
  Dim DNr As Integer
  Dim j As Long
 
  DNr = FreeFile
  Open Path For Binary As #DNr
 
  [color=green]'Puffer entsprechent der Größe der Datei mit Leerzeichen 
  ' füllen
  inhalt = Space$(LOF(DNr))
 
  Randomize 1 [color=green]'entspricht dem Passwort
 
  Get #DNr, , inhalt [color=green]'Inhalt der Datei in einem Rutsch 
  ' einlesen
 
  [color=green]'Jedes einzelene Zeichen mit XOR ver-/entschlüsseln
  For j = 1 To Len(inhalt)
    Mid$(inhalt, j, 1) = Chr$(Asc(Mid$(inhalt, j, 1)) Xor ((Rnd * 255) \ 1))
  Next j
 
 [color=green] 'Datei schließen und löschen
  Close #DNr
  Kill Path
 
  [color=green]'Neue Datei erstellen und mit dem ver-/entschlüsseltem Text 
  ' füllen
  DNr = FreeFile
  Open Path For Binary As #DNr
  Put #DNr, , inhalt
  Close #DNr
End Sub