Encryption/Decryption of text file (Free File)

I am creating and populating the textfile using Free File. However, I would like to be able to encrypt the text file and only allow the app to decrypt it. I have searched PSC and VBF but can only find it when using a textbox. Can anyone assist pls?

This is what I am using to create the file:
(Havent finished the textfile creation part yet, but will give you an idea)

VB Code:

Private Sub cmdSaveFile_Click()
    m_intFF = FreeFile
    m_strDirectory = "Projects"
    m_strSaveProjectFileName = txtFileName.Text
    m_strSDPROJFileName = m_strSaveProjectFileName & ".sdproj"
    m_strFileNameLocation = App.Path & "\" & m_strDirectory & "\" & m_strSDPROJFileName
    
    If Len(Dir$(App.Path & "\" & m_strDirectory & "\", vbDirectory)) > 0 Then
        'do nothing because the Projects directory exists
    Else
        MkDir (m_strDirectory)
    End If
    
    If m_strSaveProjectFileName = vbNullString Then
        MsgBox "You must input a filename!", vbExclamation, "Error Encountered."
        Exit Sub
    ElseIf LCase(Right$(txtFileName.Text, 7)) = ".sdproj" Then
        MsgBox "Input your file name, excluding the file extension.", vbInformation, "Error Encountered."
        Exit Sub
    End If
    
    Open m_strFileNameLocation For Output As #m_intFF
        For Each m_Ctrl In frmMain.lblText
            If m_Ctrl.Index Then
                With m_Ctrl
                    Print #m_intFF, "###"
                    Print #m_intFF, .Name & "|" & .Index
                    Print #m_intFF, "BorderStyle" & "|" & .BorderStyle
                    Print #m_intFF, "Top" & "|" & .Top
                    Print #m_intFF, "Left" & "|" & .Left
                    Print #m_intFF, "Height" & "|" & .Height
                    Print #m_intFF, "Width" & "|" & .Width
                    Print #m_intFF, "Appearance" & "|" & .Appearance
                    Print #m_intFF, "BackStyle" & "|" & .BackStyle
                    Print #m_intFF, "Caption" & "|" & .Caption
                    Print #m_intFF, "Alignment" & "|" & .Alignment
                    Print #m_intFF, "Color" & "|" & .ForeColor
                    Print #m_intFF, "Size" & "|" & .FontSize
                    'Print #m_intFF, "Style" & "|" & .Font.Style
                End With
            End If
        Next m_Ctrl
        
        For Each m_Ctrl In frmMain.pbShape
            If m_Ctrl.Index Then
                With m_Ctrl
                    Print #m_intFF, "###"
                    Print #m_intFF, .Name & "|" & .Index
                    Print #m_intFF, "Top" & "|" & .Top
                    Print #m_intFF, "Left" & "|" & .Left
                    Print #m_intFF, "Height" & "|" & .Height
                    Print #m_intFF, "Width" & "|" & .Width
                    Print #m_intFF, "Appearance" & "|" & .Appearance
                    Print #m_intFF, "BorderStyle" & "|" & .BorderStyle
                End With
            End If
        Next m_Ctrl
    
        For Each m_Ctrl In frmMain.pb
            If m_Ctrl.Index Then
                With m_Ctrl
                    Print #m_intFF, "###"
                    Print #m_intFF, .Name & "|" & .Index
                    Print #m_intFF, "Top" & "|" & .Top
                    Print #m_intFF, "Left" & "|" & .Left
                    Print #m_intFF, "Height" & "|" & .Height
                    Print #m_intFF, "Width" & "|" & .Width
                    Print #m_intFF, "Appearance" & "|" & .Appearance
                    Print #m_intFF, "BorderStyle" & "|" & .BorderStyle
                    Print #m_intFF, "Picture" & "|" & .Tag
                End With
            End If
        Next m_Ctrl
    
    With frmMain.pbWorkArea
        Print #m_intFF, "###"
        Print #m_intFF, .Name
        Print #m_intFF, "Top" & "|" & .Top
        Print #m_intFF, "Left" & "|" & .Left
        Print #m_intFF, "Height" & "|" & .Height
        Print #m_intFF, "Width" & "|" & .Width
        Print #m_intFF, "Picture" & "|" & .Tag
    End With
    
    Close #m_intFF
    Unload Me
End Sub

This is from the allapi.net. Hope it helps:

VB Code:

'Note: Encryptfile only works on NTFS 5
Private Declare Function EncryptFile Lib "ADVAPI32" Alias "EncryptFileA" (ByVal lpFileName As String) As Boolean
Private Declare Function DecryptFile Lib "ADVAPI32" Alias "DecryptFileA" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean
Const mFile = "c:\test.txt"
Private Sub Form_Load()
    Encrypt mFile
End Sub
Sub Encrypt(sFile As String)
    If EncryptFile(mFile) Then
        MsgBox "The file's succesfully encrypted. Log in as another user and try to access this file."
    End If
End Sub
Sub Decrypt(sFile As String)
    If DecryptFile(mFile, 0) = True Then
        MsgBox "The file's succesfully decrypted."
    End If
End Sub

Try this dll. Blowfish is very strong encryption.

Quote:

---

Originally Posted by Al42

Try this dll. Blowfish is very strong encryption.

---

yeah i know... when i was doing my Security+ cert, had to learn a lot about blowfish. thanks. will check it out.

i need the encryption to work on all types of ntfs and couldnt get this code to work.

Quote:

---

Originally Posted by gavio

This is from the allapi.net. Hope it helps:

VB Code:

'Note: Encryptfile only works on NTFS 5
Private Declare Function EncryptFile Lib "ADVAPI32" Alias "EncryptFileA" (ByVal lpFileName As String) As Boolean
Private Declare Function DecryptFile Lib "ADVAPI32" Alias "DecryptFileA" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean
Const mFile = "c:\test.txt"
Private Sub Form_Load()
    Encrypt mFile
End Sub
Sub Encrypt(sFile As String)
    If EncryptFile(mFile) Then
        MsgBox "The file's succesfully encrypted. Log in as another user and try to access this file."
    End If
End Sub
Sub Decrypt(sFile As String)
    If DecryptFile(mFile, 0) = True Then
        MsgBox "The file's succesfully decrypted."
    End If
End Sub

---

Quote:

---

Originally Posted by Al42

Try this dll. Blowfish is very strong encryption.

---

using the dll doesnt make any sense to me. (project) and im not about to spend $69 on the dll version. i dont have the money to spare :)