• 0
Sign in to follow this  
Chr0n0

Erro Ao Compilar...

Question

Ola galera, estou criando um mini firewall (muito simples) coloquei para ele somente monitorar 2 portas que podem ser invadidas para quando alguém tentar... o programa acusar e dar o IP do atacante.

Pois bem... ai vai a foto do erro.

aaaaaaaasdasdasdhl8.jpg

e o Souce dele

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FtpSrv, StdCtrls, ftpsrvC;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Netbus: TFtpServer;
    Subseven: TFtpServer;
    procedure NetbusClientConnect(Sender: TObject; Client: TFtpCtrlSocket;
      AError: Word);
    procedure SubsevenClientConnect(Sender: TObject;
      Client: TFtpCtrlSocket; AError: Word);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NetbusClientConnect(Sender: TObject;
  Client: TFtpCtrlSocket; AError: Word);
begin
    Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou netbus 1.x);
    netbus.DisconnectAll;
end;

procedure TForm1.SubsevenClientConnect(Sender: TObject;
  Client: TFtpCtrlSocket; AError: Word);
begin
      Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou subseven 1.x');
      subseven.DisconnectAll;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add('Monitorando');
   netbus.Start;
   subseven.start;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Memo1.Lines.Add('Monitoramento Parado');
    netbus.Stop;
    subseven.Stop;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Memo1.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Se alguém souber o que estou fazendo de errado, que me ajudar por favor... já tentei de tudo e nada...

:rolleyes:

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
Ola galera, estou criando um mini firewall (muito simples) coloquei para ele somente monitorar 2 portas que podem ser invadidas para quando alguém tentar... o programa acusar e dar o IP do atacante.

Pois bem... ai vai a foto do erro.

aaaaaaaasdasdasdhl8.jpg

Pela mensagem, na unit WSocket, ou em qualquer uma que ela utilize há a declaração de PSockAddr.

Dando uma pequisada, este tipo deveria ser um ponteiro para uma extrutura deste tipo (ver Torry's):

PSockAddr = ^TSockAddr;
TSockAddr = packed record
  Family: Word;
  Port: Word;
  Addr: Longint;
  Zeros: array[0..7] of Byte;
end;

Se realmente não está declarada em alguma das units utilizadas pela que está acusando o erro, talvez seja o caso de você declará-la lá.

Abraços

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this