创建记事本无法读取的文本的二进制文件

Question

我正在尝试创建一个无法通过Windows中的记事本读取的二进制文件。此文件需要包含文本信息。我运行的当前代码在记事本中是可读的（这里和那里有一些额外的字符，但仍然可以阅读）。任何帮助将不胜感激。

Using writer As BinaryWriter = New BinaryWriter(File.Open("file.bin", FileMode.Create))
        writer.Write(rtbWriter.Text)
End Using

Answer 1

所有文件都可以通过记事本读取 - 无论它是否是二进制的。如果您不希望文本可读（或更准确 - 易于理解），请考虑使用加密。

编辑：有关如何使用加密的介绍，请参阅下面的链接，了解如何在 VB.NET 中使用3DES加密服务提供程序：VB.Net 简单的加密/解密

Answer 2

*更复杂的方法是将文件流和加密流链接在一起...

。但这里有一个非常简单的示例，展示了如何加密/解密单个字符串，以便您可以玩和学习：

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class Form1
    Private Key As String = "SomeRandomKeyThatIsHardCoded"
    Private data As New List(Of String)
    Private DataFileName As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "SomeFile.txt")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Some data to play with:
        data.Add("User X, Access Y")
        data.Add("User Y, Access Z")
        data.Add("User Z, Access A")
        ListBox1.DataSource = data
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Write out each entry in encrypted form:
        Using SW As New StreamWriter(DataFileName, False)
            For Each entry As String In data
                SW.WriteLine(Crypto.Encrypt(entry, Key))
            Next
        End Using
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        data.Clear()
        ListBox1.DataSource = Nothing
        ' Read each encrypted line and decrypt it:
        Using SR As New System.IO.StreamReader(DataFileName)
            While Not SR.EndOfStream
                data.Add(Crypto.Decrypt(SR.ReadLine, Key))
            End While
        End Using
        ListBox1.DataSource = data
    End Sub
End Class
Public Class Crypto
    Private Shared DES As New TripleDESCryptoServiceProvider
    Private Shared MD5 As New MD5CryptoServiceProvider
    Public Shared Function MD5Hash(ByVal value As String) As Byte()
        Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
    End Function
    Public Shared Function Encrypt(ByVal stringToEncrypt As String, ByVal key As String) As String
        DES.Key = Crypto.MD5Hash(key)
        DES.Mode = CipherMode.ECB
        Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt)
        Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
    End Function
    Public Shared Function Decrypt(ByVal encryptedString As String, ByVal key As String) As String
        Try
            DES.Key = Crypto.MD5Hash(key)
            DES.Mode = CipherMode.ECB
            Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)
            Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Class