[Delphi] DH Port Scanner 0.2

Iniciado por BigBear, 2 Agosto 2013, 23:50 PM

0 Miembros y 1 Visitante están viendo este tema.

BigBear

Un simple Port Scanner en Delphi.

Una imagen :



El codigo :

Código (delphi) [Seleccionar]

// DH Port Scanner 0.2
// Coded By Doddy H

unit port;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sGroupBox, sButton, IdTCPClient, sMemo, jpeg,
  ExtCtrls, ComCtrls, sStatusBar, sEdit, sLabel, IdBaseComponent, IdComponent,
  IdTCPConnection;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    sGroupBox2: TsGroupBox;
    sGroupBox3: TsGroupBox;
    sButton1: TsButton;
    sMemo1: TsMemo;
    Image1: TImage;
    sStatusBar1: TsStatusBar;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sLabel2: TsLabel;
    sEdit2: TsEdit;
    sLabel3: TsLabel;
    sEdit3: TsEdit;
    sButton2: TsButton;
    sButton3: TsButton;
    sButton4: TsButton;
    IdTCPClient1: TIdTCPClient;
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'matrix';
  sSkinManager1.Active := True;
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
  i: Integer;
begin

  sMemo1.Clear;

  For i := StrToInt(sEdit2.Text) to StrToInt(sEdit3.Text) do
  begin
    try
      begin

        sStatusBar1.Panels[0].Text := '[+] Scanning : ' + IntToStr(i);
        Form1.sStatusBar1.Update;

        IdTCPClient1.Host := sEdit1.Text;
        IdTCPClient1.port := i;
        IdTCPClient1.ConnectTimeout := 1;
        IdTCPClient1.Connect;

        sMemo1.Lines.Add('Port Open : ' + IntToStr(i));

        IdTCPClient1.Disconnect;

      end;
    except
      begin
        //
      end;
    end;

  end;
  sStatusBar1.Panels[0].Text := '[+] Finished';
  Form1.sStatusBar1.Update;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
  Abort;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
  ShowMessage('Contact to lepuke[at]hotmail[com]');
end;

procedure TForm1.sButton4Click(Sender: TObject);
begin
  Form1.Close();
end;

end.

// The End ?


Si quieren bajar el programa lo pueden hacer de aca.