String para Byte - Hex Replace

Question

Olá

Uso o código a baixo para ler hexadecimais de um arquivo executável:

   Try
            Dim filesbytes As Byte() = IO.File.ReadAllBytes("C:\arquivo1.exe")
            Dim hex As String() = Array.ConvertAll(filesbytes, Function(b) b.ToString("X2")) 
            Dim replaced = String.Join("", hex).replace("A","B") '< 
            IO.File.WriteAllBytes("C:\Users\x\Desktop\arquivo1novo.exe", replaced)
            Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Depois de convertido de Byte para String, em "replaced" eu altero digamos todos os "A" por "B", e depois tenho que converter novamente para Byte e salvar.

Já tentei diversos códigos para converter "replaced" para Byte mas sempre da erro e não consigo.

Alguma ideia?

Answer 1

faltou isso:

Dim bytes As Byte() = Encoding.ASCII.GetBytes(replaced)

att

---

William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------

Sogi Informatique ltée

Answer 2

Deu certo, vlw