include 'win32a.inc'
  format PE console 4.0

section '.text' code readable executable

    mov                 eax,00B704CEh ; init
    mov                 ebx,01864CFBh ; poly
    mov                 esi,_data ; input
    mov                 ecx,[length] ; input length
    xor                 edi,edi ; used to iterate thru input
begin:
    movzx               edx,byte [esi+edi]
    shl                 edx,10h
    xor                 eax,edx
    mov                 edx,8
_loop:
    shl                 eax,1
    test                eax,01000000h
    jz                  update
    xor                 eax,ebx
update:
    dec                 edx
    jnz                 _loop
    inc                 edi
    cmp                 edi,ecx
    jnz                 begin
    and                 eax,00FFFFFFh
finish:
    cinvoke             itoa,eax,checksum,10h
    invoke              MessageBox,0,0,eax,0
    sub                 eax,eax
    ret
    int3

section '.data' data readable writeable

  length dd 4
  _data db 'fasm',0
  checksum rb 6


section '.idata' import data readable

  library user32,'user32.dll',\
          ntdll,'ntdll.dll'

  import user32,\
         MessageBox,'MessageBoxA'

  import ntdll,\
         itoa,'_itoa'

section '.reloc' fixups data readable discardable    

        mov edi,_data           ; input
        mov esi,edi
        add edi,[length]        ; end address

        xor ecx,ecx
        mov edx,$B704CE'00      ; init shl 8
        mov ebx,$864CFB'00      ; poly shl 8
.2:     xchg eax,ecx            ; set to zero
        lodsb
        bswap eax
        xor edx,eax
        mov ecx,8
.1:     shl edx,1
        jnc .0
        xor edx,ebx
.0:     loop .1
        cmp esi,edi
        jnz .2
        shr edx,8
        xchg eax,edx