'-- 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.SetSecret ("koolsidencryption")
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, "")
With fso
Set strm = .OpenTextFile(strName, ForAppending) '-- Adds data at the end of File
With strm
.Write vbCrLf & Trim(EncryptedPath) & Separator & Trim(EncryptedCreator)
End With
End With
MsgBox "Data Saved", , "Success"
End Sub