![]() |
eXeL@B —› Вопросы новичков —› Программа для занятий с плохо слышащими детьми "КОММУНИУАЦИЯ" |
Посл.ответ | Сообщение |
|
Создано: 17 мая 2007 19:35 · Поправил: AlexeyVN · Личное сообщение · #1 Собственно несколько человек купили для занятий с детьми, а фирма через год исчезла. Поэтому прошу помочь. Программа состоит (кроме мультимедийного содержания) из 2 exe-шников. Регистрация и Коммуникация.exe Язык написания Delphi 3 и 4. Модуль регистрации генерит на экран 2 комплекта цифр. Вводим ответ и он регистрирует программу. Оба модуля с помощью DEDE я декомпелировал. Вот обработчик кнопки ОК в модуле Регистрация. procedure TForm1.Button4Click(Sender : TObject); begin (* 004536D4 55 push ebp 004536D5 8BEC mov ebp, esp 004536D7 81C430FEFFFF add esp, $FFFFFE30 004536DD 53 push ebx 004536DE 33C9 xor ecx, ecx 004536E0 898D30FEFFFF mov [ebp+$FFFFFE30], ecx 004536E6 33D2 xor edx, edx 004536E8 55 push ebp 004536E9 689C374500 push $0045379C ***** TRY | 004536EE 64FF32 push dword ptr fs:[edx] 004536F1 648922 mov fs:[edx], esp * Reference to control TForm1.RxCalcEdit1 : TRxCalcEdit | 004536F4 8B80C8020000 mov eax, [eax+$02C8] * Reference to : TRxCalcEdit._PROC_00452C10() | 004536FA E811F5FFFF call 00452C10 004536FF 8BD8 mov ebx, eax * Possible String Reference to: 'c:\windows\system\Syscom.dll' | 00453701 BAB0374500 mov edx, $004537B0 00453706 8D8534FEFFFF lea eax, [ebp+$FFFFFE34] * Reference to: System.Proc_0040533E | 0045370C E82D1CFBFF call 0040533E 00453711 8D8534FEFFFF lea eax, [ebp+$FFFFFE34] * Reference to: System.Proc_0040545E | 00453717 E8421DFBFF call 0040545E * Reference to: System.Proc_00402788 | 0045371C E867F0FAFF call 00402788 00453721 8D8534FEFFFF lea eax, [ebp+$FFFFFE34] * Reference to: System.Proc_00405465 | 00453727 E8391DFBFF call 00405465 * Reference to: System.Proc_00402788 | 0045372C E857F0FAFF call 00402788 00453731 8D9530FEFFFF lea edx, [ebp+$FFFFFE30] 00453737 8BC3 mov eax, ebx * Reference to: Unit_00406C60.Proc_00407A84 | 00453739 E84643FBFF call 00407A84 0045373E 8B9530FEFFFF mov edx, [ebp+$FFFFFE30] 00453744 8D8534FEFFFF lea eax, [ebp+$FFFFFE34] * Reference to: system.@Write0Bool; | 0045374A E81507FBFF call 00403E64 * Reference to: System.Proc_00405537 | 0045374F E8E31DFBFF call 00405537 * Reference to: System.Proc_00402788 | 00453754 E82FF0FAFF call 00402788 00453759 8D8534FEFFFF lea eax, [ebp+$FFFFFE34] * Reference to: System.Proc_004053E0 | 0045375F E87C1CFBFF call 004053E0 * Reference to: System.Proc_00402788 | 00453764 E81FF0FAFF call 00402788 00453769 6A00 push $00 0045376B 668B0DD0374500 mov cx, word ptr [$004537D0] 00453772 B204 mov dl, $04 * Possible String Reference to: 'Регистрация прошла успешно.' | 00453774 B8DC374500 mov eax, $004537DC * Reference to: Dialogs.Proc_00443B04 | 00453779 E88603FFFF call 00443B04 * Reference to: System.Proc_00403724 | 0045377E E8A1FFFAFF call 00403724 00453783 33C0 xor eax, eax 00453785 5A pop edx 00453786 59 pop ecx 00453787 59 pop ecx 00453788 648910 mov fs:[eax], edx ****** FINALLY | 0045378B 68A3374500 push $004537A3 00453790 8D8530FEFFFF lea eax, [ebp+$FFFFFE30] * Reference to: System.Proc_00403854 | 00453796 E8B900FBFF call 00403854 0045379B C3 ret * Reference to: System.Proc_00403314 | 0045379C E973FBFAFF jmp 00403314 004537A1 EBED jmp 00453790 ****** END | 004537A3 5B pop ebx 004537A4 8BE5 mov esp, ebp 004537A6 5D pop ebp 004537A7 C3 ret *) end; А вот процедура старта модуля Коммуникация.exe procedure Tmain.BitBtn1Click(Sender : TObject); begin (* 004F3AEC 55 push ebp 004F3AED 8BEC mov ebp, esp 004F3AEF 81C414FDFFFF add esp, $FFFFFD14 004F3AF5 33C9 xor ecx, ecx 004F3AF7 898D14FDFFFF mov [ebp+$FFFFFD14], ecx 004F3AFD 894DEC mov [ebp-$14], ecx 004F3B00 33C0 xor eax, eax 004F3B02 55 push ebp * Possible String Reference to: 'й$шряле‹е]Г' | 004F3B03 68BF3C4F00 push $004F3CBF ***** TRY | 004F3B08 64FF30 push dword ptr fs:[eax] 004F3B0B 648920 mov fs:[eax], esp 004F3B0E 6805010000 push $00000105 004F3B13 8D851BFDFFFF lea eax, [ebp+$FFFFFD1B] 004F3B19 50 push eax * Reference to: kernel32.GetSystemDirectoryA() | 004F3B1A E8F928F1FF call 00406418 004F3B1F 8D8514FDFFFF lea eax, [ebp+$FFFFFD14] 004F3B25 8D951BFDFFFF lea edx, [ebp+$FFFFFD1B] 004F3B2B B905010000 mov ecx, $00000105 * Reference to: System.Proc_00403CF4 | 004F3B30 E8BF01F1FF call 00403CF4 004F3B35 8D8514FDFFFF lea eax, [ebp+$FFFFFD14] * Possible String Reference to: '\Syscom.dll' | 004F3B3B BAD43C4F00 mov edx, $004F3CD4 * Reference to: System.Proc_00403D4C | 004F3B40 E80702F1FF call 00403D4C 004F3B45 8B8514FDFFFF mov eax, [ebp+$FFFFFD14] * Reference to: Unit_00406F98.Proc_00408044 | 004F3B4B E8F444F1FF call 00408044 004F3B50 84C0 test al, al 004F3B52 7505 jnz 004F3B59 * Reference to: System.Proc_00403914 | 004F3B54 E8BBFDF0FF call 00403914 004F3B59 6A00 push $00 004F3B5B 6A00 push $00 004F3B5D 8D45F4 lea eax, [ebp-$0C] 004F3B60 50 push eax 004F3B61 8D45F8 lea eax, [ebp-$08] 004F3B64 50 push eax 004F3B65 8D45FC lea eax, [ebp-$04] 004F3B68 50 push eax 004F3B69 6A00 push $00 004F3B6B 6A00 push $00 * Possible String Reference to: 'D:' | 004F3B6D 68E03C4F00 push $004F3CE0 * Reference to: kernel32.GetVolumeInformationA() | 004F3B72 E8E128F1FF call 00406458 004F3B77 8B45FC mov eax, [ebp-$04] 004F3B7A 8945F0 mov [ebp-$10], eax 004F3B7D 6A00 push $00 004F3B7F 6A00 push $00 004F3B81 8D45F4 lea eax, [ebp-$0C] 004F3B84 50 push eax 004F3B85 8D45F8 lea eax, [ebp-$08] 004F3B88 50 push eax 004F3B89 8D45FC lea eax, [ebp-$04] 004F3B8C 50 push eax 004F3B8D 6A00 push $00 004F3B8F 6A00 push $00 * Possible String Reference to: 'C:' | 004F3B91 68E43C4F00 push $004F3CE4 * Reference to: kernel32.GetVolumeInformationA() | 004F3B96 E8BD28F1FF call 00406458 004F3B9B 8B45FC mov eax, [ebp-$04] 004F3B9E 0145F0 add [ebp-$10], eax 004F3BA1 8B45F0 mov eax, [ebp-$10] 004F3BA4 03C0 add eax, eax 004F3BA6 C1E003 shl eax, $03 004F3BA9 0554300000 add eax, +$00003054 004F3BAE C1E004 shl eax, $04 004F3BB1 8945F0 mov [ebp-$10], eax 004F3BB4 8D8514FDFFFF lea eax, [ebp+$FFFFFD14] 004F3BBA 8D951BFDFFFF lea edx, [ebp+$FFFFFD1B] 004F3BC0 B905010000 mov ecx, $00000105 * Reference to: System.Proc_00403CF4 | 004F3BC5 E82A01F1FF call 00403CF4 004F3BCA 8D8514FDFFFF lea eax, [ebp+$FFFFFD14] * Possible String Reference to: '\Syscom.dll' | 004F3BD0 BAD43C4F00 mov edx, $004F3CD4 * Reference to: System.Proc_00403D4C | 004F3BD5 E87201F1FF call 00403D4C 004F3BDA 8B9514FDFFFF mov edx, [ebp+$FFFFFD14] 004F3BE0 8D8520FEFFFF lea eax, [ebp+$FFFFFE20] * Reference to: System.Proc_004057C6 | 004F3BE6 E8DB1BF1FF call 004057C6 004F3BEB 8D8520FEFFFF lea eax, [ebp+$FFFFFE20] * Reference to: System.Proc_00405B73 | 004F3BF1 E87D1FF1FF call 00405B73 * Reference to: System.Proc_00402824 | 004F3BF6 E829ECF0FF call 00402824 004F3BFB 33C0 xor eax, eax 004F3BFD 55 push ebp 004F3BFE 68453C4F00 push $004F3C45 ***** TRY | 004F3C03 64FF30 push dword ptr fs:[eax] 004F3C06 648920 mov fs:[eax], esp 004F3C09 8D55EC lea edx, [ebp-$14] 004F3C0C 8D8520FEFFFF lea eax, [ebp+$FFFFFE20] * Reference to: System.Proc_00404100 ![]() |
|
Создано: 17 мая 2007 22:21 · Личное сообщение · #2 |
|
Создано: 18 мая 2007 09:08 · Личное сообщение · #3 |
![]() |
eXeL@B —› Вопросы новичков —› Программа для занятий с плохо слышащими детьми "КОММУНИУАЦИЯ" |