端口扫描器的设计与实现-端口扫描器源码

多线程（端口扫描器）是如何提高程序的执行效率的？

你认为多线程CPU时间片不断切换是影响多线程执行的原因，对吧。

但是呢，要知道现在CPU主频都是很快的（微秒级甚至纳秒级），所以有一些操作CPU只需要很少时间就可以完成了，其它的时间，如果没有主动调度它，CPU都处于空闲状态。比方说，TCP/UDP连接时，一方发出数据包，在等待另一方返回数据包的过程中（毫秒级）（最简单的，可以参考TCP三次握手的过程），这段时间就处于空闲状态。

这就是多线程为什么高效率的原因了，操作系统可以充分把这毫秒级的时间利用起来，发起另一个TCP连接，然后再在这个连接的网络延迟时间内，继续新的连接扫描……

这就是多线程的优势了，楼主忽略了多线程可以利用CPU空余时间这个关键问题，哪怕多线程之间的时间片会额外花费更多的CPU时间，但是空余时间的利用完全可以弥补这相当小的开销。

求IP端口扫描器的VB源码

'4个TEXTBOX控件，2个COMMANDBUTTON控件，一个WINSOCK控件

Dim portnum As Long

Dim start As String

Sub scanningports()

Dim porttwo As Long

portnum = Text1.Text

porttwo = Text2.Text

Command2.Enabled = True

On Error GoTo viriio

Do

portnum = portnum + 1

DoEvents

If start = True Then

'关闭当前WINSOCK

Winsock1.Close

'防止系统冻结

DoEvents

Winsock1.LocalPort = portnum

DoEvents

Text3.Text = portnum

Winsock1.Listen

DoEvents

Else

portnum = 0

Command1.Enabled = True

Text1.Locked = False

Text2.Locked = False

Exit Sub

End If

Winsock1.Close

DoEvents

Loop Until portnum = porttwo

portnum = 0

Command1.Enabled = True

logport.Text = logport.Text vbCrLf "Scanning Ports Done!" vbCrLf

Text1.Locked = False

Text2.Locked = False

viriio:

If Err.Number = 10048 Then

logport.Text = logport.Text vbCrLf "端口" Winsock1.LocalPort " 开启中"

Resume Next

End If

End Sub

Private Sub Command1_Click()

Command2.Enabled = True

If Text1.Text = "" Then

MsgBox "你必须指定开始端口号！"

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "你必须指定一个结束端口号"

Exit Sub

End If

Text1.Locked = True

Text2.Locked = True

Command1.Enabled = False

Winsock1.Close

start = True

Call scanningports

logport.Text = logport.Text vbCrLf "端口" Text1.Text "- " Text3.Text " 已经成功扫描！"

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

start = False

End Sub

设计一个判断端口是否开启的扫描器程序的源代码怎么写？

for(int i=0;i6;i++)

{

for(int j=0;j10;j++)

{

theport[j].rmt_host=rmt_host;

theport[j].p=port[i*10+j];

theport[j].n=j;

Thread[j]=AfxBeginThread(pScan,(LPVOID)theport[j]);

//启动端口扫描线程

hThread[j]=Thread[j]-m_hThread;

Sleep(1);

}

WaitForMultipleObjects(10,hThread,TRUE,120000);

}

//扫描模块代码

SOCKET sockfd;

SOCKADDR_IN addr;

sockfd = socket(AF_INET, SOCK_STREAM, 0);

if (sockfd 0)

{

exit(0);

}

addr.sin_family = AF_INET;

addr.sin_port = htons(port);

addr.sin_addr.s_addr = inet_addr(rmt_host);

int r = connect(sockfd,(struct sockaddr *) addr, sizeof(addr));

//尝试连接端口进行检测

closesocket(sockfd);

//连接返回值处理

if (r!=-1)

{

::PostMessage(hWnd,WM_DISPLAY,port,0);

}

//显示端口扫描结果

LONG CScanDlg::OnDisplay(LONG lParam, UINT wParam)

{

LPSERVENT bar;

CString open;

int p=lParam;

bar = getservbyport(htons(p),"tcp");

open.Format("\t%d号端口(%s)开放!\r\n",p,(bar == NULL) ? "未知" :

bar-s_name);

m_HistoryEdit.AppendString (open);

return 0;

}