Подскажите, где ошибка...

Сейчас на форуме: _MBK_, asfa (+6 невидимых)

Посл.ответ	Сообщение
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 24 мая 2009 00:25 · Личное сообщение · #1 Доброго времени суток всем. Прошу совета и подсказки, где я допустил ошибку при написании кейгена, писал на асме. Вобщем ситуация такая, что при нажатии на кнопку "Generate" выскакивает ошибка и сгенерированный код не показывается, хотя при анализе в оле код генерируется правильно и в конце генерации правильный код я вижу в регистрах EAX и EBP, но вывести его не получаетчя, где-есть ошибка или что-то не правильно делаю...Содержимое Asm и Include файлов прилагаю, если нужно, выложу и ехе файл. Возможно в коде есть много лишнего, но код генерируется правильно. Асм начал изучать не давно, но уже написал несколько кейгенов на этом языке и все было нормально, а с этим немного зашел в тупик... Asm файл: Code: .386 .model flat, stdcall ;32 bit memory model option casemap :none ;case sensitive include Keygen.inc .code start: invoke GetModuleHandle,NULL mov hInstance,eax invoke InitCommonControls invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,addr DlgProc,NULL invoke ExitProcess,0 ;##################################################################### ### DlgProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM mov eax,uMsg .if eax==WM_INITDIALOG invoke LoadIcon,hInstance,300 mov hIcon,eax invoke SendMessage,hWin,WM_SETICON,NULL,hIcon .elseif eax==WM_COMMAND mov eax,wParam .if eax==1005 ;button Generate invoke GetDlgItemText,hWin,1002,addr szName,30 push offset szName call Generate invoke SetDlgItemText,hWin,1004,addr serial .elseif eax==1006 ;button About invoke MessageBox,hWin,addr TEXT,addr TITULO,MB_APPLMODAL .elseif eax==1007 ;button Exit invoke EndDialog,hWin,0 .endif .elseif eax==WM_CLOSE invoke EndDialog,hWin,0 .else mov eax,FALSE ret .endif mov eax,TRUE ret DlgProc endp Generate: xor edx,edx xor ecx,ecx xor esi,esi xor edi,edi mov esi,eax MOV EDI, DWORD PTR SS:[offset szName] MOV EDX, 026h xor eax,eax L001: MOVSX EBX, BYTE PTR [EDI+EAX] ADD EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L001 mov [serial1],ecx invoke wsprintf,addr serial1,addr Format,serial1 invoke lstrcpy,addr serial,addr serial1 push offset serial xor ebp,ebp pop ebp xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] MOV EDX, 034h xor eax,eax L002: MOVSX EBX, BYTE PTR DS:[EDI+EAX] IMUL EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L002 mov [serial2],ecx invoke wsprintf,addr serial2,addr Format,serial2 invoke lstrcat,addr serial,addr serial2 push offset serial xor ebp,ebp pop ebp xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] mov edx,0Ch L003: MOVSX EBX, BYTE PTR DS:[EDI+EAX] ADD EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L003 mov [serial3],ecx invoke wsprintf,addr serial3,addr Format,serial3 invoke lstrcat,addr serial,addr serial3 push offset serial xor ebp,ebp pop ebp xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] mov edx,0Eh L004: MOVSX EBX, BYTE PTR DS:[EDI+EAX] IMUL EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L004 mov [serial4],ecx invoke wsprintf,addr serial4,addr Format1,serial4 invoke lstrcat,addr serial,addr serial4 push offset serial mov [serial],ebp ret end start Include файл: Code: include windows.inc include kernel32.inc include user32.inc include Comctl32.inc include shell32.inc includelib kernel32.lib includelib user32.lib includelib Comctl32.lib includelib shell32.lib DlgProc PROTO :HWND,:UINT,:WPARAM,:LPARAM .const IDD_DIALOG1 equ 101 ;##################################################################### #### .data TEXT db "Good luck",0 TITULO db "About keygen",0 szName dd 16 dup(0),0 serial dd 16 dup(0),0 Format db "%02i-",0 Format1 db "%02i",0 serial1 dd 16 dup(0),0 serial2 dd 16 dup(0),0 serial3 dd 16 dup(0),0 serial4 dd 16 dup(0),0 .data? hInstance dd ? hIcon dd ? ;##################################################################### #### ----- We do what we want because we can.

