myscan example shows freebsd to be slow ?

[CaveGuy]

linux, freebsd and win 2012r2 are all running  as virtual machines on the same box, each running on one dedicated xeon 3.0g core.



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 Expand


#
# 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