Как пользоваться отладчиком 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы