saolsen

(defn reducer
  ;; Removes 5 and the item after it from a sequence.
  [{:keys [flag seq]} item]
  (cond
   flag       {:flag false :seq seq}
   (= item 5) {:flag true :seq seq}
   :else      {:flag false :seq (conj seq item)}))

(:seq (reduce reducer {:flag false :seq []} [1 2 3 4 5 6 7 8 9 10]))

saolsen

(ns markerbot.core
 (:require [taoensso.timbre :as log]
           [clojure.data.json :as json]
           [clojure.string :as s]
           [clj-http.client :as client])
  (:import (java.net Socket)
           (java.io PrintWriter InputStreamReader BufferedReader))
  (:gen-class))

;; marksy

saolsen

// paste into web console

s = document.createElement('script');
s.setAttribute("type", "text/javascript");
s.setAttribute("src", "http://ajax.googleapis.com/ajax/libs/jquery/1.8.0/jquery.min.js");
document.getElementsByTagName("head")[0].appendChild(s);

saolsen

#!usr/bin/env python
# Stephen Olsen
# Script used to hack the stripe ctf level 8 PasswordDB.
# Captures the flag!

import requests
import re
from BaseHTTPServer import BaseHTTPRequestHandler, HTTPServer

# global

saolsen

#!/bin/bash
lein upgrade
lein deps
lein uberjar my-main-namespace.core
cp ./*-standalone.jar ~/run.jar

saolsen

(ns jammer.crypto
  (:import
   (javax.crypto Mac)
   (javax.crypto.spec SecretKeySpec)
   (java.math BigInteger)))

;; Functions used for authenticating pusher clients.
;; The crypto stuff is ripped out of the middle of the real clojure
;; pusher library by bblimke
;; https://github.com/bblimke/clj-pusher