ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Fazer HoneyPot em Delphi(Tenho o código fonte)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ProgramadorBuiu
Novato
Novato


Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 7

MensagemEnviada: Ter Fev 11, 2020 12:41 pm    Assunto: Fazer HoneyPot em Delphi(Tenho o código fonte) Responder com Citação

Pessoal,estou fazendo um HoneyPot em Delphi,só que os componentes eu não sei fazer,como por exemplo o Componente TSocket,entre outros,me ajudem.

Código:

unit Frm1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    CheckBox5: TCheckBox;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    GroupBox4: TGroupBox;
    Memo2: TMemo;
    MainMenu1: TMainMenu;
    Arquivo1: TMenuItem;
    Salvar1: TMenuItem;
    Sobre1: TMenuItem;
    Sobre2: TMenuItem;
    elnet1: TMenuItem;
    Desktop1: TMenuItem;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure TelnetClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure TelnetClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FtpClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure hTTPClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure SShClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure OutraClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure TelnetClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure FtpClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure hTTPClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure SShClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure OutraClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Telnet1Click(Sender: TObject);
    procedure Desktop1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Telnet.Active:= True;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Ftp.Active:= True;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
hTTP.Active:= True;
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
ssh.Active:= True;
end;
 
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
oUTRA.Port := StrToInt(Edit1.Text);
Outra.Active := True;
end;
 
procedure TForm1.TelnetClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.Connected = True Then
Socket.SendText('Dgite seu Login e senha para acessar o pc : !');
Memo1.Lines.Add('Porta 23 Sendo atacada!');
memo1.Lines.Add(Socket.RemoteAddress);
end;
 
procedure TForm1.TelnetClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Clear;
end;
 
procedure TForm1.FtpClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.Connected = True Then
Socket.SendText('Dgite seu Login e senha para acessar o pc : !');
Memo1.Lines.Add('Porta 21 Sendo atacada!');
memo1.Lines.Add(Socket.RemoteAddress);
end;
 
procedure TForm1.hTTPClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.Connected = True Then
Socket.SendText('Dgite seu Login e senha para acessar o pc : !');
Memo1.Lines.Add('Porta 80 Sendo atacada!');
memo1.Lines.Add(Socket.RemoteAddress);
end;
 
procedure TForm1.SShClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.Connected = True Then
Socket.SendText('Dgite seu Login e senha para acessar o pc : !');
Memo1.Lines.Add('Porta 22 Sendo atacada!');
memo1.Lines.Add(Socket.RemoteAddress);
end;
 
procedure TForm1.OutraClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.Connected = True Then
Socket.SendText('Dgite seu Login e senha para acessar o pc : !');
Memo1.Lines.Add('Porta Escolhida Sendo atacada!');
memo1.Lines.Add(Socket.RemoteAddress);
end;
 
procedure TForm1.TelnetClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
 
procedure TForm1.FtpClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
 
procedure TForm1.hTTPClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
 
procedure TForm1.SShClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
 
procedure TForm1.OutraClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
 
 
 
procedure TForm1.elnet1Click(Sender: TObject);
begin
Winexec('Telnet',sw_show);
end;
 
procedure TForm1.Desktop1Click(Sender: TObject);
begin
Winexec('mstsc',sw_show);
end;
 
end.


Me ajudem por favor,sou iniciante,peguei o código com um amigo meu.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10527
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Fev 11, 2020 1:51 pm    Assunto: Responder com Citação

Você deve estar falando dos componentes TClientSocket e TServerSocket, se não me engano, eles não estão instalados nas versões mais novas, mas acho que ainda tem jeito de instalar através dos seus pacotes.

Dê uma olhada se você consegue instalar com instruções neste link:

http://docwiki.embarcadero.com/RADStudio/Rio/en/Installing_Socket_Components


A propósito, este código seu está faltando muita coisa, muita mesmo.

Veja se consegue dar uma melhorada com este aqui:
https://www.webcheats.com.br/topic/820157-delphi-tutorial-criando-um-honeypot/


Tem um outro aqui:
https://sourceforge.net/p/omnivora/code/HEAD/tree/


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
ProgramadorBuiu
Novato
Novato


Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 7

MensagemEnviada: Ter Fev 11, 2020 3:56 pm    Assunto: OK Responder com Citação

johnny-walker escreveu:
Você deve estar falando dos componentes TClientSocket e TServerSocket, se não me engano, eles não estão instalados nas versões mais novas, mas acho que ainda tem jeito de instalar através dos seus pacotes.

Dê uma olhada se você consegue instalar com instruções neste link:

http://docwiki.embarcadero.com/RADStudio/Rio/en/Installing_Socket_Components


A propósito, este código seu está faltando muita coisa, muita mesmo.

Veja se consegue dar uma melhorada com este aqui:
https://www.webcheats.com.br/topic/820157-delphi-tutorial-criando-um-honeypot/


Tem um outro aqui:
https://sourceforge.net/p/omnivora/code/HEAD/tree/


bye


Era isso mesmo,componet TClientSocket e TServerSocket da paleta Internet.Obrigado pela ajuda.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB