VB Decompiler by GPcH

- forms decompiling;
- p-code decompiling;
- native code only addresses decompiling;

Free lite version of VB Decompiler:
vbdecompiler.dotfix.net/files/lite.rar

For comments:
vbdecompiler.dotfix.net

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

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

такс... собственно вчера мы пытались по этому листингу найти пасс к KeyGenMe2 и _неполучилось_ Поэтому Ара попросил выложить сорцы кейгенми http://www.exelab.ru/f/action=vthread&forum=3&topic=3809 вместо сорцев получили натив ВБ, ну и ладно...
То что получилось из натив:

ID = 705547
Login = Mario
Password = ?

(CDbl(ID) - CDbl(Asc(первый символ логина)) + CDbl(Asc(второй символ логина)) = 705567 = A

(CDbl(ID) - CDbl(Asc(первый символ логина)) + CDbl(Asc(второй символ логина))) * CDbl(Len(Login))
= A * 5 = 705567 * 5 == 3527835 == B

(CDbl(ID) - CDbl(Asc(последний символ логина)) + CDbl(Asc(предпоследний символ логина)) = 705541 = C

Password = B*C = 2489032233735


и то что выдал декомпилер

loc_40966C: If (arg_3E = CDbl(((CDbl(var_8C) * CDbl(Len(var_CC))) * ((CDbl(var_D4) - CDbl(arg_3C)) + CDbl(arg_3E))))) Then '409686


насколько я вижу это не одно и тоже =) ещё были найдены баги со значками "больше/меньше".

PS надеюсь после сессии GPcH исправит декомпиль ;)

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

а бага в том что var_8C не определена как (CDbl(ID) - CDbl(Asc(первый символ логина)) + CDbl(Asc(второй символ логина)), тоесть в листинге я не видел чтобы она была так определена. В остальном всё вполне правдоподобно и это лучшее я видел из декомпилеров VB пкода.

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

SaveRTF module for VB Decompiler
by Jupiter

Purpose:
Saving active content from VB Decompiler (alias VB Dec) RichEdit control to RTF (Rich Text Format) document. Text formatting and highlighting preserved, text is saved directly from RichEdit control and remains untouched.

[RUS]:
Модуль SaveRTF для программы VB Decompiler
Автор: Jupiter

Назначение:
Сохранение активного текста из основного окна VB Decompiler (далее VB Dec) в файл формата RTF (Rich Text Format). При этом полностью сохраняется форматирование текста и подсветка синтаксиса (если есть), т.к. в текст не вносится никаких изменений.




82aa_VBDec.Module.SaveRTF.rar.zip

-----
EnJoy!

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

Mario555 пишет:
надеюсь после сессии GPcH исправит декомпиль ;)
Как появится время обязательно все проверю

Jupiter пишет:
SaveRTF module for VB Decompiler
Во, уже плагины начали писать кул Надо на сайте такой раздел сделать... как появится время сделаю на сайте размер плагинов.
Кстати в справке прочитал про сорцы, которых в архиве нет

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

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

GPcH
мыло проверь!

кста, на форуме по VB Dec явно не хватает раздела для плагинов

-----
EnJoy!

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

Mario555
это лучшее я видел из декомпилеров VB пкода

ну так кроме GPcH никто p-code в исходники и не декомпилит...., кроме одного приватного проекта )

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

loc_405B3F: var_88 = Control_ID_780
loc_405B45: var_8C = TextBox.Text
loc_405B59: var_90 = Control_ID_776
loc_405B5F: var_94 = TextBox.Text
loc_405B7B: If ((var_8C = "") Or (var_94 = "")) Then '405BB2

в последней строчке можно подумать что var_8C и var_94 одно и тоже (см. loc_405B45 и loc_405B5F), но таки разные:


.00405B38/0000: If .Text1.Text = "" Or .Text2.Text = "" Then




loc_405CB9: var_90 = Control_ID_780
loc_405CBF: var_94 = TextBox.Text
loc_405CCC: var_B4 = CVar(var_94) 'String
loc_405CD2: var_D4 = Left(var_B4, 1)
loc_405CDA: var_118 = CStr(var_D4)
loc_405CE3: var_12E = Asc(var_118)
loc_405CED: var_120 = Control_ID_780
loc_405CF3: var_11C = TextBox.Text
loc_405D00: var_F4 = CVar(var_11C) 'String
loc_405D06: var_114 = Right(var_F4, 1)
loc_405D0E: var_124 = CStr(var_114)
loc_405D17: var_130 = Asc(var_124)
loc_405D21: var_128 = Control_ID_780
loc_405D27: var_12C = TextBox.Text
loc_405D33: var_88 = Control_ID_776
loc_405D39: var_8C = TextBox.Text
loc_405D73: If (var_130 = CDbl((CDbl(var_8C) * Len(var_12C)))) Then '405E00

это все сворачивается в три строчки, при этом, как было уже замечено, не теряя умножения первого символа на последний:


.00405CB2/017A: vFED2=Val(Left(vFF2C, .Text1.Text, 1))
.00405CE6/01AE: vFED0=Val(Rigth(vFEEC, .Text1.Text, 1))
.00405D1A/01E2: If CDbl(.Text2.Text) = vFED2 * vFED0 * Len(.Text1.Text) Then


и еще немного на тему улучшения читабельности:


loc_405E31: ' Referenced from: 405CAF
loc_405E31: ' Referenced from: 405DFD
loc_405E31: GoTo loc_40600E
loc_405E34: End If

тут вложенные if'ы закрылись


.00405E31/02F9: End If
.00405E31/02F9: End If



[/t]
loc_405ADB: GoTo loc_405ADF
loc_405ADE: End If
loc_405ADE: Exit Sub
loc_405ADF: End If
loc_405ADF: ' Referenced from: 405ADB
loc_405ADF: Exit Sub
[/t]
а тут Else симпатично смотрится:


Else
Exit Sub
End If
End If



Mario555:
были найдены баги со значками "больше/меньше"

место покажи )

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

sen пишет:
место покажи )

хотя бы здесь:
loc_409227: var_8C = TextBox.Text
loc_40923C: If (Len(var_8C) > 4) Then '409415

или здесь
loc_4094AF: var_8C = TextBox.Text
loc_4094C4: If (Len(var_8C) > 4) Then '40969D

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

Asterix
loc_40923C:... loc_4094C4:...
в том f014_KeygenMe.rar.zip что я с &topic=3809 забирал у меня и смещений в полученном исходнике таких нет, и сравнений всего-то 5 штук:


loc_405BD4: If (Len(var_8C) > 2) Then '406011

loc_405942: If ((Asc(var_B0) >= 192) Or (Asc(var_DC) >= 192)) Then '40598E

loc_405A92: If ((Asc(var_B0) >= 192) Or (Asc(var_DC) >= 192)) Then '405ADE


мы явно смотрим в разные п-коды

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

sen
http://www.exelab.ru/f/action=vthread&forum=1&topic=2046&p age=5#28
http://www.exelab.ru/f/files/7106_KeyGenMe2.bas.zip

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

Some news: public.int3.net/share/vbdec22lite.jpg

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

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

sen
Уговорил ты меня Всю ночь парилсяно написал двухпроходный двиг. Вот пример сворачивания кода (декомпилял кейгенми биоворма - у тебя он есть):


loc_404548: var_C4 = 100
loc_40454E: var_B4 = 100
loc_404554: var_A4 = 0
loc_404565: Me.Scale(0,0)-(100,100)
loc_404575: Me.Forecolor = 255
loc_404589: For var_CC = CDbl(0) To CDbl(0): arg_34 = var_CC 'Single
loc_40459F: var_F0 = Rnd(Date)
loc_4045CF: Me.PSet((Rnd(Date) * CDbl(100)),(Rnd(Date) * CDbl(100))), 0
loc_4045E1: Next var_CC 'Single
loc_4045E7: Me.Cls
loc_40460E: If (Len(TextBox_780.Text) > 6) Then '404772
loc_40462C: arg_38 = CVar(TextBox_776.Text)
loc_404659: proc_40520C(CVar(TextBox_780.Text), 0, arg_48, arg_38, var_F4, Rnd(Date), CDbl(0))
loc_404676: If CBool(arg_38 <> CVar(arg_48)) Then '4046E5
loc_404682: arg_4C = CDbl(255)
loc_4046C4: MsgBox(CVar("Hey" & TextBox_780.Text & "! it" & Chr(39) & "s a BAD C0DE >)" & vbCrLf & "Try again!"), 16, Date, var_118, var_128)
loc_4046D7: var_DC = "": var_EC = "": var_118 = ""
loc_4046E2: GoTo loc_40474E
loc_4046E5: End If
loc_4046EE: arg_4C = CDbl(65280)
loc_404730: MsgBox(CVar("Hey" & TextBox_780.Text & "! it" & Chr(39) & "s a VALID C0DE!! <(" & vbCrLf & "Congratulations!"), 64, Date, var_118, var_128)
loc_404743: var_DC = "": var_EC = "": var_118 = ""
loc_40474E: ' Referenced from: 4046E2
loc_404756: Me.Backcolor = CLng(arg_4C)
loc_404767: Timer_764.Enabled = 255
loc_40476F: GoTo loc_40479B
loc_404772: End If
loc_40478B: MsgBox("Len(Name) <= 6! aagrrrhhh!!!", 0, Date, var_118, var_128)
loc_40479B: ' Referenced from: 40476F
loc_40479B: Exit Sub
loc_40479B: Exit Sub


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

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

GPcH пишет:
Some news: public.int3.net/share/vbdec22lite.jpg
Круто! Обязательно надо протестить

-----
DREAMS CALL US

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

Asterix
все равно не вижу, стоит правильный знак '>'
.00409210/0024: If Len(.Login.Text) > 4 Then

GPcH
надеюсь что после этого скорость еще в 2 раза не упала )

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

sen пишет:
все равно не вижу, стоит правильный знак '>'
.00409210/0024: If Len(.Login.Text) > 4 Then
Знак-то стоит правильный, но...
В оригинале условие юзается примерно так:

If Len(Login.Text)>4 then
...bla...
...bla...
...bla...
Else
Exit Sub

Декомпиль же наоборот всё делает.

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

Asterix

.00409210/0024: If Len(.Login.Text) > 4 Then
...
.00409412/0226: Else
.00409415/0229: Exit Sub
.00409415/0229: EndIf
.00409416/022A: Exit Sub


нормально он делает, логика та же осталась, блок выполняется при len() > 4
else нет, но в данном случае это не наказуемо, а в остальных GPcH cам проверит, сессия поди кончилась )


loc_40923C: If (Len(var_8C) > 4) Then '409415
...
loc_409412: GoTo loc_409416
loc_409415: End If
loc_409415: Exit Sub
loc_409416: ' Referenced from: 409412
loc_409416: Exit Sub


на loc_40923C ведь не стоит If (Len(var_8C) > 4) Then Goto loc_409415

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

sen пишет:
на loc_40923C ведь не стоит If (Len(var_8C) > 4) Then Goto loc_409415

точно, меня смутило рядом стоящее с Then '409415 что я даже не обратил внимание на отсутствие
GoTo

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

sen пишет:
а в остальных GPcH cам проверит, сессия поди кончилась )
Нифига, еще 2 экзамена... 2 уже сдал... но я все равно параллельно пишу декомпиль.

sen пишет:
надеюсь что после этого скорость еще в 2 раза не упала )
Хз. Но то что упала это 100%

PS: Насчет кейгенми буду разбираться Тока двиг свертывания строчек кода допишу

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

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

Вот как кегенми разобрала последняя на данный момент версия декомпиля.
Выкладываю только код, без форм.
Просьба отписать как оно. Баги есть конечно, например пустота до знака равно в одном из сравнений), но
я прошу поглядеть общую картину

