Hola,
necesite hacer una pequeña función que pasar a unicode , a alguien mas le puede servir por eso la posteo
proc ASCIITOUNICODE,Cadena,Buffer
push ecx ebx
mov eax,[Cadena]
mov ebx,[Buffer]
dec eax
sub ebx,2
.bucle:
inc eax
cmp byte[eax],0
je .salir
add ebx,2
mov cl,byte[eax]
mov byte[ebx],cl
mov byte[ebx+1],0
jmp .bucle
.salir:
pop ebx ecx
ret
endp
Funcion que cuenta el largo de una cadena en Unicode:
proc LenUnicode,cCadena
mov ebx,[cCadena]
mov eax,0
.bucle:
inc eax
cmp byte[ebx+eax*2],0
jne .bucle
pop ebx
ret
endp
Funcion para concatenar cadenas en unicode
proc ConcatenarUnicode,cCadena1,cCadena2,cBuffer
push esi edi
mov edi,[cBuffer]
mov esi,[cCadena1]
.bucle1:
movsb
cmp word[esi],0
jne .bucle1
inc edi
mov esi,[cCadena2]
.bucle2:
movsb
cmp word[esi],0
jne .bucle2
pop edi esi
ret
endp