The win 10 box is also on the same network connection, it is a new 7th generation I7 3.4g cpu with 8 cores proving the system speed has little to do with the net-connect timing.
While this is a useful example,
What I am fishing for is suggested additions to the ports scan list.
Code: Select all
#
# myhost is a FQDN or IP address
# ie. (myscan "test.example.com")
# (myscan "192.168.1.1")
#
(define (myscan myhost)
(setq timeout 500)
(println "Scanning: " myhost)
(dolist (plist myscan-list)
(setq myport (plist 0))
(if (set 'socket (net-connect myhost myport timeout))
(begin
(setq rtt (time (set 'socket2 (net-connect myhost myport (+ timeout 25))))
timeout (/ (+ rtt timeout 50) 2))
(println "open port: " myport " : " rtt "ms " (plist 1) )
(net-close socket2)
(net-close socket))
(print myport " \r")))
(println " ") )
#
(setq myscan-list '(
(7 "echo")
(9 "discard")
(11 "systat")
(13 "daytime")
(17 "qotd")
(18 "msp")
(19 "chargen")
(20 "ftp-data")
(21 "ftp")
(22 "ssh")
(23 "telnet")
(25 "smtp")
(37 "time")
(38 "rap")
(39 "rlp")
(42 "nameserver")
(43 "whois")
(49 "tacas")
(53 "domain")
(63 "whoispp")
(66 "sqlnet")
(67 "bootps")
(68 "bootpc")
(69 "tftp")
(70 "gopher")
(79 "finger")
(80 "http")
(81 "hosts2-ns")
(88 "kerberos")
(101 "hostname")
(102 "iso-tsap")
(107 "rtelnet")
(109 "pop2")
(110 "pop3")
(111 "sunrpc")
(113 "auth")
(115 "sftp")
(117 "uucp-path")
(118 "sqlserv")
(119 "nntp")
(123 "ntp")
(135 "epmap")
(137 "netbios-ns")
(138 "netbios-ds")
(139 "netbios-ssn")
(143 "imap")
(150 "sql-net")
(156 "sqlsrv")
(158 "pcmail-srv")
(161 "snmp")
(162 "snmptrap")
(170 "print-srv")
(179 "bgp")
(194 "irc")
(204 "isc")
(220 "imap3")
(322 "rtsps")
(349 "mftp")
(366 "alt-smtp")
(389 "ldap")
(443 "https")
(445 "microsoft-ds")
(464 "kpasswd")
(465 "smtps")
(507 "crs")
(512 "exec")
(513 "login")
(514 "cmd")
(515 "printer")
(519 "unix=time")
(520 "efs")
(522 "ulp")
(526 "tempo")
(529 "irc-serv")
(530 "courier")
(531 "conference")
(532 "netnews")
(540 "uucp")
(543 "klogin")
(544 "kshell")
(546 "dhcpv6-client")
(547 "dhcpv6-server")
(548 "afpovertcp")
(554 "rtsp")
(556 "remotefs")
(563 "nntps")
(565 "whoami")
(568 "ms-shuttle")
(569 "ms-rome")
(580 "sntp-heartbeat")
(587 "submission")
(593 "http-rpc-epmap")
(612 "hmmp-ind")
(613 "hmmp-op")
(636 "ldaps")
(666 "doom")
(691 "msexch-routing")
(749 "kerberos-adm")
(800 "mdbs_daemon")
(989 "ftps-data")
(990 "ftps")
(992 "telnets")
(993 "imaps")
(994 "ircs")
(995 "pop3s")
(1034 "activesync")
(1025 "trojan")
(1080 "socks")
(1109 "kpop")
(1110 "nfsd-status")
(1155 "nfa")
(1270 "opsmgr")
(1433 "ms-sql-m")
(1434 "ms-sql-s")
(1477 "ms-sna-server")
(1478 "ms-sna-base")
(1512 "wins")
(1524 "ingreslock")
(1607 "stt")
(1711 "pptconference")
(1723 "pptp")
(1731 "msiccp")
(1745 "remote-winsock")
(1755 "ms-streaming")
(1801 "msmq")
(1863 "msnp")
(1900 "ssdp")
(1944 "close-combat")
(2053 "knetd")
(2106 "mzap")
(2177 "qwave")
(2234 "directplay")
(2382 "ms-olap3")
(2383 "ms-olap4")
(2393 "ms-olap1")
(2394 "ms-olap2")
(2460 "ms-theater")
(2504 "wlbs")
(2525 "ms-v-worlds")
(2701 "sms-rcinfo")
(2702 "sms-xfer")
(2703 "sms-chat")
(2704 "sms-remctrl")
(2725 "msolap-ptp2")
(2869 "icslap")
(3020 "cifs")
(3074 "xbox")
(3126 "ms-dotnetster")
(3128 "trojan")
(3132 "ms-rule-engine")
(3268 "msft-gc")
(3269 "msft-gc-ssl")
(3343 "ms-cluster-net")
(3389 "ms-wbt-server")
(3535 "ms-la")
(3540 "pnrp-port")
(3544 "teredo")
(3587 "p2pgroup")
(3702 "ws-discovery")
(3776 "dvcprov-port")
(3847 "msfw-control")
(3882 "msdts1")
(3935 "sdp-portmapper")
(4350 "net-device")
(4400 "trojan")
(4500 "ipsec-msft")
(4899 "radmin")
(5000 "upnp")
(5191 "aol")
(5228 "google")
(5355 "llmnr")
(5357 "wsd")
(5358 "wsd")
(5678 "rrac")
(5679 "dccm")
(5720 "ms-licensing")
(6000 "trojan")
(5900 "vnc")
(6073 "directplay8")
(6112 "battlenet")
(8080 "http-alt")
(8222 "vmware")
(8333 "vmware")
(9535 "man")
(9753 "rasadv")
(10000 "webmin")
(11320 "imip-channels")
(12345 "trojan")
(15000 "kaspersky")
(16384 "cisco-rtp")
(20000 "usermin")))
myscan Linux 64bit vers 16.4.3
newLISP v.10.7.1 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h
scanning:
open port: 21 : 46.731ms. ftp
open port: 22 : 46.259ms. ssh
open port: 80 : 46.281ms. http
open port: 443 : 46.771ms. https
myscan FreeBSD 64bit vers 11.1
newLISP v.10.6.2 64-bit on BSD IPv4/6 UTF-8 libffi, options: newlisp -h
scanning:
open port: 21 : 129.836ms. ftp
open port: 22 : 228.404ms. ssh
open port: 80 : 123.528ms. http
open port: 443 : 116.864ms. https
myscan Win10 64bit
newLISP v.10.7.1 64-bit on Windows IPv4/6 UTF-8 libffi, options: newlisp -h
scanning:
open port: 21 : 46.882ms. ftp
open port: 22 : 46.876ms. ssh
open port: 80 : 46.879ms. http
open port: 443 : 46.882ms. https
myscan Win 2012r2
newLISP v.10.6.2 32-bit on Win32 IPv4/6 libffi, options: newlisp -h
Scanning:
open port: 21 : 46.874ms ftp
open port: 22 : 46.875ms ssh
open port: 80 : 46.874ms http
open port: 443 : 46.875ms https