盒子论坛 v2.1

  这个小程序使用winsock编写一个端口扫描器，在只扫描一个端口的时候完全可以成功。在加入连续扫描仪一片端口的循环处理的时候出了问题，搞了很久也没有弄明白，想请这里的高手帮帮忙解答一下我的疑惑。
1。思路
   在程序中有个connect(sockhd,serv_addr,sizeof(serv_addr));来连接，如果成功就说明，连接时候使用的端口是开放的，这时候会把连接成功的消息FD_CONNECT交给程序中的socketevent负责处理，在memo中输出此端口开放。
2。疑惑
   如果加入循环，比如扫描1400-1450端口，单步运行的时候发现，当发现1433端口打开的时候，连接成功的消息不会立刻交给socketevent处理，而要等所有的端口都扫描完的时候，再把所有连接成功的消息交给socketevent处理，但是这时候端口已经循环到了最后，说开放的端口全部是1450。例如，假设1433和1444是开放的，我扫描出的结果会出现2个开放端口，全部报出是1450开放。

代码如下：
=========================================================================
unit Unit1;

interface

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

const wm_socket=wm_user+1; //socket消息

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;

    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);  //处理socket消息
  private
    sockhd:integer; //socket句柄
    serv_addr:Tsockaddr; //目标地址
    procedure sockevent(var msg1:Tmessage);message wm_socket;

    procedure DspMsg(msg:string);  //显示信息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  port:integer;

implementation

{$R *.dfm}
function lookup_hostname(const hostname:string):longint;  //把域名转化成IP地址
var
remotehost:PHostEnt;
ip_address:longint;
begin
ip_address:=-1;
try
  if hostname='' then
  begin
       lookup_hostname:=ip_address;
       EXIT;
  end
  else
  begin
  ip_address:=winsock.inet_addr(pchar(hostname));
  if ip_address=SOCKET_ERROR then begin
  RemoteHost:=winsock.gethostbyname(pchar(hostname));
  if (remotehost=NIL) or (remoteHost^.h_length<=0) then
  begin
  lookup_hostname:=ip_address;
  EXIT;
  end
  else
  ip_address:=longint(pointer(remotehost^.h_addr_list^)^);
  end;
  end;
except
  ip_address:=-1;
end;
  lookup_hostname:=ip_address;
end;

procedure TFOrm1.DspMsg(msg: string);
begin
memo1.Lines.Add(msg+'...');
if
Memo1.Lines.Count>200
then
Memo1.Lines.Delete(0);
end;

procedure TForm1.SockEvent(var msg1:tmessage); //处理socket消息
begin

if  msg1.LParam=FD_CONNECT   then
begin
dspmsg('端口'+inttostr(port-1)+'开放');
memo1.Lines.add(inttostr(winsock.FD_CONNECT));
//表示对方端口开放
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var wsaData:TwsaData;
begin //启动winsock动态链接库
memo1.Lines.Clear;

if WSAStartup (makeword(2,2), wsaData)<>0 then
begin
messagebox(application.handle,'无法启动winsock动态连接库!','警告',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
Application.Terminate;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin //关闭dll
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
var flag:boolean;
begin

Sockhd:=socket(AF_INET,SOCK_STREAM,0); //创建socket句柄
if Sockhd<0 then
begin
messagebox(application.handle,'无法创建句柄!','警告',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
exit;
end;

Serv_addr.sin_addr.s_addr:=lookup_hostname(edit1.Text); //主机名
Serv_addr.sin_family:=PF_INET;
Serv_addr.sin_port:=htons(port);

//for cir:=0 to strtoint(edit3.Text)-strtoint(edit2.Text)-1 do  //对指定端口进行循环扫描
//begin

    if WSAasyncSelect(Sockhd,Form1.handle,WM_SOCKET,FD_ACCEPT or FD_CONNECT or FD_CLOSE or FD_READ or FD_WRITE)=SOCKET_ERROR
    then
     begin
     messagebox(application.handle,'无法创建句柄!','警告',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
     exit;
     end; //异步socket

connect(sockhd,serv_addr,sizeof(serv_addr)); //连接,如果可以连接，结果会在前面的处理函数sockevent处理

end;

procedure TForm1.Button2Click(Sender: TObject);
var cir:integer;//端口循环计数器
begin
port:=strtoint(edit2.text);
for cir:=strtoint(edit2.Text) to strtoint(edit3.Text) do  //对指定端口进行循环扫描
begin
  memo1.lines.Add('scaning port'+inttostr(port));
  button1.Click;

  //edit4.Text:=inttostr(port);
  port:=port+1;

end;

end;

end.
----------------------------------------------
-

信息

登陆以后才能回复