Ajuda sobre Injetor.

[AldoRay 0]

Fala galera,

Esses dias eu criei um injetor de DLL

Ja dei run, compilei, tudo certo sem problemas...

Mas quando chega a hora de injetar a DLL vem um

problema, o mensagem que eu coloquei para aparecer,

"Showmessage('DLL Injetada')" Aparece,

Mas a mensagem do hack, no caso do alessandro que é normalmente"Versão 3.0" E "Versão 3.1" que deveriam aparecer, Mostrando que foi injetada a DLL, nao aparece. Eu tinha achado que era apenas A mensagem que nao tinha aparecido, mas quando entra no CA, o hack tb não aparece...

Essa dúvida está me corroendo, Se alguem pudesse me ajudar,

ficaria muito grato.

 

PS: Se precissarem de algum código para a resolução me avisem no tópico e eu colocarei.

PS²: O Código do injetor, é o codigo desse tópico do Ryokusei:http://www.webcheats.com.br/forum/delphi-vb/425063-criando-injetor-de-dll.html

 

Desde já Obrigado.

 

Source COMPLETA:

unit Unit1;

 

interface

 

uses

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

Dialogs, TlHelp32, ExtCtrls, StdCtrls, ComCtrls, XPMan, CheckLst, jpeg,

MPlayer;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

OpenDialog1: TOpenDialog;

Timer1: TTimer;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

XPManifest1: TXPManifest;

ProgressBar1: TProgressBar;

Label10: TLabel;

Timer2: TTimer;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

RadioButton1: TRadioButton;

Label1: TLabel;

GroupBox1: TGroupBox;

Label2: TLabel;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Image1: TImage;

Label3: TLabel;

Label9: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Button3: TButton;

MediaPlayer1: TMediaPlayer;

OpenDialog2: TOpenDialog;

StatusBar1: TStatusBar;

Timer3: TTimer;

GroupBox5: TGroupBox;

GroupBox6: TGroupBox;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Button4: TButton;

Button5: TButton;

Label32: TLabel;

Edit3: TEdit;

Label33: TLabel;

Label34: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(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.Button1Click(Sender: TObject);

begin

if not OpenDialog1.Execute then Exit;

Edit2.Text:=OpenDialog1.FileName;

Checkbox2.Checked := True

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

CheckBox3.Checked := True;

Timer2.Enabled:=True;

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, Edit2.Text) 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.Timer2Timer(Sender: TObject);

begin

ProgressBar1.Position := ProgressBar1.Position +1;

end;

 

procedure TForm1.Edit2Change(Sender: TObject);

begin

CheckBox1.Checked := True;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

 

procedure TForm1.Timer3Timer(Sender: TObject);

begin

statusbar1.Panels[1].Text:= 'Hora.: '+timetostr(time);

statusbar1.Panels[2].Text:= 'Data.: '+datetostr(date);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit1.Enabled := False;

MessageBoxA(Handle, 'Trancado com sucesso!', 'CG Injetor', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Enabled := True;

MessageBoxA(Handle, 'Destrancado com sucesso!', 'CG Injetor', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

 

end;

 

end.

[Guilde 0]

seu hack nao deve ter funfado cara ou o injetor ou a dll deve estar ruim creio eu posta aqui para nois vermos

[Ryokusei 28]

Tenta com algum outro injetor.

[felipeanchieta 3]

Cara, pra mim, programar é inovar. Já existem um monte de injetores de DLL bons, pra quê mais um? Qual seria a diferença dos demais.

 

Acho que você poderia se aplicar em coisas que realmente são inovadores na área de hacking do Combat Arms, e não fazer mais um injetor que faz a mesma coisa que os outros.

 

Agora, sobre o tópico... poste o código-fonte e os erros.

 

Outra coisa, vc tá executando o injetor e o Combat Arms como Administrador?

[eduardo9999 0]

upa a source ai ki eu ajudo

[AldoRay 0]

Ele sempre funciona da primeira vez

que eu tento, as depois

sempre falham(mesmo Executando como ADM).

[Geek'. 1]

Cara teste algum outro injetor se não funcionar do mesmo jeito,veja se está tudo CORRETO

[felipeanchieta 3]

Independente de ter copiado ou não a source do Ryokusei, vai postar a source e os erros ou vai esperar alguém fechar o tópico? Infelizmente minha máquina de vidente só fica pronta ano que vem, portanto, não posso adivinhar as coisas.

 

Estou falando sério cara.