Skip to content

Instantly share code, notes, and snippets.


Block or report user

Report or block rwat

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View is-rfc1918.clj
(ns your-namespace
(:use [clojure.string :only [split]]))
; authored by ordnungswidrig
(defn is-rfc1918?
"Returns true if a string is a dotted quad in the IP ranges of, or, else returns nil)"
[^String ip]
(when-let [[a b c d :as qs]
View udp_server.clj
(import '( InetAddress
(defn create-udp-server [& {:keys [local-ip local-port remote-ip remote-port]}]
(let [s (InetSocketAddress. (InetAddress/getByName local-ip) local-port)
r (InetSocketAddress. (InetAddress/getByName remote-ip) remote-port)
d (DatagramSocket. s)
udp-server (ref d)]
View udp_proof_of_concept.clj
(import '( InetAddress
; Create a SocketAddress object that holds the IP address and UDP port the
; socket will listen to.
(let [listener-ip ""
listener-port 29000]
View udp_testing.clj
(import '( InetAddress InetSocketAddress DatagramPacket DatagramSocket))
(def buf-len 1500)
; create a SocketAdress for the listener
(let [listener-port 29000
listener-ip ""]
(def l-socket-address (InetSocketAddress. (InetAddress/getByName listener-ip) listener-port)))
View gen-ips.clj
; 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 range.
; Licensed under the EPL. (fwiw ;)
(use '[clojure.contrib.seq-utils :only (shuffle)]
'[ :only (write-lines)])
View nmanage.clj
(ns nmanage)
(def running (atom true))
(defn process
(when @running
(prn "hi")
(Thread/sleep 1000))
You can’t perform that action at this time.