Сейчас на форуме: Magister Yoda, vasilevradislav (+5 невидимых)

 eXeL@B —› Крэки, обсуждения —› Мозговыносящий пикод в VB
<< . 1 . 2 .
Посл.ответ Сообщение

Ранг: 262.5 (наставник), 337thx
Активность: 0.34↘0.25
Статус: Участник

 Создано: 14 февраля 2014 23:53
· Личное сообщение · #1

Всем привет! Пытаюсь отреверсить софт в пикоде, кто-нибудь разбирающийся в VB может помочь осознать логику?
Code:
  1. Private Sub Command1_Click() '9B9DE0
  2.   'Data Table: 42226C
  3.   Dim var_88 As Variant
  4.               If (Len(Me.Text1.Text) < &HA) Then
  5.   loc_9B9A0F:   Exit Sub
  6.               End If
  7.   loc_9B9A17: Proc_0_79_9FB51C(0)
  8.               If (Ucase(CVar(Me.Text1)) = CVar(MemVar_B4E248)) Then
  9.   loc_9B9A46:   Proc_0_82_969EDC()
  10.   loc_9B9A4D:   Proc_0_83_932B28()
  11.   loc_9B9A54:   On Error Resume Next
  12.   loc_9B9A69:   h&#255;
  13. h4.Text1.Unload MemVar_B4E498
  14.   loc_9B9A7E:   Set var_88 = MemVar_B4E434.nasilsale
  15.   loc_9B9A84:   Form1.nasilsale.Visible = False
  16.   loc_9B9A9A:   Me.Text1.Visible = False
  17.   loc_9B9AB0:   Me.Command1.Visible = False
  18.   loc_9B9AD3:   Me.Label2(3).Visible = False
  19.   loc_9B9AFA:   Me.Label2(3).Visible = False
  20.   loc_9B9B41:   Me.Label1(6).Caption = Me.Label1(6).Tag
  21.   loc_9B9B59:   var_E0 = "LISANS NUMARASI :"
  22.                 If (Proc_0_7_8B057C("VRE") = &HFF) Then
  23.   loc_9B9B83:     Me.Text2.Visible = False
  24.   loc_9B9B99:     Me.Command3.Visible = False
  25.   loc_9B9BBC:     Me.Label2(0).Visible = False
  26.   loc_9B9C03:     Me.Label1(5).Caption = Me.Label1(5).Tag
  27.   loc_9B9C19:   Else
  28.   loc_9B9C29:     Me.Text2.Visible = True
  29.   loc_9B9C3F:     Me.Command3.Visible = True
  30.   loc_9B9C62:     Me.Label2(0).Visible = True
  31.   loc_9B9C8A:     Me.Label1(5).Caption = var_E0
  32.                 End If
  33.                 If (Proc_0_7_8B057C("VBC") = &HFF) Then
  34.   loc_9B9CBF:     Me.Text3.Visible = False
  35.   loc_9B9CD5:     Me.Command4.Visible = False
  36.   loc_9B9CF8:     Me.Label2(1).Visible = False
  37.   loc_9B9D3F:     Me.Label1(7).Caption = Me.Label1(7).Tag
  38.   loc_9B9D55:   Else
  39.   loc_9B9D65:     Me.Text3.Visible = True
  40.   loc_9B9D7B:     Me.Command4.Visible = True
  41.   loc_9B9D9E:     Me.Label2(1).Visible = True
  42.   loc_9B9DC6:     Me.Label1(7).Caption = var_E0
  43.                 End If
  44.   loc_9B9DD6:   Proc_0_97_978CB0()
  45.               End If
  46.   loc_9B9DDF: Exit Sub
  47. End Sub

Ранг: 262.5 (наставник), 337thx
Активность: 0.34↘0.25
Статус: Участник

 Создано: 17 февраля 2014 13:03
· Личное сообщение · #2

Isaev пишет:
вебархив не отзеркалил?
форум, на котором описывались опкоды - нет




Ранг: 1053.6 (!!!!), 1078thx
Активность: 1.06↘0.81
Статус: Участник

 Создано: 17 февраля 2014 13:08 · Поправил: reversecode
· Личное сообщение · #3

MS$ не предоставляет pdb для бейсиковской dll в котором можно было бы вытянуть все оригианал функции и возможно все данные по опкодам?

уже нашел, 2 мбайта
вообще не понимаю в чем проблема ее отреверсить если кому то нужно было
--> Link <--



Ранг: 456.3 (мудрец), 340thx
Активность: 0.28↘0.02
Статус: Участник
Android Reverser

 Создано: 17 февраля 2014 15:08
· Личное сообщение · #4

reversecode пишет:
вообще не понимаю в чем проблема ее отреверсить если кому то нужно было
не все такие IDA-маньяки, как ты

-----
SaNX


Ранг: 631.1 (!), 62thx
Активность: 0.37↘0.01
Статус: Участник
Автор VB Decompiler

 Создано: 17 февраля 2014 20:14
· Личное сообщение · #5

Прилагаю свой набор опкодов используемый в Lite версии декомпилятора. Он немного отличается от публичного некоторыми фиксами. Возможно кому-либо будет полезен. Как его читать я помнится описывал в своей статье по пикоду vb6.

4591_17.02.2014_EXELAB.rU.tgz - lite_pcode.txt

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

Ранг: 58.3 (постоянный), 50thx
Активность: 0.04↗0.08
Статус: Участник

 Создано: 17 февраля 2014 20:19
· Личное сообщение · #6

GPcH

Вообще-то правильно должно быть так.

FEA6 -1 LateMemNamedCall
FEA7 -1 LateMemNamedCallLdVar
FEA8 -1 LateMemNamedCallSt
FEA9 -1 LateMemNamedStAd
FEAA -1 LateIdNamedCall
FEAB -1 LateIdNamedCallLdVar
FEAC -1 LateIdNamedCallSt
FEAD -1 LateIdNamedStAd




Ранг: 631.1 (!), 62thx
Активность: 0.37↘0.01
Статус: Участник
Автор VB Decompiler

 Создано: 17 февраля 2014 20:22 · Поправил: GPcH
· Личное сообщение · #7

reversecode
Херасе... Где откопал признавайся? Я в свое время где только не искал, даже близкого ничего не было. Каждую функцию приходилось часами восстанавливать чтобы понять логику. Хотя судя по дате файла это что-то новенькое.

DrVB_5_6 пишет:
Вообще-то правильно должно быть так.

Дык говорю же - из Lite версии. Я его с 2004 года правил раз 10 не более. Там багов хватает. Выложил потому что сайт с оригиналом накрылся и инфу вообще взять негде.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!


Ранг: 1053.6 (!!!!), 1078thx
Активность: 1.06↘0.81
Статус: Участник

 Создано: 17 февраля 2014 20:33 · Поправил: reversecode
· Личное сообщение · #8

как обычно в гугле забил и нашел, сначала правда pdb искал, нашел парочку по 2 мегабайта, но там инфы маловато было

потом вспомнил что pdb это новый формат, и там мало инфы может быть, и поискал старый dbg
по нему и нашел ссылку --> Link <--

| Сообщение посчитали полезным: GPcH, DrVB_5_6
<< . 1 . 2 .
 eXeL@B —› Крэки, обсуждения —› Мозговыносящий пикод в VB
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати