eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: PEvgen (+2 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

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

Ранг: 241.7 (наставник)
Статус: Участник

Создано: 14 февраля 2014 23:53 New!
Цитата · Личное сообщение · #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

Ранг: 241.7 (наставник)
Статус: Участник

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

Isaev пишет:
вебархив не отзеркалил?

форум, на котором описывались опкоды - нет


Ранг: 1011.0 (!!!!)
Статус: Участник

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

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

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

Ранг: 456.3 (мудрец)
Статус: Участник
Android Reverser

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

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

не все такие IDA-маньяки, как ты


Ранг: 630.2 (!)
Статус: Участник
Автор VB Decompiler

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

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

{ Атач доступен только для участников форума } - lite_pcode.txt

Ранг: 42.4 (посетитель)
Статус: Участник

Создано: 17 февраля 2014 20:19 New!
Цитата · Личное сообщение · #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


Ранг: 630.2 (!)
Статус: Участник
Автор VB Decompiler

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

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

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


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


Ранг: 1011.0 (!!!!)
Статус: Участник

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

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

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

| Сообщение посчитали полезным: GPcH, DrVB_5_6

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

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS