Miscellany

FARPROC aapi::GetProcAddress( HMODULE hModule, LPCSTR lpProcName ){	DWORD EATA,OP;	IMAGE_DOS_HEADER *DOSH = ( IMAGE_DOS_HEADER* )hModule;	IMAGE_NT_HEADERS *NTH = NULL;	if( DOSH->e_magic != IMAGE_DOS_SIGNATURE )		return NULL;	NTH = ( ( PIMAGE_NT_HEADERS )( ( DWORD )( DOSH ) + ( DWORD )( DOSH->e_lfanew ) ) );		if( NTH->Signature != IMAGE_NT_SIGNATURE )		return NULL;	EATA = NTH->OptionalHeader.DataDirectory[ IMAGE_DIRECTORY_ENTRY_EXPORT ].VirtualAddress;	IMAGE_EXPORT_DIRECTORY *EATP = ( IMAGE_EXPORT_DIRECTORY* )( ( DWORD )EATA + ( DWORD )hModule );    for ( DWORD i = 0;i < EATP->NumberOfFunctions;i++ )    {		DWORD * ENTP = (DWORD*)( ( DWORD )hModule + ((DWORD)EATP->AddressOfNames + (sizeof(DWORD)*i)));        if( strcmp( ( char* )( ( DWORD )hModule + *ENTP ), lpProcName )== 0 )        {			WORD * AONP = ( WORD* )( ( DWORD )hModule + ( ( DWORD )EATP->AddressOfNameOrdinals + ( i * sizeof( WORD ) ) ) );			DWORD * AOF  = ( DWORD* )( ( DWORD )hModule + ( ( DWORD )EATP->AddressOfFunctions + ( sizeof( DWORD )**AONP ) ) );           return ( FARPROC )( *AOF + DWORD( hModule ) );        }    }}