(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))
  (if socket (println " open") (println)))
(exit)