If that is the case then why don't you encrypt the data and save it to a text file. after saving it to a text file, rename the file to a dll file so that users don't mess with it... for example check this out. If you are interested, then I will post the code to decrypt the file as well...
Originally Posted by make me rain
'-- Set reference to Capicom Library via menu project->references
Private fso As New FileSystemObject
Dim StrPathName As String, StrCreator As String, strName As String
Private Sub Command1_Click()
'-- The separator of PathName and Creator of file
'-- Change it to what you like
Separator = "koolsid"
'-- lets say Path is stored in StrPathName
'-- lets say Creator of file is stored in StrCreator
Encryptdata.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_AES
Encryptdata.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
'-- Set the encryption/decryption key
Encryptdata.Content = StrPathName
'-- Encrypt Path
TempEncryptedPath = Encryptdata.Encrypt(CAPICOM_ENCODE_BASE64)
Encryptdata.Content = StrCreator
'-- Encrypt Creator of file
TempEncryptedCreator = Encryptdata.Encrypt(CAPICOM_ENCODE_BASE64)
'-- Set the filename (Save it an extention .dll to Fool users)
strName = App.Path & "\system\MakeMeRain.dll"
'-- Ensure that the output is in one line as capicom splits it into 3 lines
EncryptedPath = Replace(TempEncryptedPath, vbNewLine, "")
EncryptedCreator = Replace(TempEncryptedCreator, vbNewLine, "")
Set strm = .OpenTextFile(strName, ForAppending) '-- Adds data at the end of File
.Write vbCrLf & Trim(EncryptedPath) & Separator & Trim(EncryptedCreator)
MsgBox "Data Saved", , "Success"