Programa delphi gerar exe modificado.

[l-XMarceloX-l 1]

Eae gente '-'

 

Seguinte estou com uns probleminhas aqui com aquela funçãozinha que muitos trojans utilizam que é de gerar 1 *.exe modificado 1 server.

 

Eu fiz segui aguns tutos modifiquei uns criei fiz o Ka....a 4 e não ta dando certo.

Vamos ao um simples ex.

 

No programa a pessoa poew 1 Message em 1 edit.

 

Ele gera 1 exe para aparece a Message na label do exe gerado.

 

 

 

Ai vai o source pra vocês darem uma olhada.E se possível me ajudarem a arrumar esse probleminha.

 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils;

type
TForm1 = class(TForm)
btnGerar: TButton;
edtCaminho: TEdit;
Label1: TLabel;
edtMensagem: TEdit;
Label2: TLabel;
procedure btnGerarClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btnGerarClick(Sender: TObject);
var chunk : char;
h : file of char;
f : file of char;
origem, destino : string;
inicio, mensagem : string;
i : integer;
begin
origem := GetCurrentDir + '\' + 'base.exe';
destino := edtCaminho.Text;
inicio := 'msg:';
mensagem := edtMensagem.Text;

assignfile(h, origem);
assignfile(f, destino);
reset(h);
rewrite(f);
while not eof(h) do
begin
read(h, chunk);
write(f, chunk);
end;

for i:=1 to length(inicio) do
begin
chunk := inicio[i];
write(f, chunk);
end;

for i:=1 to length(mensagem) do
begin
chunk := mensagem[i];
write(f, chunk);
end;

closefile(h);
closefile(f);
showmessage('Ok');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edtCaminho.Text := GetCurrentDir + '\teste.exe';
end;

end.

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

• Entre
• ou
• Cadastre-se

 

 

Vlw gente pela atenção.

 

Att, Marcelo.

[~EvilCode 93]

Existem diversos meios de se fazer isso, um deles é você usar um .exe padrão em resource e editá-lo no ponteiro de uma variável global, outro meio é você fazr o outro .exe se ler na memória, ler no fim da memória física dele, e alterá-lo com o seu antes de salvá-lo, depois eu faço um exemplo.

[l-XMarceloX-l 1]

Existem diversos meios de se fazer isso, um deles é você usar um .exe padrão em resource e editá-lo no ponteiro de uma variável global, outro meio é você fazr o outro .exe se ler na memória, ler no fim da memória física dele, e alterá-lo com o seu antes de salvá-lo, depois eu faço um exemplo.

Blz Evil vlw ae pela ajuda :)

 

@...

 

Gente ajuda ae :(

[Mac! 1]

Não to entendendo a sua dúvida, mas se o que você quer é enviar uma mensagem para o outro executável então você pode utilizar um método simples que é conexão reversa usando os componentes "ClientSocket" e ServerSocket".

Leia este tópico Criando um Trojan Básico de Conexão Reversa onde você irá aprender a fazer o que eu descrevi acima, depois é só você modificar algumas coisas a depender de suas necessidades.

[l-XMarceloX-l 1]

Não to entendendo a sua dúvida, mas se o que você quer é enviar uma mensagem para o outro executável então você pode utilizar um método simples que é conexão reversa usando os componentes "ClientSocket" e ServerSocket".

Leia este tópico Criando um Trojan Básico de Conexão Reversa onde você irá aprender a fazer o que eu descrevi acima, depois é só você modificar algumas coisas a depender de suas necessidades.

Eae obrigado por tentar me ajudar, mas não é isso.

 

Precizo fazer meu programa. Gerar 1 exe modificado.

 

Para você entender melhor.

 

O client gerar o server personalizado ex:

 

 

label no-ip: teste.no-ip.com

label nome da vitima: Noob

 

dae quando clickar gerar no client ele gera o server configurado com o label nome da vitima e no-ip.

 

entendeu melhor ?

[O Peru 0]

glu :nao:

[Maverick_74 0]

acho q eu entendi

 

vc tem o exe1 e nele vc coloca alguma coisa escrita em memo

e depois vc clica em um botão e dai gera um exe2 com o q vc escreveu certo?

[flaviohero 9]

Colega como assim? quer abrir o novo programa mudando a form ou alterar a label?

 

Caso seja a label :

 

label1.caption:= 'noob'; Caso de erro tent sem ' to estudando vb confundi muito ..-

['Wolf~* 3]

Atenção !

 

Este tópico fora ressuscitado.

Não poste em tópicos cujo último post fora enviado a mais de 2 semanas.

Caso tenha alguma dúvida sobre o tópico, crie um post na área de dúvidas.

 

Tópico Fechado