Dim fn As String = "....\mypicture.jpg"
 
        Using fs As New IO.FileStream(fn, IO.FileMode.Open, _
          IO.FileAccess.ReadWrite)
            Dim bytes(99) As Byte
            fs.Read(bytes, 0, 100)
            For i As Integer = 0 To 99
                bytes(i) = bytes(i) Xor &H12 ' Unbrauchbar oder wieder 
                ' brauchbar machen
            Next
            fs.Position = 0
            fs.Write(bytes, 0, 100)
        End Using

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist