[Ajuda] Erro No Delphi ao criar Injector

[Lucasrrm 0]

Olá galeerê... eu to criando um injector e preciso de ajuda... eu fiz todo ele.. mas no final aparece uns erros quando eu vo aperta f9 pra termina :pensativo:... olhem o print:

 

 

e eu nao consigo resolver :/ oque fazer? :confused: .__.

[Owner 8]

Está vendo o código CloseHandle(...); ?

Entá abaixo do end;

Então vai dar o erro deste tipo, coloque ele emcima do end;

[horario222 0]

O close handle tá errado.. tenque por ele antes do end :D

[Lucasrrm 0]

tá dando o mesmo erro... msm coisa :S

[Vator 11]

Aprenda sobre Delphi e corrija vossos erros,senhor.

[Lucasrrm 0]

Aprenda sobre Delphi e corrija vossos erros,senhor.

 

lol eu quero aprender mas nao é facil '-', eu to começando ainda e quero aprender muito... uma ajudinha n faz mal rsrs

[Owner 8]

Então poste a source aqui inteira.

Não hospede, so coloque o código para ajudar mas facilmente.

Então tá faltando um end;

Tente isto colocar um end;

[Lucasrrm 0]

não adiantou o end; entao ta aí o código

 

--edit-- eu coloquei o end; no lugar errado ASUDHUASHDUHAS , eu tentei por em otro lugar e resolveu! Mas ainda tem +6 erros '-'

 

--edit2-- eu consegui arrumar mais erros KKKK' agora so falta esses:

[Error] Unit1.pas(195): Undeclared identifier: 'Edit1'

[Error] Unit1.pas(237): Undeclared identifier: 'CheckBox1'

[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

 

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, sLabel, ExtCtrls, sSkinProvider, sSkinManager,

sCheckBox, sPanel, sButton, tlhelp32, sEdit;

 

type

TForm1 = class(TForm)

sSkinManager1: TsSkinManager;

sSkinProvider1: TsSkinProvider;

Timer1: TTimer;

sLabelFX1: TsLabelFX;

sEdit1: TsEdit;

sButton1: TsButton;

sPanel1: TsPanel;

sCheckBox1: TsCheckBox;

sLabel1: TsLabel;

sLabel2: TsLabel;

sPanel2: TsPanel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sWebLabel1: TsWebLabel;

sLabel5: TsLabel;

procedure sButton1Click(Sender: TObject);

procedure sCheckBox1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

function ValorAsc(Letra: String): Byte;

 

begin

 

if Length(letra) > 0 then ValorAsc := Ord(Letra[1]) else ValorAsc := 0;

 

end;

 

function crypt(Texto: String): String;

 

var

 

Cont, Cod: Integer;

 

Retorna: String;

 

begin

 

for Cont := 1 to Length(Texto) do begin

 

Cod := ValorAsc(Copy(Texto, Cont, 1));

 

Retorna := Retorna + Chr(Cod + 57(*valor a ser adicionado - pode ser modificado*));

 

end;

 

Crypt := Retorna;

 

end;

 

function Descript(Texto: String): String;

 

var

 

Cont, Cod: integer;

 

Retorna: String;

 

begin

 

for Cont := 1 to Length(Texto) do begin

 

Cod := ValorAsc(Copy(Texto, Cont, 1));

 

Retorna := Retorna + Chr(Cod - 57);

 

end;

 

Descript := Retorna;

 

end;

 

function processExists(exeFileName: string): Boolean;

 

var

 

ContinueLoop: BOOL;

 

FSnapshotHandle: THandle;

 

FProcessEntry32: TProcessEntry32;

 

begin

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

 

FProcessEntry32.dwSize := SizeOf(FProcessEntry32);

 

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

 

Result := False;

 

while Integer(ContinueLoop) <> 0 do

 

begin

 

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =

 

UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =

 

UpperCase(ExeFileName))) then

 

begin

 

Result := True;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

 

end;

 

CloseHandle(FSnapshotHandle);

 

end;

 

function CMKGETID(ExeFileName: string; var ProcessId: dword) :boolean; // A função

 

var

 

ContinueLoop: BOOL;

 

FSnapshotHandle: THandle;

 

FProcessEntry32: TProcessEntry32;

 

begin

 

result := false;

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

 

FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

 

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

 

while integer(ContinueLoop) <> 0 do begin

 

if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)

 

or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then begin

 

ProcessId:= FProcessEntry32.th32ProcessID;

 

result := true;

 

break;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

 

CloseHandle(FSnapshotHandle);

 

end;

 

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

 

Pid : dword;

 

ker41280dll : String;

 

pker41280dll : Pointer;

 

ker41280prcess,bw41280 : Cardinal;

 

hRemote_Thread : Cardinal;

 

begin

 

ker41280dll := ExtractFilePath(Application.Exename)+Edit1.Text;

 

if ProcessExists('main.exe') then begin

 

if FileExists(ker41280dll) then begin

 

cmkGetID('main.exe',pid);

 

ker41280prcess:= OpenProcess(PROCESS_ALL_ACCESS, false, PID);

 

pker41280dll := VirtualAllocEx(ker41280prcess,nil, length(ker41280dll), MEM_COMMIT,PAGE_EXECUTE_READWRITE);

 

WriteProcessMemory(ker41280prcess, pker41280dll, PChar(ker41280dll), length(ker41280dll), bw41280);

 

CreateRemoteThread(ker41280prcess, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'),'Lo adLibraryA'), pker41280dll, 0, hRemote_Thread);

 

CloseHandle(ker41280prcess);

 

Timer1.Enabled:=False;

 

ShowMessage('DLL Injct Sucefull');

 

end

 

else begin

 

Timer1.Enabled:=False;

 

end;

 

end;

 

end;

 

end;

 

 

procedure TForm1.sButton1Click(Sender: TObject);

begin

timer1.Enabled:=true;

end;

 

procedure TForm1.sCheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked = False then begin

 

Timer1.Enabled:=False;

 

end

 

else begin

 

Timer1.Enabled:=True;

 

 

 

end;

 

end.

 

[Owner 8]

Nesta parte:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Você coloca assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E na procedure no Timer tem um end a mais, tire um.

Mas alguma coisa (: ?

[Lucasrrm 0]

olha la meu edit :D

 

.....

[Owner 8]

Parece que o Edit chama sedit e o mesmo com o CheckBox, chama scheckbox.

É porque você adicionou os componentes do Alpha Controls !

Só mudar isto coloca um s antes dos nomes dos componentes, exemplo:

if sCheckBox1.Checked = False then begin

[Lucasrrm 0]

é eu tinha percebido antes ... lembrei do alpha edit q tinha um ''s'' antes e fui ver.. eu terminei o injetor ficou bom e tals.. mas quando vai injetar da bug crash kkkkk

 

eu usei uma dll de um trainer lá.. que abriu perfeitamente em outro injetor q vinha junto :(

 

mas pelomenos eu consegui criar, vlw pela ajuda :)

[Vator 11]

Então a dúvida foi resolvida :confused: :suando:

[DragonBoss 9]

Dúvida resolvida.

 

[x] Tópico Fechado.