加密 .txt 文件错误 - 进程无法访问文件

Question

我正在尝试加密在我的应用程序中创建的.txt 文件。

要创建此文件，我使用以下代码：

Dim fileExists As Boolean = File.Exists(directorypath & "dbpw.txt")
If File.Exists(directorypath & "dbpw.txt") = False Then
   Using sw As New StreamWriter(File.Open(directorypath & "dbpw.txt", FileMode.Create))
         IIf(fileExists, "", "")
         sw.Close()
   End Using
End If

然后，为了编写和加密文件，我使用以下代码，调用我从互联网上的示例中调整的子例程。

bytKey = CreateKey(txtCode.Text)
bytIV = CreateIV(txtCode.Text)

EncryptOrDecryptFile(directorypath & "dbpw.txt", directorypath & "dbpw.txt", bytKey, bytIV, CryptoAction.ActionEncrypt)

当代码到达最后一行时，调用EncryptOrDecrypt 子例程，抛出一个错误提示

进程无法访问文件“myDirectoryPath\dbpw.txt”，因为它正被另一个进程使用

我需要做什么才能发布文件？

我也尝试只使用File.Create 和File.Encrypt，但无论哪种方式都会引发相同的错误。

EncryptOrDecryptFile() 的代码

Public Sub EncryptOrDecryptFile(ByVal strInputFile As String, ByVal strOutputFile As String, ByVal bytKey() As Byte, ByVal bytIV() As Byte, ByVal Direction As CryptoAction)

    Try
        fsInput = New System.IO.FileStream(strInputFile, FileMode.Open, FileAccess.Read)
        fsOutput = New System.IO.FileStream(strOutputFile, FileMode.OpenOrCreate, FileAccess.Write)
        fsOutput.SetLength(0)
        ' Currently fails, file not being released for read/write once it's created.

        Dim bytBuffer(4096) As Byte
        Dim lngBytesProcessed As Long = 0
        Dim lngFileLength As Long = fsInput.Length
        Dim intBytesInCurrentBlock As Integer
        Dim csCryptoStream As CryptoStream

        Dim cspRijndael As New System.Security.Cryptography.RijndaelManaged

        Select Case Direction
            Case CryptoAction.ActionEncrypt
                csCryptoStream = New CryptoStream(fsOutput, _
                cspRijndael.CreateEncryptor(bytKey, bytIV), _
                CryptoStreamMode.Write)

            Case CryptoAction.ActionDecrypt
                csCryptoStream = New CryptoStream(fsOutput, _
                cspRijndael.CreateDecryptor(bytKey, bytIV), _
                CryptoStreamMode.Write)
        End Select

        While lngBytesProcessed < lngFileLength
            intBytesInCurrentBlock = fsInput.Read(bytBuffer, 0, 4096)

            csCryptoStream.Write(bytBuffer, 0, intBytesInCurrentBlock)

            lngBytesProcessed = lngBytesProcessed + _
                                    CLng(intBytesInCurrentBlock)
        End While

        csCryptoStream.Close()
        fsInput.Close()
        fsOutput.Close()

    Catch ex As Exception
        errorLog(ex)

    End Try
End Sub

Answer 1

连同您传递的参数，在您的EncryptOrDecryptFile() 方法中，您试图将两个流（fsInput 和fsOutput）打开到同一个文件。一旦你打开了fsInput，它就拥有了对该文件的独占访问权限，使得fsOutput 无法打开它进行写入。

您唯一的选择是：

• 重命名输入文件或输出文件，以便两个流打开两个不同的文件，或者：

• 保持对文件打开“全局”加密流，每次您想向其写入数据时都会使用该加密流。

注意：以后有人可能会建议你用FileShare.Write打开fsInput，以便让其他进程打开文件进行写入，从而也允许fsOutput流也写给它。 - 不要那样做！

在您读取文件时允许其他进程写入文件可能会导致问题，即使它是您的fsOutput 流。这是因为您永远无法知道fsOutput 将写入多少数据。如果加密数据比原始数据长怎么办？这将导致它覆盖 fsInput 接下来要读取的内容，从而损坏文件。