portscan.pas

OICQ黑客工具。可以查看对方IP地址

unit PortScan;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, NMUDP, Spin;

type
  TScannerDlg = class(TForm)
    SendList: TListBox;
    Splitter1: TSplitter;
    RecvList: TListBox;
    btnScan: TBitBtn;
    BitBtn2: TBitBtn;
    edStartAddr: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ScanUdp: TNMUDP;
    edAddrNum: TSpinEdit;
    procedure btnScanClick(Sender: TObject);
  private
    { Private declarations }
    procedure PingAddr(addr:string);
  public
    { Public declarations }
    class procedure Execute;
  end;

implementation
uses main;
{$R *.DFM}

procedure TScannerDlg.btnScanClick(Sender: TObject);
var
i:Integer;
addr:string;
begin
for i:=1 to edAddrNum.Value do
    begin
    addr:=edStartAddr.Text+'.'+IntToStr(i);
    PingAddr(addr);
    PingAddr(addr);
    PingAddr(addr);
    end;
end;

class procedure TScannerDlg.Execute;
begin
with TScannerDlg.Create(Application) do
    begin
    ShowModal;
    Free;
    end;
end;

procedure TScannerDlg.PingAddr(addr: string);
{var
buf:array [0..2048] of char;
i:Integer;}
begin
SendList.Items.Add('Scanning address:'+addr);
end;

end.