Minecraft alts searcher -- Find the alts of a player based on IP by searching through the logs

alts.clj

(use 'clojure.set)

(defn get-map [prev filename]
  (let [filename (str "./logs/" filename)
        reg (re-seq #"(\S+)\[/(.+):"
                    (with-open [in (if (nil? (re-matches #"^.*gz$" filename))
                                     (clojure.java.io/input-stream filename)
                                     (java.util.zip.GZIPInputStream.
                                       (clojure.java.io/input-stream filename)))
                                ]
                      (slurp in)))]
    [(reduce
       (fn [a b]
         (let [username (get b 1)
               ip (get b 2)]
           (update a ip
                   clojure.set/union #{username}
                   )))
       (first prev)
       reg)
     (reduce
       (fn [a b]
         (let [username (get b 1)
               ip (get b 2)]
           (update a username
                   clojure.set/union #{ip}
                   )))
       (second prev)
       reg)
     ]))

(let [[ips players]
      (doall (reduce
               get-map
               [{} {}]
               (.list (clojure.java.io/file "./logs/"))))]
  (println
    (map (fn [x]
           (reduce
             (fn [a b]
               (clojure.set/union a (get ips b)))
             #{}
             (get players x)
             ))
         *command-line-args*
         )))

Minecraft free java acunt