daurnimator

#!/usr/bin/env lua

local rockspec_name = assert(arg[1])

local function log(level, fmt, ...)
	io.stderr:write(level .. "\t" .. string.format(fmt, ...) .. "\n")
end

local function append(tbl, ...)
	for _, v in ipairs {...} do

stucchio

from pylab import *
from numpy import *
from numpy.linalg import solve
from scipy.integrate import odeint
from scipy.stats import norm, uniform, beta
from scipy.special import jacobi



a = 0.0

pims

// tim$ go install
// tim$ cat logs | riakshell

package main

import (
	"bufio"
	"github.com/mrb/riakpbc"
	"io"
	"log"

vishvananda

#!/bin/bash

if [ "$4" == "" ]; then
    echo "usage: $0 <local_ip> <remote_ip> <new_local_ip> <new_remote_ip>"
    echo "creates an ipsec tunnel between two machines"
    exit 1
fi

SRC="$1"; shift
DST="$1"; shift

corsix

Exploiting Lua 5.1 on 32-bit Windows

The following Lua program generates a Lua bytecode program called ignore-unsigned-sga.fnt, which in turn loads a DLL from within an extremely locked down Lua 5.1 sandbox in a program called RelicCOH2.exe. The remainder of this document attempts to explain how this program works by a whirlwind tour of relevent bits of the Lua 5.1 virtual machine.

if string.dump(function()end):sub(1, 12) ~= "\27Lua\81\0\1\4\4\4\8\0" then
  error("This generator requires a 32-bit version of Lua 5.1")
end

local function outer()
  local magic -- In bytecode, the stack slot corresponding to this local is changed

tylerneylon

-- Two dashes start a one-line comment.

--[[
     Adding two ['s and ]'s makes it a
     multi-line comment.
--]]

----------------------------------------------------
-- 1. Variables and flow control.
----------------------------------------------------

daurnimator

local ret_code , n_jobs = ...
ret_code = tonumber ( ret_code )
n_jobs   = tonumber ( n_jobs ) or 0

local ffi = require "ffi"
ffi.cdef [[
	typedef uint32_t uid_t;
	uid_t geteuid(void);
	int gethostname(char *name, size_t namelen);
	char *getcwd(char *buf, size_t size);

daurnimator

if not sinatra.incoming ( ngx.req.get_method() , ngx.var.uri ) then
	return ngx.exit ( 404 )
end

daurnimator

do
	local function helper ( allowed , want )
		return ( not want.type or allowed.type == "*" or ( allowed.type == want.type and
					( not want.subtype or allowed.subtype == "*" or allowed.subtype == want.subtype ) )
				) and allowed.q ~= 0
	end
	function choose_type ( allowed_list , wanted_list )
		-- Remove items from allowed list that have no match (retains client ordering)
		local res = { }
		local allowed_wanted_map = { }

daurnimator

local select = select
local error = error
local cocreate , coresume , corunning , costatus , coyield = coroutine.create , coroutine.resume , coroutine.running , coroutine.status , coroutine.yield
local getinfo = debug.getinfo

local err_signifier = { }
local ec = { }


local function xpcall_resume ( co , hand , ok , ... )