[Tutorial]VB.net - Obfuscator

Imports System
Imports System.IO

Dim dialog As New OpenFileDialog
            dialog.Filter = ".NET Assembly Files (*.dll, *.exe)|*.dll *.exe|All Files|*.*"
            If (dialog.ShowDialog = DialogResult.OK) Then
                Dim stream As New FileStream(dialog.FileName, FileMode.Open, FileAccess.Write)
                stream.Seek(&HF4, SeekOrigin.Begin)
                stream.WriteByte(11)
                stream.Flush
                stream.Close
            End If