Подскажите что не так делаю Delphi +asm

Сейчас на форуме: tyns777 (+4 невидимых)

Посл.ответ	Сообщение
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 11 октября 2009 20:27 · Поправил: 3uM6a6Ba · Личное сообщение · #1 Может не так перевел в архиве 2 исходника 1ый на сях норм компилится второй на Delphi + asm вылетает

NIKOLA Ранг: 500.6 (!), 7thx Активность: 0.26↘0 Статус: Участник	Создано: 12 октября 2009 06:41 · Личное сообщение · #2 Вылетает на procedure Tmain.crypt1 ?
tundra37 Ранг: 310.8 (мудрец), 29thx Активность: 0.43↘0 Статус: Участник	Создано: 12 октября 2009 10:23 · Личное сообщение · #3 3uM6a6Ba Ассемблер, видимо, пишешь не понимая или память подвела ? Команда pop извлекает из стека и обычно стоит в конце. Команда сохранения в стеке называется push
NIKOLA Ранг: 500.6 (!), 7thx Активность: 0.26↘0 Статус: Участник	Создано: 12 октября 2009 10:56 · Личное сообщение · #4 NIKOLA пишет: Ассемблер, видимо, пишешь не понимая или память подвела ? в Си примере именно так три ПОПА в начале и еще в конце процедуры.
Coderess Ранг: 355.4 (мудрец), 55thx Активность: 0.32↘0 Статус: Uploader 5KRT	Создано: 12 октября 2009 11:00 · Поправил: Coderess · Личное сообщение · #5 dll'ки в архиве не хватает Code: procedure crypt1(const mass:array of ansichar; const const1,const2:integer);stdcall external 'dll.dll' index 1; procedure crypt(const mass:array of ansichar;const const1,const2:integer); stdcall external 'dll.dll' index 2; P.S. Вобще в книгах пишут, что лучше экспортировать по имени, а не индексу. ----- Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 19:45 · Личное сообщение · #6 NIKOLA Да именно на Crypt1
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 19:52 · Личное сообщение · #7 tundra37 Для этого я положил второй файл на сях, который компилиться и норм работает!!! а в дельфях болт(это во первых), во вторых почему Вы так уверены ,что при begin он туда ничего не положет ??? , а как же переменные которые передаются в процедуру ??? В общем меня наводит на мысль, что в процедуру параметры как-то не так передаются crypt1, потому как смотрю в дебаг на сях после захода в проседуру три пуша и потом уже асм попит..., а в дельфях два и какой-то мусор непоняный мне
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 12 октября 2009 19:54 · Личное сообщение · #8 особо не смотрел, но мне кажется procedure Tmain.crypt1(mass: array of char; const const1, const2: integer); надо объявить как stdcall ----- [nice coder and reverser]
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 20:07 · Личное сообщение · #9 Hellspawn Неа не помогло вываливат ексепшен в Code: @loop8: mov cl,byte [esp+$14] mov edx,dword [esp+$20] add cl,3 shr dx,cl test dl,1 je @loop10 mov edx,dword [ebx+esi*4] <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 20:09 · Личное сообщение · #10 я уже думал что в сях массив по ссылке передается потому procedure(var mass:..........);stdcall; нифига
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 20:13 · Личное сообщение · #11 вот что в дебаге Это голова функции crypt1 на делфи Code: Unit2.pas.134: begin 004ADD58 55 push ebp 004ADD59 8BEC mov ebp,esp 004ADD5B 8B450C mov eax,[ebp+$0c] 004ADD5E 8B5510 mov edx,[ebp+$10] 004ADD61 85D2 test edx,edx 004ADD63 780A js $004add6f 004ADD65 C1EA02 shr edx,$02 004ADD68 8B0C90 mov ecx,[eax+edx4] 004ADD6B 4A dec* edx 004ADD6C 51 push ecx 004ADD6D 79F9 jns $004add68 004ADD6F 89650C mov [ebp+$0c],esp Unit2.pas.136: pop edi 004ADD72 5F pop edi А вот на Сях Code: Unit1.cpp.351: void crypt1(const char* Mass, int Const1, int Const2) 00402028 55 push ebp 00402029 8BEC mov ebp,esp 0040202B 53 push ebx 0040202C 56 push esi 0040202D 57 push edi Unit1.cpp.355: pop edi 0040202E 5F pop edi объясните почему в сях есть вход, есть 3 пуша, а в дельфи мммм
daFix Ранг: 529.0 (!), 110thx Активность: 0.29↘0.04 Статус: Участник 5KRT	Создано: 12 октября 2009 20:21 · Личное сообщение · #12 3uM6a6Ba Я выравнивал стёк этими попами для си, а дельфи стёк опускает хрен знает на сколько. Видать надо по другому объявить колл. ----- Research For Food
OKOB Ранг: 527.7 (!), 381thx Активность: 0.16↘0.09 Статус: Участник Победитель турнира 2010	Создано: 12 октября 2009 21:53 · Личное сообщение · #13 3uM6a6Ba пишет: в архиве 2 исходника где архив?? то что приведено в первом посте для кода функции crypt1 procedure Tmain.crypt1(mass: array of char; const const1, const2: integer); begin asm pop edi pop esi pop ebx pop ebp mov eax,dword [esp+C] sub esp,8 push esi xor esi,esi test eax,eax jbe @loop11 врядли может быть скомпилировано делфи в код приведенный в посте 11 004ADD58 55 push ebp 004ADD59 8BEC mov ebp,esp 004ADD5B 8B450C mov eax,[ebp+$0c] 004ADD5E 8B5510 mov edx,[ebp+$10] 004ADD61 85D2 test edx,edx 004ADD63 780A js $004add6f в коде топикстартера сначала из стека извлекаются все параметры велючая адрес возврата, а потом доступ esp+C в неизвестно куда ----- 127.0.0.1, sweet 127.0.0.1
daFix Ранг: 529.0 (!), 110thx Активность: 0.29↘0.04 Статус: Участник 5KRT	Создано: 12 октября 2009 22:37 · Поправил: daFix · Личное сообщение · #14 Может кто нибудь перевести эти функции на язык высокого уровня? Чтобы не играться со стёком? У меня с этим проблемы. Даже если мы выровним тут стёк, тогда всёравно валимся, ибо дельфя в любом случае зачем-то пихает 5! аргументов с CALL! OKOB пишет: врядли может быть скомпилировано делфи в код приведенный в посте 11 Невероятно, но факт! Сам не могу понять зачем он так стёк опускает ----- Research For Food
_ruzmaz_ Ранг: 114.8 (ветеран), 41thx Активность: 0.1↘0 Статус: Участник	Создано: 13 октября 2009 00:49 · Поправил: _ruzmaz_ · Личное сообщение · #15 Попробуй вот что: - объявляй Tmain.crypt1 как cdecl (исправлено) => в результате этого параметры будут передаваться так, как скорее всего =) и предполагалось; - делай эту процедуру ассемблерной, а не обычной процедурой с ассемблерной вставкой (просто удали begin и один end) => перед первой инструкцией в исходнике будут идти только push ebp и mov ebp, esp; - попы) в начале меняй на mov esp, ebp pop ebp => выполнение этих инструкций вернет стек и регистры в состояние как в самом начале функи (для чего до этого и были попы)).
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 13 октября 2009 01:46 · Поправил: 3uM6a6Ba · Личное сообщение · #16 Вот что сделал все-равно болт! Code: private { Private declarations } procedure fillmass(); procedure crc(); procedure gen (tip:integer); procedure crypt1(mass:pointer{array of ansichar};const1,const2:integer);stdcall; procedure crypt(mass:pointer{array of ansichar};const1,const2:integer); { Public declarations } end; var main: Tmain; crcdata:array[0..255]of longint; recvbuf:array[0..511]of ansichar; implementation {$R .dfm} procedure Tmain.Button2Click(Sender: TObject); begin gen($00082B98); crypt(@recvbuf,$0000A3FE,$80); end; procedure Tmain.crc; begin fillmass(); asm mov* esi, $1f8 lea edx, recvbuf add edx, 8 mov eax, $ffffffff @Loop20: xor ecx,ecx mov cl,byte ptr ds:[edx] xor ecx,eax and ecx,$ff mov ebx,dword ptr ds:[ecx4+crcdata] shr* eax,8 xor eax,ebx inc edx dec esi jnz @Loop20 mov dword [recvbuf + 4], eax end; end; procedure Tmain.crypt(mass:pointer{array of ansichar};const1, const2: integer); begin crypt1(mass,const1, const2); asm mov edi, Const2 mov ebx, Const1 mov esi, Mass xor eax,eax test edi,edi jbe @l2 movzx edx,bx mov ecx,edx imul ecx,ecx,$19212 jmp @l1 lea ecx,dword ptr ds:[ecx] @l1: xor dword ptr ds:[esi+eax4],ecx inc* eax add ecx,edx cmp eax,edi jb @l1 @l2: end; end; procedure Tmain.crypt1(mass:pointer{ array of ansichar};const1,const2:integer); asm mov esp, ebp pop ebp mov eax,dword [esp+$C] sub esp,8 push esi xor esi,esi test eax,eax jbe @loop11 push ebx mov ebx,dword [esp+$14] push ebp push edi lea esp,dword [esp] @loop1: mov dword [esp+$14],0 mov eax,4 lea ecx,dword [ecx] @loop2: mov edx,dword [esp+$20] mov cx,word [esp+$14] shr dx,cl test dl,1 je @loop4 mov edx,dword [ebx+esi4] lea* ecx,dword [eax-4] mov edi,3 shl edi,cl mov dword [esp+$10],edx lea ecx,dword [eax-4] and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je @loop3 cmp ebp,1 jnz @loop4 @loop3: mov ecx,dword [esp+$10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx @loop4: mov* cl,byte [esp+$14] mov edx,dword [esp+$20] inc cl shr dx,cl test dl,1 je @loop6 mov edx,dword [ebx+esi4] lea* ecx,dword [eax-2] mov edi,3 shl edi,cl mov dword [esp+$10],edx lea ecx,dword [eax-2] and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je @loop5 cmp ebp,1 jnz @loop6 @loop5: mov ecx,dword [esp+$10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx @loop6: mov* cl,byte [esp+$14] mov edx,dword [esp+$20] add cl,2 shr dx,cl test dl,1 je @loop8 mov edx,dword [ebx+esi4] mov* ecx,eax mov edi,3 shl edi,cl mov dword [esp+$10],edx and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je @loop7 cmp ebp,1 jnz @loop8 @loop7: mov ecx,dword [esp+$10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx @loop8: mov* cl,byte [esp+$14] mov edx,dword [esp+$20] add cl,3 shr dx,cl test dl,1 je @loop10 mov edx,dword [ebx+esi4] lea* ecx,dword [eax+2] mov edi,3 shl edi,cl mov dword [esp+$10],edx and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je @loop9 cmp ebp,1 jnz @loop10 @loop9: mov ecx,dword [esp+$10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx @loop10: mov* edi,dword [esp+$14] add edi,4 add eax,8 cmp eax,$24 mov dword [esp+$14],edi jb @loop2 mov eax,dword [esp+$24] inc esi cmp esi,eax jb @loop1 @loop11: add esp, 8 ret end; procedure Tmain.fillmass; asm xor eax,eax @Label1: test al,1 mov dword ptr ds:[eax4+crcdata],eax je @Label2 mov* ecx,eax shr ecx,1 xor ecx,$edb88320 mov dword ptr ds:[eax4+crcdata],ecx jmp* @Label5 @Label2: mov edx,eax shr edx,1 mov dword ptr ds:[eax4+crcdata],edx @Label5: mov* ecx,dword ptr ds:[eax4+crcdata] test* cl,1 je @Label3 shr ecx,1 xor ecx,$edb88320 jmp @Label4 @Label3: shr ecx,1 @Label4: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label7 shr* ecx,1 xor ecx,$edb88320 jmp @Label6 @Label7: shr ecx,1 @Label6: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label9 shr* ecx,1 xor ecx,$edb88320 jmp @Label8 @Label9: shr ecx,1 @Label8: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label10 shr* ecx,1 xor ecx,$edb88320 jmp @Label11 @Label10: shr ecx,1 @Label11: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label12 shr* ecx,1 xor ecx,$edb88320 jmp @Label13 @Label12: shr ecx,1 @Label13: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label14 shr* ecx,1 xor ecx,$edb88320 jmp @Label15 @Label14: shr ecx,1 @label15: test cl,1 mov dword ptr ds:[eax4+crcdata],ecx je @Label16 shr* ecx,1 xor ecx,$edb88320 jmp @Label17 @Label16: shr ecx,1 @Label17: mov dword ptr ds:[eax4+crcdata],ecx inc* eax cmp eax,$ff jl @Label1 end; procedure Tmain.gen(tip: integer); var i:integer; // str:string; begin for I := 0 to 251 do crcdata[i]:=0; for I := 0 to 511 do recvbuf[i]:=char(0); PDWORD(@recvbuf[0])^:=$000BEC61; PDWORD(@recvbuf[$120])^:=tip; PDWORD(@recvbuf[$148])^:=255; crc(); end; end. Вот код на сях Code: void crypt1(const char* Mass, int Const1, int Const2) { __asm { pop edi pop esi pop ebx pop ebp mov eax,dword [esp+0xc] sub esp,8 push esi xor esi,esi test eax,eax jbe loop11 push ebx mov ebx,dword [esp+0x14] push ebp push edi lea esp,dword [esp] loop1: mov dword [esp+0x14],0 mov eax,4 lea ecx,dword [ecx] loop2: mov edx,dword [esp+0x20] mov cx,word [esp+0x14] shr dx,cl test dl,1 je loop4 mov edx,dword [ebx+esi4] lea* ecx,dword [eax-4] mov edi,3 shl edi,cl mov dword [esp+0x10],edx lea ecx,dword [eax-4] and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je loop3 cmp ebp,1 jnz loop4 loop3: mov ecx,dword [esp+0x10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx loop4: mov* cl,byte [esp+0x14] mov edx,dword [esp+0x20] inc cl shr dx,cl test dl,1 je loop6 mov edx,dword [ebx+esi4] lea* ecx,dword [eax-2] mov edi,3 shl edi,cl mov dword [esp+0x10],edx lea ecx,dword [eax-2] and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je loop5 cmp ebp,1 jnz loop6 loop5: mov ecx,dword [esp+0x10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx loop6: mov* cl,byte [esp+0x14] mov edx,dword [esp+0x20] add cl,2 shr dx,cl test dl,1 je loop8 mov edx,dword [ebx+esi4] mov* ecx,eax mov edi,3 shl edi,cl mov dword [esp+0x10],edx and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je loop7 cmp ebp,1 jnz loop8 loop7: mov ecx,dword [esp+0x10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx loop8: mov* cl,byte [esp+0x14] mov edx,dword [esp+0x20] add cl,3 shr dx,cl test dl,1 je loop10 mov edx,dword [ebx+esi4] lea* ecx,dword [eax+2] mov edi,3 shl edi,cl mov dword [esp+0x10],edx and edx,edi mov ebp,edx shr ebp,cl cmp ebp,2 je loop9 cmp ebp,1 jnz loop10 loop9: mov ecx,dword [esp+0x10] or ecx,edi not edx and ecx,edx mov dword [ebx+esi4],ecx loop10: mov* edi,dword [esp+0x14] add edi,4 add eax,8 cmp eax,0x24 mov dword [esp+0x14],edi jb loop2 mov eax,dword [esp+0x24] inc esi cmp esi,eax jb loop1 pop edi pop ebp pop ebx loop11: pop esi add esp, 8 ret } }
Clerk Ранг: 255.8 (наставник), 19thx Активность: 0.15↘0.01 Статус: Участник vx	Создано: 13 октября 2009 09:38 · Личное сообщение · #17 Может просто поднять приоритет и забыть про оптимизацию, юзермод ведь
OKOB Ранг: 527.7 (!), 381thx Активность: 0.16↘0.09 Статус: Участник Победитель турнира 2010	Создано: 13 октября 2009 12:20 · Личное сообщение · #18 3uM6a6Ba пишет: все-равно болт! в Сях передача параметров через стек осуществляется при их помещении по списку справа на лево, а в Дельфях (аля Паскаль) наоборот слева на право. А вы используете одни и теже с Си смещения относительно ESP для доступа к ним. В Си удалением параметров из стека занимается вызывающий код, а в Паскале сама функа должна почистить стек (ret $C). В Си чтобы не изощряться с попами впереди функи нужно в обявление добавить __declspec(naked) - голый писаный код. ----- 127.0.0.1, sweet 127.0.0.1
_ruzmaz_ Ранг: 114.8 (ветеран), 41thx Активность: 0.1↘0 Статус: Участник	Создано: 13 октября 2009 18:45 · Личное сообщение · #19 OKOB пишет: в Сях передача параметров через стек осуществляется при их помещении по списку справа на лево, а в Дельфях (аля Паскаль) наоборот слева на право. Да и к тому же в делфях по умолчанию первые параметры передаются через регистры (fastcall). 3uM6a6Ba пишет: Вот что сделал все-равно болт! Сорри, писал что надо объявлять как stdcall, но раз на сях работает и стоит просто ret, то нужно cdecl. Т.е. после procedure Tmain.crypt(.....); пиши cdecl; И еще - в сях при передаче mass передается просто указатель, в дельфях (в том модуле, что ты запостил) передается указатель на первый элемент массива и длина массива за вычетом единицы (т.е. в стек кладется не 0x0C, а 0x10). Поэтому передавай mass не как array of char, а как указатель, например PAnsiChar.
3uM6a6Ba Ранг: 11.0 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 13 октября 2009 22:43 · Личное сообщение · #20 Всем пасиб
dermatolog Ранг: 116.6 (ветеран), 8thx Активность: 0.05↘0 Статус: Участник	Создано: 14 октября 2009 07:34 · Личное сообщение · #21 В дополнение добавлю: надо учитывать еще и особенности ООП - т.е. если метод crypt1 является методом класса, то указатель на сам объект (Self) передается в метод через какой-либо регистр. Поэтому перед выполнением асмового кода надо обязательно сохранять в стеке все остальные регистры (и в конце восстанавливать их из стека), которые портит код.

Для печати