Criando Um Utilities No Delphi Com Injetor De Dll Para Grand Chase

De dois cliques no form e declare nas uses TlHelp32.

Declare a função acima de end. :

function GetPID(ProcessName: string): DWORD;
var MyHandle: THandle;
Struct: TProcessEntry32;
begin
Result:=0;
try
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
if Struct.szExeFile=ProcessName then
begin
Result:=Struct.th32ProcessID;
Exit;
end;
while Process32Next(MyHandle, Struct) do
if Struct.szExeFile=ProcessName then
begin
Result:=Struct.th32ProcessID;
Exit;
end;
except on exception do
Exit;
end;
end;


Abaixo da função declarada acima, declare :

function InjectDll(PID:DWORD; sDll:string):Boolean;
var
hLib: Pointer;
hThread: THandle;
pMod: Pointer;
hOpen: THandle;
dWritten: Cardinal;
ThreadID: Cardinal;
begin
Result := FALSE;
hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
if hOpen <> INVALID_HANDLE_VALUE then
begin
hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));
pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then
Result := TRUE;
hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);
WaitForSingleObject(hThread, INFINITE);
CloseHandle(hOpen);
CloseHandle(hThread);
end;

Clique 2 vezes no botão "Procurar" e adicione o seguinte código:

if not OpenDialog1.Execute then Exit;
Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));


De dois cliques no botão "Aguardar..." e adicione:

Timer1.Enabled:=True;


De dois cliques no Timer e adicione:
Obs: Apague o begin.


var PID: DWORD;
begin
Timer1.Enabled:=False;

if PID=0 then
begin
Timer1.Enabled:=True;
Exit;
end;
Timer1.Enabled:=False;

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

end;

end.


No botão Limpar Lista Adicione o seguinte código:

ListBox1.Clear


Injetor de DLL Criado
_____________________________________________________________________________________________
3º Parte - Utilities

Clique Com Botão Direito no Page Control e Clique Em New Page e Renomeie Para Utlities
Adicione :

4 Buttons (Localizado em Standard ) :

Renomeie o 1º Para Limpar Logs e Adicione o Seguinte Código :

deletefile ('C:\Level Up Games\Grand Chase\ScreenShot ')

Ativar Quando o Patch Estiver 100% Para Excluir a Pasta e Não ir Para Level Up

Renomeie o 2º Para Resolver Erro Do NProtect e Adicione o Seguinte Código :

deletefile ('C:\Level Up Games\Grand Chase\NProtect ')

Ativar Antes Do Patch Para Ele Atualizar a Pasta

No 3º Renomeie para Renovar IP E Adicione o Seguinte Código :

WinExec('cmd /C ipconfig /renew',SW_SHOW);
WinExec('cmd /C ipconfig /release',SW_SHOW);


Renomeie o 2º Button Para Registrar DNS E Adicione o Seguinte Código :

WinExec('cmd /C ipconfig /registerdns',SW_SHOW);