Un simple Port Scanner en Delphi.
Una imagen :
(http://doddyhackman.webcindario.com/images/dhportscanner.jpg)
El codigo :
// 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 (https://sourceforge.net/projects/dhportscanner/).