Не отображаются нули

[insite2012]

Приветствую всех.
Подскажите, как решить такую проблему:
Есть bin файл, загоняю его в массив байтов. Нужно вывести в строку последовательно несколько адресов. Но дело в том, что нужно вывести именно так, как они отображаются в Hex-редакторе. И вот тут и возникает проблема. Пока в данных по адресам идут двузначные числа, все в порядке. А вот если идет запись вида 0х, то отображается только второе число, ноль не отображается.
Использую вот такую конструкцию. Что я делаю не так?

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

        Dim By() As Byte= My.Computer.FileSystem.ReadAllBytes(OpenFileDialog.FileName)
        Dim start1 As Long = &H7D0
        Dim end1 As Long = &H7D5
        Dim str As String = ""
        Do
            str = str & Conversion.Hex(By(start1))
            start1 = start1 + 1
        Loop While start1 <= end1
        Label1.Text = "Номер модуля " & str

[Viper]

Функции форматирования помогут тебе.
З.Ы. Еще также не помешают класс StringBuild и цикл вида For ... Next вместо Do ... Loop While.

[insite2012]

Функции форматирования помогут тебе.
З.Ы. Еще также не помешают класс StringBuild и цикл вида For ... Next вместо Do ... Loop While.

Спасибо. Если не трудно, можно чуть поподробнее...
Дело в том, что я новичок, и начал изучение VB всего-то месяц-полтора назад...

[insite2012]

В общем, решил проблему. Ввел еще одну строковую переменную и сравнение.
Вот что получилось. Может, можно и поизящнее сделать, но главное - это работает.

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

Imports System.IO
Public Class Form1
    Dim By() As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        By = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName)
        Dim start_adress As Long = &H7D0
        Dim end_adress As Long = &H7D5
        Dim str As String = ""
        Dim nomer As String = ""
        Do
            str = Conversion.Hex(By(start_adress))
            If str <= &HF Then str = &H0 & str
            nomer = nomer & str
            start_adress = start_adress + &H1
        Loop While start_adress <= end_adress
        Debug.WriteLine(nomer)
    End Sub
End Class


[Qwertiy]

Бррр... Используй Integer, StringBuilder, For, ToString и не обязательно читать весь файл если нужен только кусок.

[insite2012]

Бррр... Используй Integer, StringBuilder, For, ToString и не обязательно читать весь файл если нужен только кусок.

Ну да, только я новичок же еще...
Буду очень благодарен, если покажете, как проще сделать то же самое.
А файл нужен весь, мне к нему еще по нескольким адресам обращаться, там еще данные есть, что я буду выводить.

[Qwertiy]

Ну да, только я новичок же еще...
Буду очень благодарен, если покажете, как проще сделать то же самое.

Вечером напишу. Версию VS напиши только.

А файл нужен весь, мне к нему еще по нескольким адресам обращаться, там еще данные есть, что я буду выводить.

Ok. Но на будущее учти. И большие файлы в любом случае держать в памяти не стоит.

[insite2012]

Спасибо. Работаю с версией VS2010

[insite2012]

И еще вопрос, если можно...
Пишу программу, там присутствует Таб Контрол с тремя вкладками. Есть ли возможность в VB выделить функции третей вкладки в отдельный модуль или dll, с таким расчетом. чтобы без этой библиотеки две оставшиеся вкладки работали корректно, а при добавлении ее становилась активной и третья вкладка.

[Qwertiy]

Пишу программу, там присутствует Таб Контрол с тремя вкладками. Есть ли возможность в VB выделить функции третей вкладки в отдельный модуль или dll, с таким расчетом. чтобы без этой библиотеки две оставшиеся вкладки работали корректно, а при добавлении ее становилась активной и третья вкладка.

Есть. А зачем тебе это надо?

[insite2012]

Есть. А зачем тебе это надо?

Ну как зачем)))
Без этой библиотеки программа полуфункциональна, а вот с ней - полностью. Для того и надо. Своеобразная защита.

[Qwertiy]

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

