поиск базы кернел

Search_kernel32 proc 
 
Search_kernel32_1:
    cmp byte ptr ss:[ebp],00h
    jz kernel_limit_end
 
    cmp word ptr ds:[esi],'ZM'
    jz kernel_search_ok
 
Search_kernel32_2:
    dec byte ptr ss:[ebp]
    sub esi,10000h
    jmp Search_kernel32_1
 
kernel_search_ok:
 
    mov edi,ds:[esi+3ch]
    add edi,esi
    cmp word ptr ds:[edi],'EP'
    je kernel_search_ok_pe
 
 
kernel_limit_end:
    mov esi,0BFF70000h
 
kernel_search_ok_pe:  
 
    mov eax,esi
    ret
 
Search_kernel32 endp
start:  
mov esi,[esp]
        mov ebp,esp
        sub esp,100h
        mov eax,50h
        mov [ebp],eax
        add esi,0ffff0000h
        call Search_kernel32
end start

   test esi,esi

 68. test eax,eax

 .386
    .model flat, stdcall
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc
    include \masm32\include\kernel32.inc
    include \masm32\include\msvcrt.inc
    includelib \masm32\lib\user32.lib
    includelib \masm32\lib\kernel32.lib
    includelib \masm32\lib\msvcrt.lib
    includelib inject.a
    GetProcessHandle  proto :DWORD
    .code
start:
    invoke GetProcessHandle,NULL
    ret
end start

 .386
    .model flat, stdcall
    option casemap :none
    include C:\masm32\include\windows.inc
    include C:\masm32\include\kernel32.inc
    includelib C:\masm32\lib\kernel32.lib
      
    GetFuncFormExport PROTO :DWORD,:DWORD
    _lstrcmpi         PROTO :DWORD,:DWORD
 
    .data
    
    FName1 db 'LoadLibraryExA',0
    FName2 db 'MessageBoxA',0
    DName  db 'user32.dll',0
    Mess   db 'Hello world!',0
 
    .code
 
start:
 
    ; через PEB получаем в EAX базу kernel32.dll (или kernelbase.dll если мы Win7)
    assume fs:nothing
    mov eax,fs:[30h]
    mov eax,[eax+0Ch]
    mov esi,[eax+1Ch]
    lods dword ptr[esi]
    mov eax,[eax+8]
    
    ; получаем указатель на функцию LoadLibraryExA, т.к. LoadLibraryA в kernelbase.dll отсутствует
    invoke GetFuncFormExport,addr FName1,eax
 
    ; получаем базу user32.dll
    push NULL
    push NULL
    push offset DName
    call eax
    
    ; получаем указатель на функцию MessageBoxA из user32.dll
    invoke GetFuncFormExport,addr FName2,eax
 
    push NULL
    push NULL
    push offset Mess
    push NULL
    call eax
 
    ret
 
    ; -----------------------------------------------------------   
    ; это можно убрать но тогда не будет работать на всех WinNT 
    ; т.к. у модуля не будет таблицы импорта
    call ExitProcess
    ; -----------------------------------------------------------
    
GetFuncFormExport proc USES EBX ESI EDI FuncName:DWORD, ModBase:DWORD
 
    ; ВХОД:    FuncName - указатель на имя функции
    ;          ModBase  - база модуля
    ; ВЫХОД:   EAX      - указатель на пролог нужной нам функции
 
    ; получаем в esi указатель на PE сигну
    mov ebx,ModBase         ; в ebx будем хранить базу образа dll'ки
    assume eax:ptr IMAGE_DOS_HEADER
    mov esi,[eax].e_lfanew
    add esi,eax
 
    ; получаем в esi указатель на таблицу экспорта
    assume esi:ptr IMAGE_NT_HEADERS
    mov esi,[esi].OptionalHeader.DataDirectory.VirtualAddress+IMAGE_DIRECTORY_ENTRY_EXPORT*8
    add esi,ebx
    
    ; ищем указатель на прогол
    assume esi:ptr IMAGE_EXPORT_DIRECTORY
    mov edi,[esi].AddressOfNames
    mov ecx,[esi].NumberOfNames
    add edi,ebx         ; edi = pointer на массив указателей на имена фунок
@@: mov eax,dword ptr [edi+ecx*4-4]
    add eax,ebx
    invoke _lstrcmpi,eax,FuncName
    test eax,eax
    je ff
    loop @B
 
ff: dec ecx
    mov eax,[esi].AddressOfNameOrdinals ; ecx = нужный нам индекс, будем использовать его
    add eax,ebx         ; как индекс в массиве AddressOfNameOrdinals
    movzx eax,word ptr [eax+ecx*2]  ; eax = ordinal
    ;sub eax,[esi].nBase            ; ordinal - OrdinalBase
    ;inc eax                ; т.к. начальный ординал нумеруется с единицы
    mov edi,[esi].AddressOfFunctions
    add edi,ebx         ; edi = указ. на массив адресов функций
    mov eax,dword ptr [edi+eax*4]
    add eax,ebx
    ret
 
GetFuncFormExport endp
    
_lstrcmpi proc lpStr1:DWORD, lpStr2:DWORD
 
    push esi
    push edi
 
    mov esi,lpStr1
    mov edi,lpStr2
    xor eax,eax
loc_compare:
    lodsb
    mov ah,[edi]
    inc edi
    cmp al,ah
    jne @f
    or al,al
    jz loc_ret
    jmp loc_compare
@@:
    and eax,0DFDFh
    cmp al,'A'
    jb loc_not_equal
    cmp al,'Z'
    ja loc_not_equal
 
    cmp al,ah
    je loc_compare
loc_not_equal:
    xor eax,eax
    inc eax    
loc_ret:
    pop edi
    pop esi
    ret
        
_lstrcmpi endp
 
 
end start