Как прочитать бинарник приложения?

[vbStr]

Есть некоторая программа, которая после своей работы оставляет файлы, содержащие некоторые данные. Как образом можно прочитать информацию из таких файлов, сделав ее читаемой? Проще говоря, как вытащить из этих бинарников значения величин, числа и проч.?

[tyomitch]

Не зная заранее их формата - никак.

[Jenizix]

Ну если канешна структура бинарника простая, то можно...

[vbStr]

Кажется, я обратился по адресу! Меня поняли! Что за структура такая? Форматы данных? Где можно подробнее об этом посмотреть? Посоветуйте. Нужно очень добраться до информации из этих бинарников!
Насколько простой может быть структура? Я пытался читать файл при помощи Getом. Сначала идут значения Empty, а потом - неизвестный тип, определенный пользователем.

[ANDLL]

И как ты пытался его читать?

[Jenizix]

Давай сюда этот бинарник, тока если он не большой < 200 Kb...
Но скорее всего это сделать не удастся, т.к. нужен точный формат структуры этих бинарников...

[vbStr]

ANDLL. Пытался читать его Getом.

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

'Пытаемся вытащить данные!
FileNumber = FreeFile
Open pathLWork & "\" & "TEST.TEST" For Binary As #FileNumber
Do While Not EOF(1)
    Get #FileNumber, , FileBuffer
    Debug.Print FileBuffer
Loop
Close #FileNumber

Jenizix, для очень простой задачи файлы очень маленькие ~1Kb. Высылаю на твой mail. Посмотри, если не сложно. Ответ - в форум, у меня email - нет .

[ANDLL]

Может, так:

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

FileNumber = FreeFile
Open pathLWork & "\" & "TEST.TEST" For Binary As #FileNumber
FileBuffer =space(lof(FileNumber))
Get #FileNumber, , FileBuffer
Debug.Print FileBuffer
Close #FileNumber

[vbStr]

ANDLL, не работает! А при чем тут строчка из пробелов?

[ANDLL]

КАК ЭТО НЕ РАБОТАЕТ?

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

Private Sub Form_Load()
Dim FileBuffer As String, FileNumber As Long
FileNumber = FreeFile
Open "C:\boot.ini" For Binary As #FileNumber
FileBuffer = Space(LOF(FileNumber))
Get #FileNumber, , FileBuffer
Debug.Print FileBuffer
Close #FileNumber
End Sub


Строчка из пробелов нужна для резервирования места.

[vbStr]

ANDLL, не горячись. VB говорит, что такой тип данных он не знает. Хорошо, место зарезервировали. А дальше что? У FileBuffer, в которую Get помещает считанную информацию тип String, а информация точно численная.

[ANDLL]

А какие это числа(в смысле сколько байт приходится на одно число? два, четыре или восемь?)
Может так:

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

Private Sub Form_Load()
Dim FileBuffer() As Long, FileNumber As Long
FileNumber = FreeFile
Open "file" For Binary As #FileNumber
redim FileBuffer(LOF(FileNumber)\4)
Get #FileNumber, , FileBuffer
Debug.Print FileBuffer(0)
Close #FileNumber
End Sub

[vbStr]

ANDLL! Скорее всего, это Integer и Double. Но неизвестно, в каком порядке они расположены. Есть там еще какая-то сбивка и проч. защита от вот таких дел, которыми я занимаюсь

[eagle-dwarf]

Забавно, столкнулся с похожей проблемой, только у меня известен формат файла. но все равно выдрать из 16-ричного кода 10-чное значение числа у меня пока не получается. (вернее получается только для целых чисел)

1. проблема с GET'ом действительно есть - дело в том что в 16-ричном коде могут быть такие значения которые в строковой переменной хранятся некорректно (вот уж не знаю почему, но это кажется даже в справке по VBA написано).
2. но это пол беды, я столкнулся с тем что если читать бинарник по переменным Long,Singlе и Double то и они по неизвестной причиние принимают не численное значение а строковое. A Далее смотри пункт первый - Get возмущается что не понимает такого типа данных.

