#include <winsock.h>
#define NETBIOSService 139 //139端口NETBIOS服务
#define WWWService 80 //80端口WWW服务
#define FTPService 21 //21端口FTP服务
//以上是针对服务器而言
#define BOService 31337 //BO木马的后门端口
#define NETSPYService 7306 //NETSPY木马的后门端口
#define BHService 7626 //冰河木马的后门端口
//以上是针对个人计算机
BOOL SERVERConn(hostent *SERHost,SOCKET SERSock,unsigned short nPort)
//连接函数，hostent结构见帮助
{
SOCKADDR_IN Sock_in; //结构见帮助
BOOL RetMsg;
Sock_in.sin_family=AF_INET; //连接类型
Sock_in.sin_port=htons(nPort); //所连接的主机端口
memcpy(&(Sock_in.sin_addr),SERHost->h_addr,sizeof(Sock_in.sin_addr)); //主机地址赋予结构以便下面调用
Application->ProcessMessages();
if((connect(SERSock,(LPSOCKADDR)&Sock_in,sizeof(Sock_in)))==SOCKET_ERROR) //开始连接并判断是否成功
{
RetMsg=FALSE; //此端口没有开放
closesocket(SERSock);
return RetMsg;
}
RetMsg=TRUE; //开放了
shutdown(SERSock,0); //不许端口接收、发送数据但保持连接状态
closesocket(SERSock); //成功后马上关闭，以免。。。
return RetMsg;
}
//----------------------------------------------------------------
//----------------------------------------------------------------
WSADATA wsaData; //WSADATA结构见帮助
SOCKET Sock;
hostent *HostMsg;
if(WSAStartup(MAKEWORD(1,1),&wsaData)!=NULL) //以WINSOCK1.1协议初始化
{
ShowMessage("初始化WINSOCK错误");
WSACleanup();
}
HostMsg=gethostbyname(Edit1->Text.c_str()); //获取主机信息
if(!HostMsg)
{
ShowMessage("主机名称错误,请检查IP地址");
WSACleanup();
}
else
if((Sock=(socket(AF_INET,SOCK_STREAM,0)))==SOCKET_ERROR) //SOCKET函数见帮助
{
ShowMessage("SOCKET错误");
closesocket(Sock);
WSACleanup();
}
if(SERVERConn(HostMsg,Sock,WWWService)) //调用SERVERConn函数连接
{
Label3->Font->Color=clRed;
Label3->Caption="发现服务"; //端口开放以红色显示
closesocket(Sock);
Sock=(socket(AF_INET,SOCK_STREAM,0));
}
else
{
Label3->Font->Color=clBlack;
Label3->Caption="没有发现服务"; //没有开放以黑色显示
closesocket(Sock);
Sock=(socket(AF_INET,SOCK_STREAM,0));
}
