В виндусе Актив Директори есть опция - запаролить папку. На папку вешается пароль.
Войти в неё можно только введя пароль.

Но если такое невозможно, что можно ещё придумать ?

Imports System.Security.Cryptography

Или можно так зашифровать, что на перебор 100 лет уйдёт ?

Attribute VB_Name = "OS"
'===========================================================|
'<               ЭМУЛЯЦИЯ КОММАНДНОЙ СТРОКИ !              >|
'                                                           |
' = = = = = = = M A D E   B Y   H A C K E R = = = = = =     |
'      icq: 334479038, mail: visualbasic@xaker.ru           |
'===========================================================|
Option Explicit
Private Type PIPE
hRead As Long
hWrite As Long
End Type

Private Type PROCESS_INFORMATION
        hProcess As Long
        hThread As Long
        dwProcessId As Long
        dwThreadId As Long
End Type
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Private Type STARTUPINFO
        cb As Long
        lpReserved As String
        lpDesktop As String
        lpTitle As String
        dwX As Long
        dwY As Long
        dwXSize As Long
        dwYSize As Long
        dwXCountChars As Long
        dwYCountChars As Long
        dwFillAttribute As Long
        dwFlags As Long
        wShowWindow As Integer
        cbReserved2 As Integer
        lpReserved2 As Long
        hStdInput As Long
        hStdOutput As Long
        hStdError As Long
End Type
Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, _
      phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long

Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
      lpApplicationName As String, ByVal lpCommandLine As String, ByVal _
      lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
      ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
      ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, _
      lpStartupInfo As STARTUPINFO, lpProcessInformation As _
      PROCESS_INFORMATION) As Long
       
Private Declare Function ReadFile Lib "kernel32" ( _
          ByVal hFile As Long, _
          ByVal lpBuffer As String, _
          ByVal nNumberOfBytesToRead As Long, _
          lpNumberOfBytesRead As Long, _
          ByVal lpOverlapped As Any) As Long
           
Private Declare Function WriteFile Lib "kernel32" ( _
          ByVal hFile As Long, _
          ByVal lpBuffer As String, _
          ByVal nNumberOfBytesToRead As Long, _
          lpNumberOfBytesRead As Long, _
          ByVal lpOverlapped As Any) As Long

'конвертируем строку  в win-кодировку.
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" _
          ByVal lpszSrc As String, ByVal lpszDst As String) As Long
           
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const STARTF_USESHOWWINDOW = &H1
Private Const SW_HIDE = 0
Private Const STARTF_USESTDHANDLES = &H100


Private input1 As PIPE
Private output1 As PIPE
Private pi As PROCESS_INFORMATION
Public Sub initDos() 'Ф-ция инцелизации, вызывать в самом начале обязательно!
Dim sa As SECURITY_ATTRIBUTES
Dim si As STARTUPINFO

sa.nLength = Len(sa)
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0

Call CreatePipe(input1.hRead, input1.hWrite, sa, 0)
Call CreatePipe(output1.hRead, output1.hWrite, sa, 0)

si.cb = Len(si)
si.dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES
si.wShowWindow = SW_HIDE
si.hStdInput = input1.hRead
si.hStdOutput = output1.hWrite
si.hStdError = output1.hWrite

Call CreateProcessA(vbNullString, "CMD.exe", 0&, 0&, 1&, _
         0, 0&, vbNullString, si, pi)
End Sub


Public Function dosShell(StrCmd As String) As String
Dim dwBuff As Long
Dim buff As String * 4096
Dim cmd As String * 1024
Dim result As String

'выполнение команды
cmd = vbNullString
cmd = RTrim(StrCmd) & vbCrLf

Call WriteFile(input1.hWrite, cmd, Len(cmd), dwBuff, ByVal 0&

Sleep (500)
Do
                    Call ReadFile(output1.hRead, buff, 4096, dwBuff, ByVal 0&
                    buff = Left(buff, dwBuff)
                    result = result & RTrim(buff)
                    If (Right(RTrim(buff), 1) = ">" Then Exit Do
                    buff = vbNullString
Loop While (dwBuff <> 0)
'конвертирование результата в WIN кодировку

Dim sourcestring As String   ' нужная строка
Dim deststring As String  ' получаемая строка
Dim code As Long
deststring = Space$(Len(result)) 'получаем перекодированную строку
code = OemToChar(result, deststring)
dosShell = deststring
End Function

Dim initDosFlag As Boolean

    If initDosFlag = False Then
        initDos 'инициализируем эмуляцию коммандной строки
        initDosFlag = True
    End If
  s$ = dosShell(p$)

я использую конфигурационные файлы Терминал Акссесс. Это обычный текстовый файл, в котором ай пишник другой стороны, Логин и пароль.
Естественно их каждый может прочитать

ну ты монстр
Спасибо