; Generate a list of random IPs to be fed into nmap so that nmap may scan
; aggressively but not swamp any given subnet within the 172.16.0.0/12 range.
;
; Licensed under the EPL. (fwiw  ;)

(use '[clojure.contrib.seq-utils :only (shuffle)]
     '[clojure.contrib.duck-streams :only (write-lines)])

(write-lines
  "./ips.txt"
  (shuffle
    (for [octet1 [172]
          octet2 (range 16 33)
          octet3 (range 256)
          octet4 (range 256)]
      (str octet1 \. octet2 \. octet3 \. octet4))))