Аттач криво прицепился чето, запакую ка я в архив файл может так приаттачится

В общем аттачи похоже перестали работать... вот файл:

public.int3.net/share/KeyGenMe2.rar

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

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

Новости! Новая лайт версия! Прогресс можно заметить сразу:



www.vb-decompiler.org/image/lite_22.jpg

Вот где можно сие скачать:
www.vb-decompiler.org/files/lite.rar

Жду комменты

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

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

Что-то поломанная ссылка. И на картинку и на архив

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

Hans Cristian пишет:
Что-то поломанная ссылка. И на картинку и на архив
После падения HDD на сервере многое не сохранилось.
Вот картинки новые:
www.vb-decompiler.org/image/api.jpg
www.vb-decompiler.org/image/native_code.jpg
www.vb-decompiler.org/image/pcode.jpg
www.vb-decompiler.org/image/pcode_api.jpg
www.vb-decompiler.org/image/str_native.jpg
www.vb-decompiler.org/image/str_pcode.jpg

Лайт версия на данный момент готовится к выпуску
Вот ее возможности: www.vb-decompiler.org/p=Products&lang=rus

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

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

Ок.
Слил версию 2.1 из этого треда, запустил, натравил на прогу (KeyGenMe от SeQuick), когда доходит до Parse string references вываливается с ошибкой Run-time error '91': Object variable or With block variable not set. Стоит VB6, правда без сервис-паков.
Да и в опции когда пробую войти - Run-time error '429': ActiveX component can't create object

Чего не хватает?

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

Hans Cristian пишет:
Чего не хватает?
Было выпущено насколько я помню несколько модификаций версии 2.1... какой глюк в ней и из-за чего - не знаю так как с момента ее выхода я много чего переделал и уже выходило ряд бета версий 2.2. Как выложу 2.2, тогда будут приниматься багрепорты а пока 2.1 это уже по моим оценкам крайне устаревшая версия.

Из рекомендаций попробуй зарегистрировать все OCX файлы, что в папке с программой командой regsvr32.exe имя_dll

Еще неплохо бы увидеть сам кейгенми

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

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

OCX-ов в папке не было, так что регить нечего А кейгенми - вот он:

aac8_KeygenMe.zip.zip

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

Вот весь кейгенми (ничего не сглючило):



Object: Form1
Private Function Command2__4054C8
loc_4054C4: End
loc_4054C6: Exit Sub
End Function

Private Function Abou__4057B4
loc_405791: MsgBox("KeygenMe by: SeQuick" & Chr(10) & Chr(10) & "eMail: MrMiXeR@mail.ru" & Chr(10) & Chr(10) & "ICQ: 204-404-410", 64, "KeyGenMe", var_194, var_1B4)
loc_4057B3: Exit Sub
End Function

Private Function He__4055D0
loc_4055BD: MsgBox("It" & Chr(39) & "s very easy!", 64, "KeygenMe", var_E4, var_104)
loc_4055CD: Exit Sub
End Function

Private Function Exi__405494
loc_405490: End
loc_405492: Exit Sub
End Function