If str <= &HF Then str = &H0 & str

Неверно. Падает, если число в шестнадцатеричной записи содержит буквы. И ещё с охапкой других чисел работает неверно.

Буду очень благодарен, если покажете, как проще сделать то же самое.

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

Imports System.Text

Module All

Public Function SubarrayInHex(ByVal A As Byte(), ByVal L As Integer, ByVal R As Integer) As String
  Dim Res As New StringBuilder((R - L + 1) << 1)

  For Q As Integer = L To R
    Res.Append(A(Q).ToString("X2"))
  Next Q

  Return Res.ToString()
End Function

Public Sub Main()
  Dim A(4095) As Byte, Res As String

  Call (New Random).NextBytes(A)
  A(2000) = 10
  Res = SubarrayInHex(A, 2000, 2005)

  MsgBox(Res, , Res.Length)
End Sub

End Module

Кстати, существуют операторы +=, &= и другие - для большинства операций.

Ну как зачем)))
Без этой библиотеки программа полуфункциональна, а вот с ней - полностью. Для того и надо. Своеобразная защита.

А смысл, если всё решается копированием dll-файла?

[insite2012]

Спасибо, проверил, все отлично работает) Буду использовать в своей программе. Функция что надо.
А по dll - ведь в основной программе я же могу сделать ссылку на нее, но с другим именем? Т.е. переименовать саму dll?

[Qwertiy]

А по dll - ведь в основной программе я же могу сделать ссылку на нее, но с другим именем? Т.е. переименовать саму dll?

Не понимаю идею.

[insite2012]

Идея очень проста. Я в тексте программы прописываю имя dll. И саму dll так называю.
Отправляю человеку. А у другого есть программа, но с другим именем dll внутри (или вообще без него). Естественно, его программа с этой dll работать уже не будет, так ведь?

[Qwertiy]

А что помешает второму взять dll у первого и пользоваться?
И что ты имеешь в виду под другим именем?

[insite2012]

А что помешает второму взять dll у первого и пользоваться?
И что ты имеешь в виду под другим именем?

Ну то, что помешает, это все можно сделать... К примеру, подписывание внутри основного файла и внутри самой dll, кому они принадлежат...
А имя - так любое, какое возможно... ну к примеру, набор цифр. точка, три цифры.
Такое возможно осуществить на практике?
Просто, как я говорил, опыта программирования чуть меньше чем никакого, занимаюсь сам, по учебникам.

[Qwertiy]

Ну то, что помешает, это все можно сделать... К примеру, подписывание внутри основного файла и внутри самой dll, кому они принадлежат...
А имя - так любое, какое возможно... ну к примеру, набор цифр. точка, три цифры.
Такое возможно осуществить на практике?
Просто, как я говорил, опыта программирования чуть меньше чем никакого, занимаюсь сам, по учебникам.

Сделать можно всё что угодно. Я так понимаю, твой метод подразумевает отдельную компиляцию для каждого человека? Для этого нужно вынести этот код в отдельный проект (солюшн может содержать несколько проектов, но если у тебя express-студия, то надо сначала руками подправить sln-файл) и использовать рефлексию для его загрузки.
Для информации. Любое обращение к файлам можно отследить. И любую .NET программу можно легко декомпилировать до уровня близкого к исходному коду. А если не использовать какую-нибудь обфускацию, то единственными запутывающими факторами будут лямбда-функции и кривость твоего кода

И вообще, мне непонятно, зачем это может быть надо начинающему программисту.

[insite2012]

Студия у меня Ultimate. И обфускатор есть, этот трюк я уже знаю))) Да и .NET Reflector тоже испытывал, так что про легкость декомпилирования .NET в курсе)
Мне главное понять, как это использовать на практике. Ну а по начинающему - я же не всегда им буду... Будут проекты (они уже в ближайших планах), которые мне бы хотелось закрыть. Они хоть и простые, но в определенных кругах будут пользоваться спросом. И у меня нет желания раскидывать полнофункциональный продукт направо и налево.