端口扫描器的代码

addstr = "发现端口" & Str(port) & "打开" & Space(5) Select Case port Case 7 plus = "ECHO服务" Case 21 plus = "FTP服务★★★★★" Case 25 plus = "SMTP服务★★" Case 43 plus = "Whois服务" Case 53 plus = "DNS服务☆" Case 80 plus = "HTTP服务★★★★★" Case 81 plus = "HOSTS2名称服务" Case 99 plus = "NCX99后门★★★★★" Case 110 plus = "POP3服务★★★★★" Case 111 plus = "Sun RPC服务★★" Case 135 plus = "本地服务" Case 137 plus = "NETBIOS 名称服务/流影POP" Case 138 plus = "NETBIOS 数据存储服务" Case 139 plus = "NETBIOS 会议服务★★★" Case 119 plus = "NNTP虚拟服务" Case 163 plus = "SNMP服务" Case 443 plus = "https服务" Case 512 plus = "远程执行服务" Case 513 plus = "login, remote login" Case 514 plus = "cmd, exec with auto auth." Case 600 plus = "Sun IPC服务器" Case 1080 plus = "SOCKS代理服务★★★" Case 1433 plus = "SQL服务器★★★" Case 3128 plus = "HTTP代理服务" Case 7626 plus = "木马冰河★★★★★" Case 8080 plus = "HTTP代理服务" Case Else plus = "未知服务!"