saolsen

#lang racket
(define (get-spaces-inner n spaces)
  (define current-space (car spaces))
  (if (> current-space n)
      (cdr spaces)
      (get-spaces-inner n (cons (* current-space 2) spaces))))

(define (get-spaces n)
  (get-spaces-inner n '(1)))

saolsen

#include <stdlib.h>

int main(int nargs, char * args[])
{
    void* vp = malloc(sizeof(char) * 5);
    const char* ip = (char*)(vp);
    free(ip);
}

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

saolsen

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

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

// 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

(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

(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 game.macros.profiling)

;; Must require this and also
;; (:use [game.profiling :only [start-time! stop-time!]])

(defmacro profile
  "Wraps the body in the game.profiling calls"
  [function-name & body]
  `(let [profile# (start-time! ~function-name)
         result# ~@body]

saolsen

(ns saolsen.particles-simulate
  (:require [saolsen.draw-2d :as draw]))
;; Simple simulated neutonian physics.

(defn integrate-particle
  "Moves the particle a distance based on it's velocity
   P = P + V*dt
   Simple collisions with walls reverse velocity.
   Returns a new particle.
  "