porttest newLISP: Racket: Porttest tests port connectivity. Example: porttest (C) 2013 KTG host: www.newlisp.org port: 80 Wed Dec 25 20:29:45 2013 www.newlisp.org 80 open Wed Dec 25 20:29:46 2013 www.newlisp.org 80 open My Computer Programs 2013.12.12
(newlisp) port scan http://www.h-i-r.net/2009/07/network-programming-and-distributed.html #!/usr/bin/newlisp (set 'params (main-args)) (when (< (length params) 5) (println "USAGE: " (params 0) " " (params 1) " host begin-port end-port") (exit)) (set 'host (nth 2 params)) (set 'bport (int (nth 3 params))) (set 'eport (int (nth 4 params))) (for (port bport eport) (print port) (set 'socket (net-connect host port 1000).. My Computer Programs 2013.07.22