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