none
String para Byte - Hex Replace RRS feed

  • Pergunta

  • 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?

    terça-feira, 25 de agosto de 2015 20:23

Respostas

  • faltou isso:

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

    att


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

    • Marcado como Resposta Eliseu5 terça-feira, 25 de agosto de 2015 22:21
    terça-feira, 25 de agosto de 2015 20:30
    Moderador

Todas as Respostas