一個簡單的端口掃描程序:
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