VB.NET中二进制文件转十六进制字符串的代码优化求助

我正在开发一款图片混淆器，用于在共享电脑上保护图片隐私。思路是读取图片内容，将字节数组转换为对应ANSI数组，再将ANSI（十进制）转为十六进制，最终将十六进制代码数组保存到新文件，随后删除原文件。

目前编写的代码如下：

Dim scr_filename As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\mypic.jpg"

Dim fdata = My.Computer.FileSystem.ReadAllBytes(scr_filename)

Dim res As String = "", fstr As String, num As Integer

fstr = System.Text.Encoding.Default.GetString(fdata)

For i As Integer = 0 To (fstr.Length - 1)
    num = Asc(fstr.Substring(i, 1))
    res += num.ToString + " "
Next
MsgBox(res)

该代码存在问题：转换20KB的文件耗时约10秒，超过20KB则直接冻结无输出。此外，当前仅实现了字节转ANSI值，未完成ANSI转十六进制的步骤。

请问有什么方法可以优化这段代码，使其支持转换400-500KB的文件？

核心问题分析 #

• 字符串拼接效率极低：使用res += num.ToString + " "会频繁创建新字符串，大文件下内存开销和时间成本剧增。
• 字节转字符串的错误逻辑：用Encoding.Default.GetString处理图片字节数组会导致编码丢失，因为图片是二进制数据，不是文本，直接转字符串会破坏原始字节信息。
• 未实现十六进制转换：原代码只输出十进制ANSI值，未完成需求中的十六进制转换步骤。

优化措施与完整代码 #

Imports System.IO
Imports System.Text

Module PictureObfuscator
    Sub Main()
        Dim srcFilename As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "mypic.jpg")
        Dim destFilename As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "mypic_obfuscated.txt")

        ' 读取二进制文件
        Dim fileBytes As Byte() = File.ReadAllBytes(srcFilename)

        ' 使用StringBuilder高效拼接结果，预分配容量减少扩容开销
        Dim sb As New StringBuilder(fileBytes.Length * 3)

        For Each b As Byte In fileBytes
            ' 直接将字节转为两位十六进制字符串，跳过冗余的ANSI转换
            sb.Append(b.ToString("X2"))
            sb.Append(" ")
        Next

        ' 移除最后一个多余的空格
        If sb.Length > 0 Then
            sb.Length -= 1
        End If

        ' 写入混淆后的文件
        File.WriteAllText(destFilename, sb.ToString(), Encoding.ASCII)

        ' 删除原文件（测试阶段建议先注释，避免误删）
        ' File.Delete(srcFilename)

        MsgBox("混淆完成，结果已保存至：" & destFilename)
    End Sub
End Module

优化说明 #

• 高效字符串拼接：用StringBuilder替代直接字符串拼接，预分配足够容量避免频繁内存扩容，处理大文件时性能提升显著。
• 直接操作二进制字节：跳过错误的字符串转换步骤，直接将每个字节转为十六进制，既保留原始数据完整性，又避免编码转换带来的性能损耗和数据错误。
• 支持大文件：File.ReadAllBytes可轻松处理几百KB的文件，配合StringBuilder的高效拼接，500KB文件的处理时间会控制在毫秒级。
• 完成十六进制转换：通过b.ToString("X2")将每个字节转为两位大写十六进制字符串，符合需求中的转换要求。

额外建议 #

• 测试阶段不要直接删除原文件，确保混淆后的文件可以正常还原再执行删除操作。
• 如果需要还原功能，可以读取混淆文件中的十六进制字符串，逐个转换为字节后写入新的图片文件。

内容的提问来源于stack exchange，提问作者Youstay Igo