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加密服务提供程序： simple encrypting / decrypting in 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

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

2 个答案: