Duvida [Resolvido]Editor

[Chavesvga]

bom vi que aqui tem bastante gente que gosta de ajudar e queria pedir uma ajuda

bom estou criando um trojan de conexão reversa estou usando sockets bom minha duvida eo seguinte

queria criar um editor de cliente socket para que quando eu digitar por exemplo um host no editor ele altomaticamente mudara a propriedade host do cliente socket

bom respovi pedir ajuda aqui pois ja pedi em outro forum e não me responderão e talvez aqui alguem possa me dar alguma dica


e descupe se meu primeiro post e uma duvida mais e que preciso saber como


ja consegui fazer um editor que mude a propriedade caption da label mais ja tente de todos os geitos mudar a propriedade host no editor mais nada

obrigado a todos

[Soultt]

clientsocket1.host:= edit1.text;

Poem isso em um button toda vez que apertar o button ele mudara o host colocando o texto que está no edit...

Mas se for pra literalmente automatico você pode fazer um if em um timer numa função que conta quantos caracteres tem e pronto depois eu vejo melhor isso to indo pra faculdade agora. boa sorte ai

[Chavesvga]

sim isso ja fiz e deu certo mais eu estou usando o clientesocket no servidor para fazer a conexao reversa ai nao teria como eu por no mesmo projeto pois quando a pessoa clicar no servidor ele altomaticamente ira esconder nos processos para ficar camuflado ai a pessoa nao podera altera a host para poder usar

intao a minha ideia e criar um editor e um projeto separado

eu estou tentando fazer assim

no servidor eu asssim

procedure TForm1.Label2Click(Sender: TObject);
var
Host : string;
begin
ExtractFromExe('Host',Host);
cs.Host := label2.Caption;
end;

e no editor eu coloquei assim

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit1.Text := opendialog1.FileName;
ShowMessage('Executavel Carregado !!');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
InsOrReplaceInFile('Host',edit1.Text,edit2.Text);
end;

end.

mais nao quer dar certo to a dias tentando mais nada ja tente de varios modos e nada

se ´poder dar alguma ideia de como fazer

[Soultt]

acho que é porque host é só um nome...

tenta mudar ClientSocket1.Address:= label2.caption
e desative o client antes de mudar o address no seu exemplo exemplo...

procedure TForm1.Label2Click(Sender: TObject);
var
Host : string;
begin
ExtractFromExe('Host',Host);
cs.active:= false;
cs.Host := label2.Caption;
cs.active:= true;
end;

[Chavesvga]

irei tentar esse modo que me passou depois eu edito e falo o resultado mais mesmo

assim obrigado por esta tenta me ajudar

[Soultt]

ops equeci de mudar lá cs.host pra cs.address





(Edit pos post)

[Chavesvga]

descupe por demorar responder e que esta muito ocupado esses dias

mais ainda nao consegui eu queria mesmo e alterar a propriedade host do cliente socket no editor

pois quando o usurio alterar o host no editor exemplo colocando o hostteste.no-ip.biz ele altera no servidor no componente cliente socket a propriedade host. E assim o usuario podera mandar seu server para qualquer pessoas e acessar pelo cliente as funçoes

o trojan ja esta basicamente feito so falta esse editor que estou tentando de tudo e nao estou conseguindo nao queria copiar de nenhum outro trojan feito e sim criar o meu proprio por isso que queria ajuda de alguem

mais irei por os devidos creditos a quem me ajudar no trojan vlw galera

[wendel]

Olá, a resposta pra sua duvida é simples, veja bem:

No cliente:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if opendialog1.Execute then
  begin
   Edit1.Text := OpenDialog1.FileName;
   ShowMessage('Executavel Carregado !!');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 InsOrReplaceInFile('Host',Edit1.Text,Edit2.Text);
end;

No Server:

procedure TForm1.FormCreate(Sender: TObject);
var
 Host: String;
begin
 ExtractFromExe('Host',Host);
 CS.Host := Host;
 Label1.Caption := CS.Host;
end;

Obs. O uso do label é somente para visualizar o Host, verificar se realmente alterou.

[praTes]

Caso sua duvida seja esclarecida volte e poste, para assim podermos tracar o post!

[Chavesvga]

ok descupe a demora rsrs

bom ja consegui

obrigado wendel graça a sua ajuda notei o erro que estava tendo agora esta funfando tudo ok

muito obrigado mesmo


agora esta certo o editor editar a propriedade host do cliente socket assim qualquer pessoa pode usa-lo pondo seu no-ip no host e isso que queria

pode fexar o topico mais um vez obrigado