实现扫描单个端口的程序???(100分)

各位用过冰河吧...里面自带了一个扫描器,可以实现扫描单个端口.哪位高手能讲一下原理,,,最好有DELPHI代码,在下在此先谢了....

你可以使用一个Socket来连接你要扫描的端口，如果端口是开放的，那么这个连接会成功的，否则就是关闭的。对于远程机器的端口，采用一样的方法，但如果连接不上的话，有两种可能：相应端口关闭或者超时，但也是一种扫描的方法。
下面是我自己做的一个小程序，支持本地和远程的多端口连续扫描和单端口扫描：
var
addr:TSockAddr;
m_sock:TSOCKET;
flag:boolean;
procedure TForm1.Port(src,dest:integer;ip:string);
var
i:integer;
begin
memo1.Lines.Add('端口号 状态');
memo1.Lines.Add('------------------------------');
if dest=0 then
begin
addr.sin_family:=AF_INET;
addr.sin_port:=htons(word(src));
addr.sin_addr.S_addr:=inet_addr(pchar(ip));
m_sock:=socket(AF_INET,SOCK_STREAM,0);
if connect(m_sock,addr,sizeof(addr))=0 then
begin
memo1.Lines.Add(inttostr(src)+' 开放的');
end
else
begin
memo1.Lines.Add(inttostr(src)+' 关闭的');
end;
closesocket(m_sock);
end
else
begin
if dest<=src then
begin
showmessage('端口值设置不合理，请看说明！');
end
else
begin
for i:=src to dest do
begin
if flag then
begin
addr.sin_family:=AF_INET;
addr.sin_port:=htons(word(i));
addr.sin_addr.S_addr:=inet_addr(pchar(ip));
m_sock:=socket(AF_INET,SOCK_STREAM,0);
if connect(m_sock,addr,sizeof(addr))=INVALID_SOCKET then
begin
memo1.Lines.Add(inttostr(i)+' 开放的');
end
else
begin
memo1.Lines.Add(inttostr(i)+' 关闭的');
end;
closesocket(m_sock);
m_sock:=0;
application.ProcessMessages;
end
else
break;
end;

end;
end;
memo1.Lines.Add('------------------------------');
memo1.Lines.Add('注：显示关闭的端口可能有两种情况');
memo1.Lines.Add('1：端口真的关闭了！');
memo1.Lines.Add('2：可能网络不通，导致数据连接失败，返回端口关闭的信息');
memo1.Lines.Add('---------'+formatdatetime('yyyy/mm/dd hh:mm:ss',now()));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
WD:WSADATA;
begin
WSAStartup($202,WD);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
WSACleanup();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='') then
begin
showmessage('请将信息填写完整！');
exit;
end;
flag:=true;
if RadioButton1.Checked then
begin
port(strtoint(edit2.Text),0,edit1.Text);
end;
if (RadioButton2.Checked)and (edit3.Text<>'') then
begin
port(strtoint(edit2.Text),strtoint(edit3.Text),edit1.Text);
end
else
showmessage('请将信息填写完整！');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
flag:=false;
closesocket(m_sock);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
filestr:string;
begin
filestr:=changefileext(application.ExeName,'.log');
memo1.Lines.SaveToFile(filestr);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo1.Lines.Clear;
end;
不知道对你是否有用？
tufeiping@vip.sina.com

端口扫描最好用原始套接字来做，可以知道该端口是开发的，还是关闭的。同时还可以根据返回的值不同，确定它是否是装了防火墙等等。网上关于这方面的资料是很多的，可以查找端口扫描即可。采用原始套接字要注意的有以下几点：
1、要构造tcp头，ip头，伪tcp头（没有用，主要用于计算校验和）。
2、需要绑定一个socket来监听，同时采用wsaioctl设置SIO_RCVALL。
3、对接收返回值进行分析，从而得知该端口是什么情况。可以参考：tcp-ip详解卷1：协议.txt

如果有空，我就c的程序改写成delphi的程序放上来。

大家快多帖些代码啊....
晶晶老兄的代码编译没通过,郁闷!!!
能不能说一下每个组件的意思,,,谢谢

多人接受答案了。