Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-09-2018
carlosprotos carlosprotos is offline
Miembro
 
Registrado: abr 2014
Posts: 28
Poder: 0
carlosprotos Va por buen camino
Post 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;
}

Última edición por dec fecha: 01-09-2018 a las 20:24:19. Razón: Poner etiqueta CODE
Responder Con Cita
  #2  
Antiguo 11-09-2018
MacStreet MacStreet is offline
Miembro
 
Registrado: oct 2017
Posts: 16
Poder: 0
MacStreet Va por buen camino
Hola, "FindScan" que buscas exactamente , segun pienso, hackeas algun juego?
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Convertir C++ a Delphi 0x90 Varios 4 16-03-2017 06:09:01
Convertir cabecera de C a Delphi LoPiTaL Varios 1 18-05-2012 09:52:46
Convertir de C++ a Delphi Alliance Varios 4 11-11-2008 00:24:06
Convertir fecha en delphi richy08 Varios 2 04-08-2008 16:44:50
AnyNET-Delphi Beta2: Una herramienta para convertir de .NET a Delphi.NET mamcx Noticias 3 01-10-2005 02:27:09


La franja horaria es GMT +2. Ahora son las 14:51:55.


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
Copyright 1996-2007 Club Delphi