Я читаю бинарник побайтно в массив переменных типа Byte - в этом случае никаких проблем с Get'ом нет. А вот чего с ним дальше делать пока не сообразил (если бы у меня были только переменные типа Integer или Long то я знаю как это пересчитать а вот как пересчитваются числа с плавающей точкой я не помню).

[eagle-dwarf]

Вытянуть чило типа Integer (процедуре передаются два байта в той последовательности в которой они идут в бинарнике)

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

Function GetInteger(FirstByte, SecondByte As Byte)
Dim number As Long
number = CLng(FirstByte) + CLng(SecondByte) * 256
If number > 32767 Then number = number - 65536
GetInteger = CInt(number)
End Function

Вытянуть число типа Long

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

Function GetSingle(FirstByte, SecondByte, ThirdByte, FourthByte As Byte)
Dim number As Double
number = CDbl(FirstByte) + CDbl(SecondByte) * 256 + CDbl(ThirdByte) * 256 ^ 2 + CDbl(FourthByte) * 256 ^ 3
If number > 2147483647 Then number = number - 4294967296#
GetSingle = CLng(number)
End Function

Я думаю можно бы эти процедуры еще оптимизировать, но для меня пока и так сойдет

Что касается чисел с плавающей точкой, то тут сложнее, но так как мне оно тоже очень нужно и в любом случае придется сделать, то как только сделаю напишу

[alibek]

http://stevehollasch.com/cgindex/coding/ieeefloat.html
http://en.wikipedia.org/wiki/IEEE_float ... t_standard

[alibek]

А Long и Integer лучше получать не с помощью математических операторов (умножение и степень), а с помощью логических (Or).

[eagle-dwarf]

2alibek, а как с помощью логических операторов это провернуть, я чего-то не соображу никак?

За стандарт спасибки.

Но я уже нашел в сети код программки которая высчитывает Single

[vbStr]

[quote="eagle-dwarf"]Забавно, столкнулся с похожей проблемой, только у меня известен формат файла
2. но это пол беды, я столкнулся с тем что если читать бинарник по переменным Long,Singlе и Double то и они по неизвестной причиние принимают не численное значение а строковое. A Далее смотри пункт первый - Get возмущается что не понимает такого типа данных.
[quote]
eagle-dwarf, тебе доподлинно известен формат данных в файле? Т.е., тебе известен этот шаблон из какого-то источника или ты его сам разгадал? Я пытаюсь раскрыть неизвестный мне формат с переменным успехом: в целом структура файла ясна (лежат подряд записанные целые и дробные), но встречаются какие-то странные байты, которые сбивают процесс чтения.
Если открыть бинарник Блокнотом, то в этих сбойных местах стоят подряд несколько "пробелов", но при попытке "пробежать" через это место курсором происходит "проскакивание" курсора. Другими словами, обычно курсор за одно нажатие передвигается на один символ, а этих проблемных местах перескакивает сразу через несколько.
Мне известно, что это сделано намеренно. Кто-нибудь знает как эту нерегулярность в бинарном файле обойти?

[eagle-dwarf]

Формат моего файла мне не был известен, то есть я примерно представлял что там должно быть, но только примерно. Пришлось самому разгадывать. Хошо, что в файле содержались куски кода каждый из которых был описанием определенного объекта, а всего возможных типов объектов было 5.

Кстати, разгадывать 16-ричный код блокнотом жутко не удобно. Возьми любой редактор 16-ричного кода (hex-редактор). я очень быстро нашел в сети такой, который меня устроил. (WINHEX 12.2 русифицированный) могу скинуть тебе его на мыло - весит что-то вроде 700кб.

