scottchiefbaker

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump::Color;
use File::Basename;
use Getopt::Long;
use JSON::PP;
use Cwd 3.75 qw(abs_path);
use Time::HiRes qw(time);

scottchiefbaker

// https://github.com/rweather/arduinolibs/tree/master/libraries/Crypto
#include <SHA256.h>

#define HASH_SIZE 32 // Bytes
#define LED_PIN   2  // LED pin to blink while we crunch SHA256
#define debug     0

// SHA256 via C++ char strings (much faster than Arduino Strings)
char *sha256hex(const char *input, char *outhex) {
	SHA256 hash;

scottchiefbaker

import sys

# Make sure we have enough arguments to start
if len(sys.argv) != 3:
    print("Usage: %s [base] [Sekrit Message]" % sys.argv[0])
    exit()

# Print out the letter base, and build the dictionary
dict = {}
for i in range(1,27):

scottchiefbaker

#!/usr/bin/perl

###################################################
# Scott Baker - 2008-03-06
# Released under the GPLV3
#
# A simple script to roll dice, or multiple dice
# Example: Roll two d20 and add 10
#          ./dice_roll.pl 2d20+10
#

scottchiefbaker

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump::Color;
use Date::Parse;

###############################################################################
###############################################################################

scottchiefbaker

#!/bin/bash

# Turn on super debug mode
#set -x

for i in "$@"
do
        # Store the current directory
        od=$PWD
        #a=$(mktemp --directory) && cd $a

scottchiefbaker

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump::Color;
use Getopt::Long;
use JSON;

my ($all,$pretty,$create,$remove,$ssid,$site_id,$pwd);

scottchiefbaker

#!/usr/bin/perl

use Data::Dump::Color;
use File::Basename;

use strict;
use warnings;

my @profiles = (
	# VideoBW, AudioBW, VideoHeight

scottchiefbaker

#!/usr/bin/perl

########################################################################
# This script runs tcpdump on a specific NIC (defaults to eth1) and
# parses the output from that to calculate the top talked, both send
# and receive. After X second it will output who the top talkers were
# and continue to calculate
#
# Scott Baker - 2009-07-31
########################################################################

scottchiefbaker

package JSON::RPC::Client::Lite;

use HTTP::Tiny;
use vars '$AUTOLOAD';
use JSON;

#use Data::Dump::Color;

sub new {
        my ($class,$url,$opts) = @_;