Перевод значений - как реализовать на масм?

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

Посл.ответ	Сообщение
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 27 ноября 2009 09:53 · Поправил: SReg · Личное сообщение · #1 Вот решил закейгенить одну прогу... Собственно для реализации рипнул код: к примеру вот: Code: Getkey proc MOV EAX,[id_code] MOV EBX,EAX SHL EBX,2h SUB EBX,EAX ADD EBX,20A4h MOV EAX,EBX MOV [unlock_code],EAX ret Getkey endp Code: invoke GetDlgItemText,hWin,1002, addr id_code,32 invoke Getkey invoke SetDlgItemText,hWin,1003, addr unlock_code В кейгене из Edit(1002) считывается строковое значение, далее его как то нужно перевести в шеснадцатиричный формат и поместить в переменную(id_code), произвести над ним вышеприведенные операции, а перед вызовом функи SetDlgItemText значение переменной (unlock_code) необходимо опять как то перевести в десятичный формат, и только после этого её вызвать... Результат как видно из примера отображаеться в Edit'e(1003) Если у кого то есть свои наработки по поводу этого как то, просьба поделиться П.С. На дельфях все это конечно же легко реализовать, но хочется именно средствами асма;)

BoRoV Ранг: 533.6 (!), 232thx Активность: 0.45↘0 Статус: Uploader retired	Создано: 27 ноября 2009 11:47 · Поправил: BoRoV · Личное сообщение · #2 они уже есть там, используй масмлиб, и посмотри хелму по ней, найдешь также еще много удобных ф-ий ----- Лучше быть одиноким, но свободным © $me
zeppe1in Ранг: 127.3 (ветеран), 44thx Активность: 0.09↘0 Статус: Участник	Создано: 27 ноября 2009 13:15 · Поправил: zeppe1in · Личное сообщение · #3 Code: .data? szBuff db 12 dup (?) Mult dd ? Int2StrProc proc uses esi edi ;eax = BinVal ;edx = Address of Buffer mov edi, edx mov ecx, 10 mov esi, offset szBuff+11 @@: xor edx,edx div ecx or dl,30h dec esi mov [esi],dl test eax, eax jnz @B mov ecx, offset szBuff+12 sub ecx, esi rep movsb mov eax, edi dec eax ret Int2StrProc endp Str2IntProc proc uses edi ebx ;eax=Pointer to null-terminated string mov ecx, -1 mov edi, eax xor eax, eax repne scasb not ecx dec ecx jz @@Exit sub edi,2 xor ebx,ebx mov Mult,1 @@1: xor eax,eax mov al, [edi] and al, 0Fh mul Mult add ebx, eax imul edx, Mult, 10 mov Mult, edx dec edi dec ecx jnz @@1 mov eax,ebx @@Exit: ret Str2IntProc endp ----- zzz
Vovan666 Ранг: 617.3 (!), 677thx Активность: 0.54↘0 Статус: Участник	Создано: 27 ноября 2009 15:31 · Личное сообщение · #4 Code: invoke GetDlgItemInt,hWin,1002,addr id_code ,0 MOV EBX,EAX SHL EBX,2h SUB EBX,EAX ADD EBX,20A4h invoke SetDlgItemInt,hWin,1003,EBX,0

Для печати