Далее, что касается пробелов то это код hex (20) если читать файл побайтно с проверкой содержания байта то можно просто вычислять такие байты и неучитывать при дальнейшем использовании.
Кроме того я не думаю что они уж совсем незакономерно расположены - скорее всего они маркируют конец (или начало) какой-то логически связанной записи. - потому что, если бы я хотел скрыть значения записанные в бинарный файл, то я бы не геморроился с хаотичным изменением в записях, а просто зашифровал бы данные любым из легкодоступных шифров. - это проще и надежнее.

Что касается проскакивания курсора - это глюки блокнота - скорее всего там находятся не пробелы, а какие-то управляющие символы, которые он не может воспринять. Раскрой файл hex-редакотором и посмотри какой там код если не 20 то это не пробелы. Чтобы узнать что же это за символ посмотри в таблице ASCII кодов.

[vbStr]

Кстати, разгадывать 16-ричный код блокнотом жутко не удобно. Возьми любой редактор 16-ричного кода (hex-редактор). я очень быстро нашел в сети такой, который меня устроил. (WINHEX 12.2 русифицированный) могу скинуть тебе его на мыло - весит что-то вроде 700кб.

eagle-dwarf, я догадывался о существовании какого-либо "продвинутого блокнота", при помощи которого можно просматривать бинарные файлы. Но не знал, как такое средство назвать при поиске. Поэтому и не искал . Спасибо за информацию. Сам поищу в Сети рекомендованный тобой WinHex. Кстати, именно просматривая "краказябры" бинарника в Блокноте, я получил первое представление о структуре.

Далее, что касается пробелов то это код hex (20) если читать файл побайтно с проверкой содержания байта то можно просто вычислять такие байты и неучитывать при дальнейшем использовании.
Кроме того я не думаю что они уж совсем незакономерно расположены - скорее всего они маркируют конец (или начало) какой-то логически связанной записи.

Выяснилось, что никакой сбивки не было . Я запостил свое сообщение, еще толком не проанализировав результаты. Но, всё равно, спасибо!

[eagle-dwarf]

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

Integer

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

Function GetInteger(FirstByte As Byte, SecondByte As Byte) As Integer
Dim number As Integer

If SecondByte < 128 Then
    number = FirstByte + SecondByte * 256
Else
    number = FirstByte + (SecondByte - 256) * 256
End If
GetInteger = number
End Function

Long

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

Function GetLong(FirstByte As Byte, SecondByte As Byte, ThirdByte As Byte, FourthByte As Byte) As Long
Dim number As Long

If FourthByte < 128 Then
    number = FirstByte + SecondByte * 256 + ThirdByte * 256 ^ 2 + FourthByte * 256 ^ 3
    Else
    number = FirstByte + SecondByte * 256 + ThirdByte * 256 ^ 2 + (FourthByte - 256) * 256 ^ 3
End If

GetLong = number
End Function

single

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

Function GetSingle(FirstByte As Byte, SecondByte As Byte, ThirdByte As Byte, FourthByte As Byte) As Single
Dim number As Single
Dim SignOfNumber As Integer
Dim Order As Integer

'Определение знака числа
If FourthByte < 128 Then 'Проверка знака числа
    SignOfNumber = 1
Else
    SignOfNumber = -1
    FourthByte = FourthByte - 128 'убираем из байта бит отвечающий за знак
End If
'Вычисление кода порядка - смещаем-увеличиваем порядок на один разряд т.к для порядка используется еще один бит (всего их 8) из следующего байта
Order = 2 * FourthByte
'Коррекция кодов порядка и мантиссы
If ThirdByte > 127 Then
      Order = Order + 1 ' если в том бите который в третьем байте отвечает за порядок есть 1 то соответственно прибавляем его к поярядку
      ThirdByte = ThirdByte - 128 'вычитаем значение этого бита из байта
End If
'Коррекция нормализованной мантиссы
If Order > 0 Then
     ThirdByte = ThirdByte + 128 'добавляем разряд - кажись это связано с тем что число высчитывается как 2точкаДробная, часть а записано оно как 0точка2Дробная часть
