一個(gè)簡(jiǎn)單的端口掃描程序：
addstr = "發(fā)現(xiàn)端口" & Str(port) & "打開(kāi)" & Space(5) Select Case port Case 7 plus = "ECHO服務(wù)" Case 21 plus = "FTP服務(wù)★★★★★" Case 25 plus = "SMTP服務(wù)★★" Case 43 plus = "Whois服務(wù)" Case 53 plus = "DNS服務(wù)☆" Case 80 plus = "HTTP服務(wù)★★★★★" Case 81 plus = "HOSTS2名稱(chēng)服務(wù)" Case 99 plus = "NCX99后門(mén)★★★★★" Case 110 plus = "POP3服務(wù)★★★★★" Case 111 plus = "Sun RPC服務(wù)★★" Case 135 plus = "本地服務(wù)" Case 137 plus = "NETBIOS 名稱(chēng)服務(wù)/流影POP" Case 138 plus = "NETBIOS 數(shù)據(jù)存儲(chǔ)服務(wù)" Case 139 plus = "NETBIOS 會(huì)議服務(wù)★★★" Case 119 plus = "NNTP虛擬服務(wù)" Case 163 plus = "SNMP服務(wù)" Case 443 plus = "https服務(wù)" Case 512 plus = "遠(yuǎn)程執(zhí)行服務(wù)" Case 513 plus = "login, remote login" Case 514 plus = "cmd, exec with auto auth." Case 600 plus = "Sun IPC服務(wù)器" Case 1080 plus = "SOCKS代理服務(wù)★★★" Case 1433 plus = "SQL服務(wù)器★★★" Case 3128 plus = "HTTP代理服務(wù)" Case 7626 plus = "木馬冰河★★★★★" Case 8080 plus = "HTTP代理服務(wù)" Case Else plus = "未知服務(wù)!"
標(biāo)簽：
Case
port
addstr
Select
上傳時(shí)間：
2013-12-16
上傳用戶(hù)：gtzj
