Как защитить EXE от исследования?

Option Explicit
 
Dim seq() As Byte
 
Private Sub Form_Load()
    Dim src     As String
    Dim tmp     As String
    Dim match   As String
    Dim index   As Long
    
    ' Инициализируем
    cryptInit
    ' Шифруем строку для примера, в реальном EXE они уже зашифрованы
    src = "Всем привет !" & vbNewLine & _
          "Хотелось бы усложнить жизнь гипотетическому исследователю," & vbNewLine & _
          "который не особо искушен в языке VB и отладчиках," & vbNewLine & _
          "чтобы тяжело было отследить логику работы программы," & vbNewLine & _
          "но в особенности чтобы нельзя было увидеть константных строк в явном виде," & vbNewLine & _
          "напрямую декомпилировав EXE." & vbNewLine & _
          "Какими средствами и опциями компиляции следует воспользоваться?" & vbNewLine & _
          "Спасибо."
          
    cryptProcess src
    
    ' Например чтобы найти слово "программы" необязательно расшифровывать строку
    match = "программы" ' В файле она зашифрована
    cryptProcess match
    
    ' Поиск слова
    index = cryptInStr(0, src, match)
    tmp = Mid$(src, index, Len(match))
    ' Дешифровка
    cryptProcess tmp, index - 1
    
    ' Вывод
    Debug.Print tmp
    
End Sub
 
' Инициализация таблицы для шифровки/дешифровки
Private Sub cryptInit(Optional ByVal seed As Long)
    Dim i As Long
    ReDim seq(255)
    Randomize seed
    For i = 0 To 255
        seq(i) = Rnd * 255
    Next
End Sub
 
' Шифрование/дешифровка строки
Private Sub cryptProcess(str As String, Optional ByVal index As Long)
    Dim i As Long, bin() As Byte
    bin = str: index = index * 2
    For i = 0 To UBound(bin)
        index = (index + 1) And &HFF&
        bin(i) = bin(i) Xor seq(index)
    Next
    str = bin
End Sub
 
' Поиск подстроки в строке
Private Function cryptInStr(ByVal index As Long, src As String, match As String) As Long
    Dim src_() As Byte, match_() As Byte
    Dim n As Long, z As Long, v As Byte
    src_ = src: match_ = match
    n = index * 2
    Do While n <= UBound(src_)
        v = match_(z) Xor seq((z + 1) And &HFF) Xor seq((n + 1) And &HFF)
        If src_(n) = v Then
            z = z + 1
            If z > UBound(match_) Then
                cryptInStr = (n - UBound(match_)) \ 2 + 1
                Exit Function
            End If
        Else
            If z Then n = n - z + 1: z = 0
        End If
        n = n + 1
    Loop
End Function

Private Sub Form_Load()
    Dim src     As String
    Dim tmp     As String
    Dim match   As String
    Dim index   As Long
    
    ' Èíèöèàëèçèðóåì
    cryptInit
    
    src = LoadResData(101, "CUSTOM")
    match = LoadResData(102, "CUSTOM")
    
    ' Ïîèñê ñëîâà
    index = cryptInStr(0, src, match)
    tmp = Mid$(src, index, Len(match))
    ' Äåøèôðîâêà
    cryptProcess tmp, index - 1
    
    ' Âûâîä
    MsgBox tmp
    
End Sub