Быстрый HEX

[|kerish|]

Необходимо содержимое EXE файла перевести в HEX-значение.
Файл весит 1 Мб. Перевод в HEX занимает ооооочень долгое время.
А переводить надо быстро.
Может кто знает, как переводить в HEX большие объемы текста быстро?

[tyomitch]

Выделять сразу строку нужного размера и править Mid-ом - быстрее, чем 1000000 конкатенаций.

[|kerish|]

tyomitch В смысле строку? Идёт бинарный поток текста... Можно, пожалуйста, по-конкретнее?

[alibek]

В смысле, не HexDump = HexDump & Left$(Hex$(Byte) & "0", 2), а Mid$(HexDump, Pos, 2) = Hex$(Byte)

[tyomitch]

tyomitch В смысле строку? Идёт бинарный поток текста... Можно, пожалуйста, по-конкретнее?

Ещё один видит несуществующую разницу между строкой и "бинарным потоком текста"? :-/
Код свой лучше покажи, телепатов нет. Тогда и будет "по-конкретнее".

[RayShade]

Название топика меня улыбнуло просто абсолютно

[ALX_2002]

2 RayShade: Аналогично... Я аж задумался... Это типа угроза такая наверное - "БЫСТРЫЙ ! ! Так что не_х... тут."

[|kerish|]

Вот код.

Код: Выделить всё

Private Function HexToStr(ByVal Data As String) As String
Dim Buffer As String
If Len(Data) Mod 2 <> 0 Then
HexToStr = vbNullString
Else
For i = 1 To Len(Data) Step 2
Buffer = Buffer & Chr("&H" & Mid(Data, i, 2))
Next i
HexToStr = Buffer
End If
End Function

[tyomitch]

Вот быстрый код.

Код: Выделить всё

Private Function HexToStr(ByVal Data As String) As String
Dim i As Long
If Len(Data) Mod 2 Then
HexToStr = vbNullString
Else
HexToStr = Space(Len(Data) \ 2)
For i = 1 To Len(Data) Step 2
Mid(HexToStr, i \ 2 + 1, 1) = Chr("&H" & Mid(Data, i, 2))
Next i
End If
End Function


Найди 10 отличий.

[Andrey Fedorov]

Вот быстрый код.

Главный вопрос - а нахера этот маразм нужен-то - кто задумывался???

Зачем весь файл переводить в HEX-представление?

Для того чтобы отобразить это дело в редакторе? Дык для этого совсем не обязательно заниматься подобными извращениями, IMHO.

Как бы делал я тот-же редактор - взял бы Grid и выводил/редактировал бы байтовый массив через него... В принципе интересно - может даже примерчик набросаю

[alibek]

Я, например, это делал, когда надо было перевести бинарный код в вид, в котором отсутствуют управляющие коды и коды, выше 128. Можно было конечно переводить в BASE64, но класса и/или описания не было, а Hex-Dump это всегда просто и наглядно.

[Andrey Fedorov]

Вот, кстати, быстренько набросал примерчик простейшего HEX-редактора на Grid-е. Использовался Janus GridEx...

[|kerish|]

Я делаю не HEX-редактор.

[Andrey Fedorov]

Я делаю не HEX-редактор.

Да мне все одно интересно было - идея-то давно понятна была, а реализовать только cейчас попробовал - может кому и пригодится...

[|kerish|]

Посмотри сюда, плиз http://bbs.vbstreets.ru/viewtopic.php?t=19111

[CodeName33]

Andrey Fedorov я уже выкладывал пример hex редактора http://bbs.vbstreets.ru/viewtopic.php?t=9610

[Andrey Fedorov]

Andrey Fedorov я уже выкладывал пример hex редактора http://bbs.vbstreets.ru/viewtopic.php?t=9610

У меня абсолютно другой принцип.
На мой взгляд моя реализация намного проще...

[tyomitch]

Вот быстрый код.

Главный вопрос - а нахера этот маразм нужен-то - кто задумывался???

"Кто хочет делать - делает, кто не хочет - ищет повод не делать" (с)