[DUVIDA] Injetor de Dll's

[tocaum 0]

Se vocês poderem me ajudar desde ja agradeço.

 

Estou com um problema,

 

1°:mesmo sem nenhuma dll de hacke no injetor que criei ele da dll injetada com susseço.

2°:Eu tive que desliga o meu antivirus para ele funcionar mais meu antivirus nao o detecto nenhum virus.

 

o que eu faço me ajudem pf.

:conversando:

[Vator 11]

Não tem como ajudar na 1ª dúvida sem ter o código de injetar a dê éle éle.

[Lukasmart7 1]

1°- Verifique o Nome do Processo Que Você Colocou Para Ver se Não Esta Aberto.

2°- Nem Todas Os Injetor São Virus . Na Verdade Nenhum é Virus!

[tocaum 0]

dê éle éle[/color].

 

codigo:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TlHelp32, ExtCtrls, StdCtrls, jpeg;

 

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Timer1: TTimer;

OpenDialog1: TOpenDialog;

Label3: TLabel;

RadioButton1: TRadioButton;

ListBox1: TListBox;

Limpar: TButton;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure LimparClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

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;

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;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if not OpenDialog1.Execute then Exit;

Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

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);

end;

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

 

procedure TForm1.LimparClick(Sender: TObject);

begin

ListBox1.Clear

end;

 

end.

 

1°- Verifique o Nome do Processo Que Você Colocou Para Ver se Não Esta Aberto.

2°- Nem Todas Os Injetor São Virus . Na Verdade Nenhum é Virus![/color][/b]

 

O processo ta certo e para combat arms :coloco assim " Engine.exe ".

Pois éeh kara mais porque eu tenho que desativa o antivirus para ele funcionar.

[Lukasmart7 1]

Quando o Anti-virus Está Ligado Ele Não Executa Ou Não Injeta?

[tocaum 0]

Quando o Anti-virus Está Ligado Ele Não Executa Ou Não Injeta?[/color][/b]

 

Ele executa, mais não injeta.