К сожалению, если сохранить документ и открыть его, например, с помощью Блокнота, то исходный код отобразится целиком.
Вот, наваял за минуту код для быстрой защиты веб-страниц:
- Код: Выделить всё
Private Sub HideMe (Source As String, Destination As String)
Dim tmp As String, tmp2 As String
Open Source For Binary As #1
Open Destination For Binary As #2
tmp = Space(FileLen("D:\SERVER\xampp\htdocs\main.php"))
tmp2 = "<!--YOU CAN'T SEE OR COPY HTML, AREN'T YOU? HAHA! IT'S MY SMALL EASTER EGG! :-D-->" & vbNullChar
Get #1, , tmp
Put #2, , tmp2
Put #2, , tmp
Close
End Sub