format PE GUI 4.0 DLL
entry DllEntryPoint

include 'C:\fasmw16732\INCLUDE\win32ax.inc'

macro       encrypt {local x
repeat         code_end-code_begin
         load x byte from code_begin+%-1
     x = x xor 55
        store x at code_begin+%-1
end        repeat}

section '.code' code readable writeable executable

proc DllEntryPoint hinstDLL,fdwReason,lpvReserved
     invoke  MessageBoxA,HWND_DESKTOP,message,caption,MB_OK
     mov     eax,TRUE
     ret
endp

proc Function
;---------------------
     mov edi,code_begin
     mov ecx,code_end-code_begin
     @@: 
     xor byte[edi],55
     inc edi 
     dec ecx 
     test ecx,ecx 
     jnz @b 
code_begin:
     jmp inv
     message2    db      'DLL3 Func',0
     caption2         db      'DLL3',0
inv: invoke  MessageBoxA,HWND_DESKTOP,message2,caption2,MB_OK
code_end:
;--------------------
encrypt
;--------------------
     mov edi,code_begin
     mov ecx,code_end-code_begin
     @@: 
     xor byte[edi],55
     inc edi 
     dec ecx 
     test ecx,ecx 
     jnz @b 
     ret
endp

message     db          'DLL3 Main',0
caption     db       'DLL3',0


section '.idata' import data readable writeable

  library kernel32,'kernel32.dll',user,'USER32.DLL'

  import user,\
   MessageBoxA,'MessageBoxA'

section '.edata' export data readable

  export 'dll3.DLL',\
  Function,'Function'

section '.reloc' fixups data discardable
    

ccode_begin:
     call inv
delta:
     message2    db      'DLL3 Func',0
     caption2     db      'DLL3',0
inv: pop eax
lea ecx, [eax+message2-delta] ; lea ecx, [eax] would be the same here
lea edx, [eax+caption2-delta]
stdcall  [eax+MessageBoxA-delta], HWND_DESKTOP, ecx, edx, MB_OK
; WARNING: EAX, ECX and EDX destroyed here
code_end: