Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[Delphi] Tutorial - Criando um Honeypot


TH3 CH4OS
 Compartilhar

Posts Recomendados

Olá , hoje eu vou ensinar como criar um

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

 

Delphi 2010

 

Instalando o "dclsockets140.bpl" , " Componente > Install Packages > Add >> va na pasta \Bin do Delphi 2010 e adicione dclsockets140.bpl > Abrir > Ok

 

No Delphi 7

 

Instalando o "dclsockets140.bpl" , " Componente > Install Packages > Add >> C:\Arquivos de Va na pasta \Bin do Delphi e adicione o seguinte arquivo , dclsockets70.bpl > Abrir > Ok

 

 

1 - Organizando o form

 

Adicione isso em seu form:

 

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

 

vai ficar assim :

 

 

honeypotd1.png

 

2 - Organizado os códigos

 

No checkBox1 , no evento " OnClick" coloque o seguinte código :

 

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

 

Agora no ChekBox2 , no evento " OnClick " coloque o seguinte código :

 

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

 

No Checkbox3 , novamente va no evento " OnClick" e coloque o código :

 

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

 

No CheckBox4 , novamente² va no evento " onClick " e coloque o código :

 

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

 

Agora vamos configurar o ultimo server a porta que o usuário vai definir , No CheckBox5 , no evento " OnClick " coloque :

 

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

 

3- Criando a lógica

 

Agora no " Telnet " , va no evento "OnClientConnect" e coloque :

 

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

 

No Evento , "OnClientDisconnect" coloque :

 

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

;

 

Depois de fazer isso , no "FTP" , no evento "OnClientConnect" coloque :

 

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

 

Agora no Evento "OnClientDisconnect" coloque :

 

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

 

No "HTTP" , no evento " OnClientConnect" coloque :

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

 

Agora no Evento "OnClientDisconnect" coloque :

 

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

 

Por Ultimo em " Outra" va no evento "OnClientConnect" e coloque :

 

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

 

No Evento " OnClientDisconnect" coloque:

 

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

 

honeypotfim.png

 

Tutorial by TH3 CH4oSskullblack.jpg

 

 

Link para o comentário
Compartilhar em outros sites

Muito bom Chaos, exelente programa, códificação fácil gostei mesmo.

Tem como voce me explicar a esta linha? :

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

 

Eu estou comecando em delphi, tem como explicar?

Valeu.

Link para o comentário
Compartilhar em outros sites

Muito bom Chaos, exelente programa, códificação fácil gostei mesmo.

Tem como voce me explicar a esta linha? :

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

 

Eu estou comecando em delphi, tem como explicar?

Valeu.

 

 

Socket.SendText : Envia um texto ao server.

Memo1.Lines.Add : Adiciona alguma coisa ao memo em formatado de linha ( Linha por linha )

TimeToStr(Time) : Pega o Tempo

 

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

 

Qualquer dúvida é so falar.

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.