[Delphi] Tutorial - Criando um Honeypot

[TH3 CH4OS 3]

Olá , hoje eu vou ensinar como criar um Honeypot.

 

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.

• Entre
• ou
• Cadastre-se

 

vai ficar assim :

 

 

 

2 - Organizado os códigos

 

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

 

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

• Entre
• ou
• Cadastre-se

 

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

 

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

• Entre
• ou
• Cadastre-se

 

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

 

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

• Entre
• ou
• Cadastre-se

 

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

 

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

• Entre
• ou
• Cadastre-se

 

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.

• Entre
• ou
• Cadastre-se

 

3- Criando a lógica

 

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

 

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

• Entre
• ou
• Cadastre-se

 

No Evento , "OnClientDisconnect" coloque :

 

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

• Entre
• ou
• Cadastre-se

;

 

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

 

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

• Entre
• ou
• Cadastre-se

 

Agora no Evento "OnClientDisconnect" coloque :

 

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

• Entre
• ou
• Cadastre-se

 

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

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

• Entre
• ou
• Cadastre-se

 

Agora no Evento "OnClientDisconnect" coloque :

 

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

• Entre
• ou
• Cadastre-se

 

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

 

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

• Entre
• ou
• Cadastre-se

 

No Evento " OnClientDisconnect" coloque:

 

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

• Entre
• ou
• Cadastre-se

 

 

Tutorial by TH3 CH4oS

 

 

[edoO~' 0]

há bem legal..

usando sockets tudo fica mais fácil *-*

vlw por compartilhar

tentarei fazer

:)

 

#Edit

tem gente que nao tem socket...

ensine a instalar a package tbm

^^

[josezito 0]

Como faço para testar?

[~EvilCode 71]

Faça qualquer tipo de conecção com qualquer tipo de coisa na porta citada acima, com telnet, sockets, etc...

[nubatikaas_ 1]

Bom voutar a esse fórum e ver que ainda tem alguns tutoriais e péssimo saber q fui pego e por um programa que desse que rastreio meu ip msm com proxy

[josezito 0]

~EvilCode como faço para fazer uma dessas coneções

[TH3 CH4OS 3]

Coloca 1 ServerSocket , define a porta e faiz qui nem no tutorial, qualquer duvida me add pelo msn ( [email protected] )

[' newYork @ 5]

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.

• Entre
• ou
• Cadastre-se

 

Eu estou comecando em delphi, tem como explicar?

Valeu.

[Apster 0]

Muito bom, já testei aqui e funcionou. Parabéns

[TH3 CH4OS 3]

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.

• Entre
• ou
• Cadastre-se

 

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.

• Entre
• ou
• Cadastre-se

 

Qualquer dúvida é so falar.

[~EvilCode 71]

Socket.SenText

faltou uma letra..

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

• Entre
• ou
• Cadastre-se