v0id2k Ранг: 221.3 (наставник), 135thx Активность: 0.19↘0.07 Статус: Участник	Создано: 24 мая 2009 03:10 · Личное сообщение · #2 verdizela Часто используешь стэк без надобности! Code: push offset serial xor ebp,ebp pop ebp это ваще бессмысленная конструкция ниже исправленный код процедуры Code: Generate proc xor edx,edx xor ecx,ecx xor esi,esi xor edi,edi mov esi,eax MOV EDI, DWORD PTR SS:[offset szName] MOV EDX, 026h xor eax,eax L001: MOVSX EBX, BYTE PTR [EDI+EAX] ADD EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L001 mov [serial1],ecx invoke wsprintf,addr serial1,addr Format,serial1 invoke lstrcpy,addr serial,addr serial1 xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] MOV EDX, 034h xor eax,eax L002: MOVSX EBX, BYTE PTR DS:[EDI+EAX] IMUL EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L002 mov [serial2],ecx invoke wsprintf,addr serial2,addr Format,serial2 invoke lstrcat,addr serial,addr serial2 xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] mov edx,0Ch L003: MOVSX EBX, BYTE PTR DS:[EDI+EAX] ADD EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L003 mov [serial3],ecx invoke wsprintf,addr serial3,addr Format,serial3 invoke lstrcat,addr serial,addr serial3 xor eax,eax xor edx,edx xor ecx,ecx xor ebx,ebx MOV EDI, DWORD PTR SS:[offset szName] mov edx,0Eh L004: MOVSX EBX, BYTE PTR DS:[EDI+EAX] IMUL EBX, EDX ADD EAX, 1 ADD ECX, EBX CMP EAX, ESI JL L004 mov [serial4],ecx invoke wsprintf,addr serial4,addr Format1,serial4 invoke lstrcat,addr serial,addr serial4 ret Generate endp это строку тоже можешь удалить, думаю поймешь почему она не нужна Code: push offset szName ----- xchg dword [eax], eax
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 24 мая 2009 10:18 · Личное сообщение · #3 v0id2k Большое спасибо за ответ и за совет. Ошибки я уже исправил, все работает... Тему, в принципе, я готов закрыть, но пользуясь случаем, хочу задать еще несколько вопросов. Какой процедурой можно очищать стек от мусора? Я читал об этом и хотел переписать пример этотй процедуры, но не зделал этого и теперь стараюсь вспомнить, где я это видел... И второй вопрос. После окончания процедуры генерациии в EAX у меня готовый серийник, а как получить длинну строки серийника, тоесть количество знаков...? ----- We do what we want because we can.
Coderess Ранг: 355.4 (мудрец), 55thx Активность: 0.32↘0 Статус: Uploader 5KRT	Создано: 24 мая 2009 13:26 · Поправил: Coderess · Личное сообщение · #4 Какой процедурой можно очищать стек от мусора? В конче процедур вызывается leave После окончания процедуры генерациии в EAX у меня готовый серийник, а как получить длинну строки серийника, тоесть количество знаков...? я так понимаю указатель хранится в Eax, тогда вызов функции lstrlen или самодельной xstrlen Code: xstrlen: xor ecx, ecx __1:mov al, byte ptr[eax + ecx] test al,al jz __2 inc ecx jmp __1 __2:ret На выходе Ecx - содержит количество символов ----- Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 24 мая 2009 13:39 · Личное сообщение · #5 Coderess Большое спасибо за исчерпывающий ответ, теперь все понятно. Тему закрываю. ----- We do what we want because we can.

Для печати