End If
'Вычисление мантиссы
' number = ((FirstByte / 256 + SecondByte) / 256 + ThirdByte) / 256
number = ThirdByte * 256 ^ -1 + SecondByte * 256 ^ -2 + FirstByte * 256 ^ -3
'Вычисление модуля числа
If Order > 126 Then
    For I = 1 To Order - 126
        number = number * 2
    Next I
Else
    For I = 1 To 126 - Order
        number = number / 2
    Next I
End If
'Коррекция знака числа
   If SignOfNumber < 0 Then
      number = -number
   End If
GetSingle = number
End Function

Double
так как я слямзил код вычисления Single из сети и всего-лишь подправил немного, то, когда создавал по его образу и подобию код для Double, так и не смог понять одной вещи. Это касается цикла при вычислении модуля числа. Если кто меня надоумит почему так, а не иначе, буду благодарен.

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

Function GetDouble(FirstByte As Byte, SecondByte As Byte, ThirdByte As Byte, FourthByte As Byte, b5 As Byte, b6 As Byte, b7 As Byte, b8 As Byte) As Double
Dim number As Double
Dim SignOfNumber As Integer
Dim Order As Integer
Dim Temp As Integer

'Определение знака числа
   If b8 < 128 Then 'Проверка знака числа
      SignOfNumber = 1
   Else
      SignOfNumber = -1
      b8 = b8 - 128
   End If
   
   Order = 16 * b8 'Вычисление кода порядка - смещаем-увеличиваем порядок на 4 разряда т.к для порядка используется еще 4 бит (всего их 11) из следующего байта

'Коррекция кодов порядка и мантиссы записанных в следующем байте
If b7 > 15 Then
    Temp = CInt(b7) 'временно сохраняем первоначальное значение седьмого байта
    Do
        b7 = b7 - 16
    Loop While b7 > 15 'полученое число соответствует 4 младшим битам в байте и относится к мантиссе
    Order = Order + (Temp - CInt(b7)) / 16 ' если в в четырех страших битах этого байта есть отличное от 0 число то оно относится к порядку значит его нужно перевести в 4 малдших байта и прибавить к порядку
End If
If Order > 0 Then 'добавляем разряд
     b7 = b7 + 16
End If
'вычисление мантиссы
number3 = b7 * 256 ^ -1 + b6 * 256 ^ -2 + b5 * 256 ^ -3 + FourthByte * 256 ^ -4 + ThirdByte * 256 ^ -5 + SecondByte * 256 ^ -6 + FirstByte * 256 ^ -7

'вычисление модуля числа
If Order > 1019 Then 'по какой-то причине в порядке отсутствует разряд по идее порядок должен быть больше 1021 но с 1021 не работает а с 1019 все отлично, мож объяснит кто?
    Order = Order - 1019
    For I = 1 To Order
        number = number * 2
    Next I
Else
    For I = 1 To 1019 - Order
        number = number / 2
    Next I
End If

'Коррекция знака числа
   If SignOfNumber < 0 Then
      number = -number
   End If
GetDouble = number
End Function

[GSerg]

Чё происходит вообще?..
Оператор Get берёт из файла данные любого типа. Это первое.

Второе.
Если очень хочется из отдельных байтов складывать float'ы, то

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

private type bytes
  b1 as byte
  b2 as byte
  b3 as byte
  b4 as byte
end type

private type float
  f as single
end type

sub asdf
  dim b as bytes, f as float
 
  b.b1=1
  b.b2=2
  b.b3=3
  b.b4=4

  lset f=b

  msgbox f.f
end sub

[eagle-dwarf]

маненько с опозданием
Get не все хватает, попробуй-ка им захватить подряд несколько типов данных (разных) - ругаться будет. Шумит что ему неизвестен такой пользовательский тип данных.
А твой вариант складывания не пойдет - так как складывает значения байтов, - то есть подходит только для переменных long и integer и то только в том случае если они имеют положительные значения.