_1 db 'Lamia',0
_2 db 'lamia',0

title db 'Слова разные',0
_title db 'Слова одинаковые',0

 entry $

        xor  esi,esi
        mov   edi,_1

next:

        mov     eax, edi
        xor     edx, edx
hash:
        rol     edx, 3
        xor     dl, byte [eax]
        inc     eax
        cmp     byte [eax], 0
        jnz     hash

        cmp     esi,0
        je      @
        cmp    esi,edx
        je     f@

        invoke MessageBox,0,title,0,0
        jmp  exit
 @:
        mov esi,edx
        mov edi,_2
        jmp  next
 f@:
        invoke MessageBox,0,_title,0,0
  exit:
        ret