Private Function Command1__405D24
loc_405825: var_88 = TextBox_764.Text
loc_40583F: var_90 = TextBox_768.Text
loc_40585B: If (var_94 Or (var_94 = "")) Then '405892
loc_40587F: MsgBox("Incorrect username or password!", 16, "Keygenme", var_F4, var_114)
loc_40588F: GoTo loc_405D22
loc_405892: End If
loc_40589F: var_88 = TextBox_764.Text
loc_4058B4: If (Len(var_8C) > 2) Then '405CF1
loc_4058C4: var_88 = TextBox_764.Text
loc_4058D6: var_90 = TextBox_764.Text
loc_4058F1: var_94 = CStr(Left(CVar(var_8C), 1))
loc_405908: var_114 = Right(CVar(var_118), 1)
loc_405934: If Not((Asc(var_94) = Asc(CStr(var_114)))) Then '405B14
loc_405944: var_88 = TextBox_768.Text
loc_40594C: var_B4 = CVar(var_8C) 'String
loc_40595B: If Not(push IsNumeric(var_B4)) Then '405992
loc_40597F: MsgBox("No access!", 16, "Keygenme", var_F4, var_114)
loc_40598F: GoTo loc_405B11
loc_405992: End If
loc_40599F: var_90 = TextBox_764.Text
loc_4059D3: var_120 = TextBox_764.Text
loc_405A07: var_128 = TextBox_764.Text
loc_405A19: var_88 = TextBox_768.Text
loc_405A53: If (CDbl(var_8C) = CDbl((CLng((Asc(CStr(Left(CVar(var_94), 1))) * Asc(CStr(Right(CVar(CStr(var_114)), 1))))) * Len(var_12C)))) Then '405AE0
loc_405A7D: var_88 = TextBox_764.Text
loc_405ABE: MsgBox("Thanks for registration!" & Chr(10) & Chr(10) & "Registered to:" & CVar(var_8C), 64, "Keygenme", var_180, var_1A0)
loc_405ADD: GoTo loc_405B11
loc_405AE0: End If
loc_405B01: MsgBox("No access!", 16, "Keygenme", Chr(10), var_114)
loc_405B11: ' Referenced from: 40598F
loc_405B11: ' Referenced from: 405ADD
loc_405B11: GoTo loc_405CEE
loc_405B14: End If
loc_405B21: var_88 = TextBox_768.Text
loc_405B29: var_B4 = CVar(var_8C) 'String
loc_405B38: If Not(push IsNumeric(var_B4)) Then '405B6F
loc_405B5C: MsgBox("No access!", 16, "Keygenme", var_F4, var_114)
loc_405B6C: GoTo loc_405CEE
loc_405B6F: End If
loc_405B7C: var_90 = TextBox_764.Text
loc_405BB0: var_120 = TextBox_764.Text
loc_405BE4: var_128 = TextBox_764.Text
loc_405BF6: var_88 = TextBox_768.Text
loc_405C30: If (CDbl(var_8C) = CDbl((CLng((Asc(CStr(Left(CVar(var_94), 1))) * Asc(CStr(Left(CVar(CStr(Left(CVar(CStr(var_114)), 1))), 1))))) * Len(var_12C)))) Then '405CBD
loc_405C5A: var_88 = TextBox_764.Text
loc_405C9B: MsgBox("Thanks for registration!" & Chr(10) & Chr(10) & "Registered to:" & CVar(var_8C), 64, "Keygenme", var_180, var_1A0)
loc_405CBA: GoTo loc_405CEE
loc_405CBD: End If
loc_405CDE: MsgBox("No access!", 16, "Keygenme", Chr(10), "Thanks for registration!" & Chr(10) & Chr(10))
loc_405CEE: ' Referenced from: 405B11
loc_405CEE: ' Referenced from: 405B6C
loc_405CEE: ' Referenced from: 405CBA
loc_405CEE: GoTo loc_405D22
loc_405CF1: End If
loc_405D12: MsgBox("Username must be longer!", 16, "Keygenme", var_F4, "Thanks for registration!" & Chr(10) & Chr(10))
loc_405D22: ' Referenced from: 40588F
loc_405D22: ' Referenced from: 405CEE
loc_405D22: Exit Sub
End Function

Private Function Command3__4056B0
loc_40568D: MsgBox("KeygenMe by: SeQuick" & Chr(10) & Chr(10) & "eMail: MrMiXeR@mail.ru" & Chr(10) & Chr(10) & "ICQ: 204-404-410", 64, "KeyGenMe", var_194, var_1B4)
loc_4056AF: Exit Sub
End Function


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

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

Хм. Спасибо, теперь бы и у меня так вышло "Будем искать" ©

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

Hans Cristian
лучше всего - обнови версию декомпилера
на других VB файлах декомпилер (твоя версия) пашет?

-----
EnJoy!

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

Гы, пост Демилича удалили Почему интересено?

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

VB Decompiler Lite 2.2 http://www.vb-decompiler.org/files/lite.rar

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

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