gistfile1.txt

(ns moob.sslbs
  (:import (java.io InputStreamReader Reader)
           (java.net URL
                     URLConnection)
           (javax.net.ssl HostnameVerifier HttpsURLConnection
                          SSLContext SSLSession TrustManager
                          X509TrustManager)
           (java.security cert.X509Certificate SecureRandom)))

(defn disable
  []
  (let [ tm (into-array TrustManager
                        [(proxy [X509TrustManager]
                          []
                          (getAcceptedIssuers [] nil)
                          (checkClientTrusted [certs auth-type])
                          (checkServerTrusted [certs auth-type]))])
         sslctx (SSLContext/getInstance "SSL")
       ]
    (.init sslctx nil tm (SecureRandom.))
    (HttpsURLConnection/setDefaultSSLSocketFactory (.getSocketFactory sslctx))))