Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
(ns fishing.core
(:use [postal.core]))
(def teachers
["みせられないよ!@cs.shinshu-u.ac.jp"])
(def mailing-list
(concat
teachers
(for [year (range 12 14)
number (map #(str (apply str (repeat (- 3 (count (str %))) \0)) %) (range 1 109))
alphabet [\h \d \a \g \b \f \k \c \j]]
(str year "T5" number alphabet "@shinshu-u.ac.jp"))))
(defn -main [& args]
(loop [mail-address mailing-list]
(when-not (empty? mail-address)
(println (first mail-address))
(println
(send-message {:host "smtp.gmail.com"
:user "icanspamfish"
:pass "見せられないよ!"
:ssl :yes!!!11}
{:from "icanspamfish@gmail.com"
:to (first mail-address)
:subject "【重要】スパムメールです"
:body [{:type "text/plain"
:content ""}
{:type :inline
:content (java.io.File. "/home/delihiros/spam.jpg")
:content-type "image/jpeg"}]})
(Thread/sleep 5000))
(recur (rest mail-address)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment