 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
ProgramadorBuiu
Novato
Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 8
|
 Enviada: Ter Fev 11, 2020 12:41 pm Assunto: Fazer HoneyPot em Delphi(Tenho o código fonte) |
 |
|
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 |
|
 |
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
|
| Voltar ao Topo |
|
|
ProgramadorBuiu
Novato
Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 8
|
| Enviada: Ter Fev 11, 2020 3:56 pm Assunto: OK |
|
|
Era isso mesmo,componet TClientSocket e TServerSocket da paleta Internet.Obrigado pela ajuda. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
