Procurar
Últimos assuntos
radio
Top dos mais postadores
Pitoco | ||||
'ɦɑɗɑɱɑɳtiiร † | ||||
gameproover | ||||
Asasinoloko | ||||
vagner2 | ||||
Marcio | ||||
danilorv13 | ||||
dotorn | ||||
Nero006 | ||||
guilherme_17 |
[TUTO] Criando Injetor de Dll c/ Listbox
2 participantes
:: Combat Arms :: Tutoriais
Página 1 de 1
[TUTO] Criando Injetor de Dll c/ Listbox
Programa usado:
Delphi 7.
Download 1° Parte: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Download 2° Parte: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Download 3° Parte Final: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Como Baiixar ? clique no link aciimah.
& clique onde a foto está mostrando
Delphi 7.
Download 1° Parte: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Download 2° Parte: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Download 3° Parte Final: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Como Baiixar ? clique no link aciimah.
& clique onde a foto está mostrando
Adicione os seguintes componentes:
2- GroupBox - Renomeia a 1 como "Configurações" e a segunda como "Injeção".
2- Labels - O primeiro escrito "Processo" e o Segundo "Dll".
3- Buttons - O primeiro escrito "Aguardar..."(Voce pode substituir por um RadioButton escrito Automatico) o segundo "Procurar" e o terceiro "Limpar Lista"
1- Listbox
1- Timer
1- OpenDialog
Tente deixar ele mais ou menos assim:
De dois cliques no form e declare nas uses TlHelp32.
Declare a função acima de end. :
Código:
Abaixo da função declarada acima, declare :
Código:
Clique 2 vezes no botão "Procurar" e adicione o seguinte código:
Código:
Código:
De dois cliques no Timer e adicione:
Obs: Apague o begin.
Código:
No botão Limpar Lista Adicione o seguinte código:
Código:
2- GroupBox - Renomeia a 1 como "Configurações" e a segunda como "Injeção".
2- Labels - O primeiro escrito "Processo" e o Segundo "Dll".
3- Buttons - O primeiro escrito "Aguardar..."(Voce pode substituir por um RadioButton escrito Automatico) o segundo "Procurar" e o terceiro "Limpar Lista"
1- Listbox
1- Timer
1- OpenDialog
Tente deixar ele mais ou menos assim:
De dois cliques no form e declare nas uses TlHelp32.
Declare a função acima de end. :
Código:
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 :
Código:
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;
end;
Clique 2 vezes no botão "Procurar" e adicione o seguinte código:
Código:
De dois cliques no botão "Aguardar..." e adicione:
if not OpenDialog1.Execute then Exit;
Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
Código:
Timer1.Enabled:=True;
De dois cliques no Timer e adicione:
Obs: Apague o begin.
Código:
var PID: DWORD;
begin
Timer1.Enabled:=False;
PID:=GetPID(Edit1.Text);
if PID=0 then
begin
Timer1.Enabled:=True;
Exit;
end;
Timer1.Enabled:=False;
if InjectDll(PID, Opendialog1.Filename) then
MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)
else
MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);
No botão Limpar Lista Adicione o seguinte código:
Código:
Agora para configurar o Opendialog para abrir somente .dlls clique no openDialog e no canto esquerdo procure por Filter e clique em "..." La coloque:
ListBox1.Clear
Filename:Dll Filter: *.dll
Creditos:
Pitoco
รмσkє™
Ryokusei
Pitoco
รмσkє™
Ryokusei
Ola
Ola venho hj pedir que fassa uma vidio aula como fazer um injetor obrigado
ferei123- Membros
- Mensagens : 1
Pontos : 1
Data de inscrição : 04/03/2011
Tópicos semelhantes
» [FIXO] Injetor Ultimate cheaters®
» [FIXO] Injetor v0.2 com novo design + Hack v1.0 com menu Ultimate Cheaters.
» [TUTO] Video-aula do UNLOOCK ALLZACK.
» [FIXO] Injetor v0.2 com novo design + Hack v1.0 com menu Ultimate Cheaters.
» [TUTO] Video-aula do UNLOOCK ALLZACK.
:: Combat Arms :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Qua Jun 27, 2012 12:36 am por vendeta22
» [FIXO] Injetor v0.2 com novo design + Hack v1.0 com menu Ultimate Cheaters.
Ter Out 25, 2011 6:37 pm por Combat Arms5
» [HACK] UNLOOCK ALLZACK.
Qui Mar 31, 2011 6:19 pm por matheus
» AJUDA AE !
Sáb Mar 19, 2011 1:25 am por Nero006
» Preciso de hacker atualizado
Ter Mar 15, 2011 3:28 pm por myutz
» [HACK]Ultimate Cheaters® hotkeys v0.1 Atualizado 21/02/2011
Sáb Mar 12, 2011 3:26 am por Robertozika
» [TUTO] Criando Injetor de Dll c/ Listbox
Sáb Mar 05, 2011 4:52 pm por ferei123
» [inject]varios injetores
Sáb Mar 05, 2011 2:17 pm por Pitoco
» alessandro 4.3
Qua Fev 23, 2011 9:42 pm por Pitoco