一個簡單的端口掃描程序：
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 = "未知服務!"
標簽：
case
port
addstr
Select
上傳時間：
2013-12-16
上傳用戶：gtzj
