Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir de c++ a delphi (https://www.clubdelphi.com/foros/showthread.php?t=93383)

carlosprotos 01-09-2018 19:56:53

Convertir de c++ a delphi
 
Podria alguien ayudarme a convertir este codigo de C++ a delphi? He tratado de hacerlo por cuenta propia , pero no me fue bien , en esta pagina hay personas mas experimentadas que yo , ayuden por favor :'v

Código:

//----------------------------------------------------------------------------------------------------
MODULEINFO GetModuleInfo( char *szModule )
{
        MODULEINFO modinfo = {0};
        HMODULE hModule = GetModuleHandle(szModule);
        if(hModule == 0)
                return modinfo;
        GetModuleInformation(GetCurrentProcess(), hModule, &modinfo, sizeof(MODULEINFO));
        return modinfo;
}

//-----------------------------------------------------------------------------------------------------
DWORD FindScan(char *module, char *pattern, char *mask)
{
        MODULEINFO mInfo = GetModuleInfo(module);

        DWORD base = (DWORD)mInfo.lpBaseOfDll;
        DWORD size =  (DWORD)mInfo.SizeOfImage;

        DWORD patternLength = (DWORD)strlen(mask);

        for(DWORD i = 0; i < size - patternLength; i++)
        {
                bool found = true;
                for(DWORD j = 0; j < patternLength; j++)
                {
                        found &= mask[j] == '?' || pattern[j] == *(char*)(base + i + j);
                }
                if(found)
                {
                        return base + i;
                }
        }

        return NULL;
}


MacStreet 11-09-2018 17:33:52

Hola, "FindScan" que buscas exactamente , segun pienso, hackeas algun juego?


La franja horaria es GMT +2. Ahora son las 01:56:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi