Помогите по взлому

DotFix Forum / Общение посетителей / Помогите по взлому

Автор	Сообщение
tolya400 Участник	Дата: 27 Апр 2008 17:39 В программе отключена функция - сохранить, как сделать, чтобы заработала. Вот код loc_004312C5: var_08 = &H401610 loc_004312D1: and eax, 00000001h loc_004312D4: var_04 = arg_08 loc_004312D7: and esi, FFFFFFFEh loc_004312DD: arg_08 = arg_08 loc_004312E0: call ecx+04h(arg_08, edi, esi, ebx, fs:[00h], MSVBVM60.DLL.__vbaExceptHandler, ebp) loc_00431334: var_000000B4 = &H40C948 loc_00431348: call MSVBVM60.DLL.__vbaVarCat("", 8, Date) loc_00431356: call MSVBVM60.DLL.__vbaVarMove loc_00431372: call edx+0000030Ch(arg_08) loc_00431383: var_2C = IsSet(edx+0000030Ch(arg_08)) loc_00431393: call ecx+000000A4h(var_2C, 0040C86Ch) loc_0043139D: If ecx+000000A4h(var_2C, 0040C86Ch) < edi Then loc_004313B1: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, 0040C86Ch), var_2C, 0040C870h, 000000A4h) loc_004313B7: End If loc_004313C0: call MSVBVM60.DLL.__vbaFreeObj loc_004313C5: call eax+00000310h(arg_08) loc_004313D0: var_2C = IsSet(eax+00000310h(arg_08)) loc_004313E0: call edx+000000A4h(eax+00000310h(arg_08), 0040C86Ch) loc_004313EA: If edx+000000A4h(eax+00000310h(arg_08), 0040C86Ch) < 0 Then loc_004313FE: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000A4h(eax+00000310h(arg_08), 0040C86Ch), "", 0040C870h, 000000A4h) loc_00431404: End If loc_00431407: call MSVBVM60.DLL.__vbaFreeObj loc_0043140C: call edx+00000318h(arg_08) loc_00431417: var_2C = IsSet(edx+00000318h(arg_08)) loc_00431427: call ecx+000000A4h(var_2C, "http://") loc_00431431: If ecx+000000A4h(var_2C, "http://") < 0 Then loc_00431445: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, "http://"), var_2C, 0040C870h, 000000A4h) loc_0043144B: End If loc_0043144E: call MSVBVM60.DLL.__vbaFreeObj loc_00431453: call eax+00000314h(arg_08) loc_0043145E: var_2C = IsSet(eax+00000314h(arg_08)) loc_0043146E: call edx+000000A4h(eax+00000314h(arg_08), 0040C86Ch) loc_00431478: If edx+000000A4h(eax+00000314h(arg_08), 0040C86Ch) < 0 Then loc_0043148C: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000A4h(eax+00000314h(arg_08), 0040C86Ch), "", 0040C870h, 000000A4h) loc_00431492: End If loc_00431495: call MSVBVM60.DLL.__vbaFreeObj loc_0043149A: call edx+0000032Ch(arg_08) loc_004314A5: var_2C = IsSet(edx+0000032Ch(arg_08)) loc_004314B5: call ecx+000000A4h(var_2C, 0040C86Ch) loc_004314BF: If ecx+000000A4h(var_2C, 0040C86Ch) < 0 Then loc_004314D3: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, 0040C86Ch), var_2C, 0040C870h, 000000A4h) loc_004314D9: End If loc_004314DC: call MSVBVM60.DLL.__vbaFreeObj loc_004314E1: call eax+00000328h(arg_08) loc_004314EC: var_2C = IsSet(eax+00000328h(arg_08)) loc_004314FC: call edx+000000A4h(eax+00000328h(arg_08), 0040C86Ch) loc_00431506: If edx+000000A4h(eax+00000328h(arg_08), 0040C86Ch) < 0 Then loc_0043151A: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000A4h(eax+00000328h(arg_08), 0040C86Ch), "", 0040C870h, 000000A4h) loc_00431520: End If loc_00431523: call MSVBVM60.DLL.__vbaFreeObj loc_00431528: call edx+00000324h(arg_08) loc_00431533: var_2C = IsSet(edx+00000324h(arg_08)) loc_00431543: call ecx+000000A4h(var_2C, 0040C86Ch) loc_0043154D: If ecx+000000A4h(var_2C, 0040C86Ch) < 0 Then loc_00431561: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, 0040C86Ch), var_2C, 0040C870h, 000000A4h) loc_00431567: End If loc_0043156A: call MSVBVM60.DLL.__vbaFreeObj loc_0043156F: call eax+00000304h(arg_08) loc_0043157A: var_2C = IsSet(eax+00000304h(arg_08)) loc_00431587: call edx+000000E4h(eax+00000304h(arg_08), 00000000h) loc_00431591: If edx+000000E4h(eax+00000304h(arg_08), 00000000h) < 0 Then loc_004315A5: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000E4h(eax+00000304h(arg_08), 00000000h), "", 0040C690h, 000000E4h) loc_004315AB: End If loc_004315AE: call MSVBVM60.DLL.__vbaFreeObj loc_004315B3: call edx+00000300h(arg_08) loc_004315BE: var_2C = IsSet(edx+00000300h(arg_08)) loc_004315CB: call ecx+000000E4h(var_2C, 00000000h) loc_004315D5: If ecx+000000E4h(var_2C, 00000000h) < 0 Then loc_004315E9: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000E4h(var_2C, 00000000h), var_2C, 0040C690h, 000000E4h) loc_004315EF: End If loc_004315F2: call MSVBVM60.DLL.__vbaFreeObj loc_004315F7: call eax+00000320h(arg_08) loc_00431602: var_2C = IsSet(eax+00000320h(arg_08)) loc_00431612: call edx+000000A4h(eax+00000320h(arg_08), 0040C86Ch) loc_0043161C: If edx+000000A4h(eax+00000320h(arg_08), 0040C86Ch) < 0 Then loc_00431630: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000A4h(eax+00000320h(arg_08), 0040C86Ch), "", 0040C870h, 000000A4h) loc_00431636: End If loc_00431639: call MSVBVM60.DLL.__vbaFreeObj loc_0043163E: call edx+0000031Ch(arg_08) loc_00431649: var_2C = IsSet(edx+0000031Ch(arg_08)) loc_00431659: call ecx+000000A4h(var_2C, 0040C86Ch) loc_00431663: If ecx+000000A4h(var_2C, 0040C86Ch) < 0 Then loc_00431677: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, 0040C86Ch), var_2C, 0040C870h, 000000A4h) loc_0043167D: End If loc_00431680: call MSVBVM60.DLL.__vbaFreeObj loc_00431685: call eax+00000414h(arg_08) loc_00431690: var_2C = IsSet(eax+00000414h(arg_08)) loc_0043169B: call edx+000001E8h(eax+00000414h(arg_08)) loc_004316A5: If edx+000001E8h(eax+00000414h(arg_08)) < 0 Then loc_004316B9: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000001E8h(eax+00000414h(arg_08)) , "", 0040C558h, 000001E8h) loc_004316BF: End If loc_004316C2: call MSVBVM60.DLL.__vbaFreeObj loc_004316C7: call edx+0000043Ch(arg_08) loc_004316D2: var_2C = IsSet(edx+0000043Ch(arg_08)) loc_004316E2: call ecx+000000A4h(var_2C, 0040C86Ch) loc_004316EC: If ecx+000000A4h(var_2C, 0040C86Ch) < 0 Then loc_00431700: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A4h(var_2C, 0040C86Ch), var_2C, 0040C870h, 000000A4h) loc_00431706: End If loc_00431709: call MSVBVM60.DLL.__vbaFreeObj loc_00431714: var_000000B4 = &H40C86C loc_0043171E: var_000000BC = 8 loc_00431728: call MSVBVM60.DLL.__vbaVarCopy loc_00431731: call eax+0000043Ch(arg_08) loc_0043173C: var_2C = IsSet(eax+0000043Ch(arg_08)) loc_0043174B: call edx+000000A0h(eax+0000043Ch(arg_08), "") loc_00431755: If edx+000000A0h(eax+0000043Ch(arg_08), "") < 0 Then loc_00431769: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000000A0h(eax+0000043Ch(arg_08), ""), "", 0040C870h, 000000A0h) loc_0043176F: End If loc_0043178E: var_54 = "" loc_00431796: var_00000094 = 80020004h loc_0043179C: var_00000084 = 80020004h loc_004317A2: var_74 = 80020004h loc_004317A5: var_64 = 80020004h loc_004317B1: var_28 = 0 loc_004317BB: var_000000C4 = "Сохранить как" loc_004317C5: var_000000CC = 8 loc_004317DA: var_000000B4 = "Введите название проекта" loc_004317E4: var_000000BC = 8 loc_00431816: InputBox("Введите название проекта", "Сохранить как", 8, 10, 10, 10, 10) loc_0043182B: var_000000AC = 8 loc_00431835: call MSVBVM60.DLL.__vbaVarMove loc_0043183E: call MSVBVM60.DLL.__vbaFreeObj loc_00431878: var_000000B4 = &H40C86C loc_00431882: var_000000BC = &H8008 loc_0043188C: call MSVBVM60.DLL.__vbaVarTstNe(var_000000BC, "") loc_00431895: If MSVBVM60.DLL.__vbaVarTstNe(var_000000BC, "") <> 0 Then loc_004318A1: call MSVBVM60.DLL.__vbaStrVarVal(var_28, "") loc_004318A9: call ebx+00000818h(arg_08, MSVBVM60.DLL.__vbaStrVarVal(var_28, "")) loc_004318B2: call MSVBVM60.DLL.__vbaFreeStr loc_004318BE: End If loc_004318C1: call eax+00000308h(arg_08) loc_004318CC: var_2C = IsSet(eax+00000308h(arg_08)) loc_004318D3: call edx+000001DCh(eax+00000308h(arg_08)) loc_004318DD: If edx+000001DCh(eax+00000308h(arg_08)) < 0 Then loc_004318EB: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+000001DCh(eax+00000308h(arg_08)) , eax+00000308h(arg_08), 0040C680h, 000001DCh) loc_004318F1: End If loc_004318F4: call MSVBVM60.DLL.__vbaFreeObj loc_00431900: var_64 = 80020004h loc_00431903: var_54 = 80020004h loc_00431906: var_44 = 80020004h loc_0043191B: var_000000B4 = "Выберите проект" loc_00431925: var_000000BC = 8 loc_00431947: MsgBox("Выберите проект", 00000000h, 10, 10, 10) loc_00431968: var_04 = 0 loc_00431974: GoTo loc_4319BD loc_00431979: call MSVBVM60.DLL.__vbaFreeStr(004319C7h) loc_00431982: call MSVBVM60.DLL.__vbaFreeObj loc_004319BC: ret И ещё программа (написана на VB) при запуске требует ввести имя и номерок, при этом генерируется код компьютера. Не могли бы дать похожую статейку по взлому и вообще пару-тройку ссылок по взлому программ, написанных на VB, можно и на английском.
Admin Администратор	Дата: 27 Апр 2008 20:58 Взлом на данном форуме запрещен. Ищите другие форумы