Таблица импорта: исправить ошибки в коде

format PE GUI 4.0
include 'include\win32ax.inc'
include 'include\macro\MASM.inc'
 
struct TObjectTable
  ObjectName      rb 8
  VirtualSize     rd 1
  SectionRVA      rd 1
  PhysicalSize    rd 1
  PhysicalOffset  rd 1
  Reserved        rb 12
  ObjectFlags     rd 1
ends
 
struct TImportDirectory
  ImportLookUp   rd 1
  TimeDateStamp  rd 1
  ForwardChain   rd 1
  NameRVA        rd 1
  AddresTableRVA rd 1
ends
 
struct THintName
  Hint         rw 1
  ServiceName  rb 1
ends
 
entry $
  invoke GetModuleFileNameW,0,filename,2048
  invoke CreateFileW,filename,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0
  mov    ebx,eax
  invoke ReadFile,ebx,MZHeader,sizeof.MZHeader,i,0
  invoke SetFilePointer,ebx,[MZHeader.OffsetToPEHeader],0,FILE_BEGIN
  invoke ReadFile,ebx,PEHeader,sizeof.PEHeader,i,0
  mov    eax,[PEHeader.NumOfRVAandSizes]
  shl    eax,3
  invoke ReadFile,ebx,DirectoryTable,eax,i,0
 
  invoke VirtualAlloc,0,[PEHeader.ImageSize],MEM_COMMIT,PAGE_READWRITE
  mov    [ObjectTable],eax
  mov    edi,eax
  movzx  esi,[PEHeader.Count_of_section]
  imul   edx,esi,sizeof.TObjectTable
  invoke ReadFile,ebx,eax,edx,i,0
 
  assume edi:TObjectTable
  @@:invoke SetFilePointer,ebx,[edi.PhysicalOffset],0,FILE_BEGIN
     mov    eax,[ObjectTable]
     add    eax,[edi.SectionRVA]
     invoke ReadFile,ebx,eax,[edi.PhysicalSize],i,0
     add    edi,sizeof.TObjectTable
     dec    esi
  jnz @b
 
  mov  ebx,filename
  mov  ebp,[ObjectTable]
  mov  edi,ebp
  add  edi,[DirectoryTable.ImportTableRVA]
  assume edi:TImportDirectory
  @@:add    [edi.NameRVA],ebp
     add    [edi.AddresTableRVA],ebp
     mov    esi,[edi.AddresTableRVA]
     invoke wsprintfA,ebx,libraryfmt,[edi.NameRVA]
     add    ebx,eax
     a:add    [esi],ebp
       mov    eax,[esi]
       add    eax,THintName.ServiceName
       invoke wsprintfA,ebx,functionfmt,eax
       add    ebx,eax
       add    esi,4
       cmp    dword[esi],0
     jnz a
     add edi,sizeof.TImportDirectory
     cmp [edi.AddresTableRVA],0
  jnz @b
 
  invoke MessageBoxA,0,filename,0,0
  invoke ExitProcess,0
 
align 8
data import
  library kernel32,'kernel32.dll',\
          user32,'user32.dll'
 
   import kernel32,\
          VirtualAlloc,'VirtualAlloc',\
          CreateFileW,'CreateFileW',\
          ReadFile,'ReadFile',\
          SetFilePointer,'SetFilePointer',\
          GetModuleFileNameW,'GetModuleFileNameW',\
          ExitProcess,'ExitProcess'
 
   import user32,\
          wsprintfA,'wsprintfA',\
          MessageBoxA,'MessageBoxA'
end data
 
libraryfmt  db '%s',13,10,0
functionfmt db '    %s',13,10,0
 
filename    rw 16384
ObjectTable rd 1
i           rd 1
 
MZHeader:
  .MZSignature               rw 1
  .BytesOnLastPage           rw 1
  .PagesInFile               rw 1
  .NumberOfRelocationEntries rw 1
  .ParagraphsInHeader        rw 1
  .MinimumMemory             rw 1
  .MaximumMemory             rw 1
  .Initial_SS                rw 1
  .Initial_SP                rw 1
  .CheckSum                  rw 1
  .Initial_IP                rw 1
  .Initial_CS                rw 1
  .RelocationTableOffset     rw 1
  .OverlayNumber             rw 1
  .FirstRelocOffset          rw 1
  .OverlayNum                rw 1
  .Reserved                  rd 1
  .OEMInfo                   rb 24
  .OffsetToPEHeader          rd 1
sizeof.MZHeader=$-MZHeader
 
PEHeader:
  .PESignature               rd 1
  .CPU_Type                  rw 1
  .Count_of_section          rw 1
  .TimeStamp                 rd 1
  .COFFTablePointer          rd 1
  .COFFTableSize             rd 1
  .NTHeaderSize              rw 1
  .Flags                     rw 1
  .Magic                     rw 1
  .LinkMajor                 rb 1
  .LinkMinor                 rb 1
  .SizeOfCode                rd 1
  .SizeOfInitData            rd 1
  .SizeOfUnInitData          rd 1
  .EntryPointRVA             rd 1
  .BaseOfCode                rd 1
  .BaseOfData                rd 1
  .ImageBase                 rd 1
  .ObjectAlign               rd 1
  .FileAlign                 rd 1
  .OSMajor                   rw 1
  .OSMinor                   rw 1
  .USERMajor                 rw 1
  .USERMinor                 rw 1
  .SubSysMajor               rw 1
  .SubSysMinor               rw 1
  .Reserved                  rd 1
  .ImageSize                 rd 1
  .HeaderSize                rd 1
  .FileCheckSum              rd 1
  .SubSystem                 rw 1
  .DLLFlags                  rw 1
  .StackReserveSize          rd 1
  .StackCommitSize           rd 1
  .HeapReserveSize           rd 1
  .HeapComitSize             rd 1
  .LoaderFlags               rd 1
  .NumOfRVAandSizes          rd 1
sizeof.PEHeader=$-PEHeader
 
DirectoryTable:
  .ExportTableRVA            rd 1
  .ExportDataSize            rd 1
  .ImportTableRVA            rd 1
  .ImportDataSize            rd 1
  .ResourceTableRVA          rd 1
  .ResourceDataSize          rd 1
  .ExceptionTableRVA         rd 1
  .ExceptionDataSize         rd 1
  .SecurityTableRVA          rd 1
  .SecurityDataSize          rd 1
  .FixUpTableRVA             rd 1
  .FixUpDataSize             rd 1
  .DebugTableRVA             rd 1
  .DebugDataSize             rd 1
  .DescriptionRVA            rd 1
  .DescriptionDataSize       rd 1
  .MachineSpecificRVA        rd 1
  .MachnineDataSize          rd 1
  .TLSRVA                    rd 1
  .TLSDataSize               rd 1
  .LoadConfigRVA             rd 1
  .LoadConfigDataSize        rd 1
  .Reserved2                 rq 1
  .IATRVA                    rd 1
  .IATDataSize               rd 1
  .Reserved3                 rq 3
sizeof.DirectoryTable=$-DirectoryTable