Как пользоваться отладчиком OllyDbg на файлах-ЕХЕ для Visual Basic 6.0? - VB

Формулировка задачи:

Добрый вечер!

Прошу научить пользоваться отладчиком OllyDbg. Имею: Windows 7, 32 Bit. Скачал почти все книги Касперски — жуть (!), без практики непонятно.

Хочу освоить самые простые приёмы

Интересует возможность получения исходного кода файла-ЕХЕ для Visual Basic 6.0

Подскажите, пожалуйста —

насколько правильно?

начать со следующих скачиваний: Download http://www.ollydbg.de/ Download OllyDbg 1.10 (final version) Download Plugin Development Kit 1.10 (requires OllyDbg 1.10) Download free source of command line plugin (requires OllyDbg 1.08 or 1.10 and Borland's BCB 5.0)

Решение задачи: «Как пользоваться отладчиком OllyDbg на файлах-ЕХЕ для Visual Basic 6.0?»

textual
                            Листинг программы 
                        
 
                            
                        
Structure VALUE
  val.l
  used.b
EndStructure
 
values_string.s = "1,5,5,7,9,4,13,16"
 
values_count = CountString(values_string, ",")
 
Dim values.VALUE(values_count)
 
 
For i = 0 To values_count
  values(i)\val = Val(StringField(values_string, i+1, ","))
Next
 
SortStructuredArray(values(), #PB_Sort_Descending, OffsetOf(VALUE\val), #PB_Long)
 
first_value = 0
 
comb_number = 1
 
Repeat
  If first_value > values_count
    Break
  EndIf
  
  NewList list1()
  NewList list2()
  
  result1 = 0
  For i = first_value To values_count
    If result1 + values(i)\val <= 30
      result1 + values(i)\val
      AddElement(list1())
      list1() = values(i)\val
      values(i)\used = #True
    Else
      Break
    EndIf
  Next
  
  result2 = 0 
  For i = 0 To values_count
    If values(i)\used = #False
      If result2 + values(i)\val <= 30
        result2 + values(i)\val
        AddElement(list2())
        list2() = values(i)\val
      Else
        Break
      EndIf
    EndIf
  Next
  
  If result2 <= 30
    Debug "Комбинация " + Str(comb_number)
    Debug "  Список 1"
    ost = 30
    ForEach list1()
      Debug "   " + Str(list1())
      ost - list1()
    Next
    Debug "   Остаток = " + Str(ost)
    Debug "Список 2"
    ost = 30
    ForEach list2()
      Debug "   " + Str(list2())
      ost - list2()
    Next
    Debug "   Остаток = " + Str(ost)
    Debug "---------------------------"
  EndIf
  
  FreeList(list1())
  FreeList(list2())
  
  For i = 0 To values_count
    values(i)\used = #False
  Next
  
  first_value + 1
  comb_number + 1
  
ForEver