eraserhd

#!/bin/bash

while read word
do
        printf 'Trying:%s\n' "$word"
        openssl pkcs12 -info -in ../prod_eriemobile.p12 -password pass:"$word" 2>/dev/null </dev/null
done

eraserhd

+ (void)load
{
    [self textFieldsCycleInThisOrder:@[@"_name", @"_address", @"_phone"]];
}

eraserhd

;; FizzBuzz

(define-macro (expect . args)
  (if (= 2 (length args))
    (let ((message (car args))
    (test-expression (cadr args)))
      `(if (not ,test-expression)
	 (raise ,message)))
    `(if (not ,(car args))
       (raise ',(car args)))))

eraserhd

// Yields the approximate result of a division by 1000.
// NOTE:  Can only be used for numbers less than 140,737,488,290
unsigned long quickDiv1000(unsigned long num)
{
  unsigned long result;

	result = num * 65 + (num >> 2) + (num >> 5) + (num >> 8)+ (num >> 11) + 32768;
	return (result >> 16);
}

eraserhd

;; Digits
(define (digit? c)
  (and (char>=? c #\0)
       (char<=? c #\9)))

(define (digit->integer c)
  (- (char->integer c)
     (char->integer #\0)))

eraserhd

(define (make-generator proc)
  (define restart #f)

  (define (generator)
    (call/cc
      (lambda (return-c)

        (define (return v)
          (set! return-c (call/cc

eraserhd

(namespace ("generics#"
  dispatch-generic
  generic-methods-box
  ))

(define-macro (define-generic form)
  `(define ,(car form)
     (let (($methods (box '())))
       (lambda args
	 (dispatch-generic (unbox $methods) args)))))

eraserhd

(defstruct start-options
  pivotal-story-id)

(defun parse-start-args (args)
  (loop with options = (make-start-options)
	until (null args)
	do (cond
	     ((equalp "-p" (first args))
	      (setf (start-options-pivotal-story-id options) (second args))
	      (setf args (cddr args)))

eraserhd

(defmacro binary (infix-op &key is)
  (let ((pattern (cond
		   ((not is)
		    `(,infix-op :left :right))
		   ((symbolp is)
		    `(,is :left :right))
		   (t
		    is))))
    `(cons ,infix-op #'(lambda (left right)
			 `( ; BRAIN FAIL HERE.

eraserhd

(require 'cl-test-more)
(defpackage infix
  (:use :cl :cl-test-more))
(in-package :infix)


(defun simple-binary (sym)
  #'(lambda (left right)
      (list sym left right)))