strlena: pop edx pop ecx xor eax, eaxbucle: inc eax cmp byte ptr [ecx+eax],0 jne bucle jmp edx
include 'win32ax.inc' .data Cadena db 'mDrinky',0 longitud dd ?.codestart: push Cadena call StrLen mov [longitud],eax invoke GlobalAlloc,GPTR,1024 push eax invoke wsprintfA,eax,"%d",[longitud] pop eax invoke MessageBox,0,eax,0,MB_OK ret StrLen: ; 14 bytes pop edx pop ecx push -1 pop eax bucle: inc eax cmp byte[ecx+eax],0 jne bucle jmp edx .end start
Mostrar Mensajes
), queda de 13 bytes:
lo unico que si es una cadena no le suma ese byte nulo.