Skip to content

Instantly share code, notes, and snippets.

@scottchiefbaker
scottchiefbaker / reencode
Last active Jun 24, 2021
FFMPEG reencode helper script
View reencode
#!/usr/bin/env 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);
View SHA256.ino
// 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
scottchiefbaker / jsonrpc-client.class.php
Last active May 22, 2018
Move to Curl instead of file_get_contents
View jsonrpc-client.class.php
<?php
// Create the client object
// $url = "https://scott.internal.web-ster.com/api/json-rpc/";
// $j = new jsonrpc_client($url);
// Run the echo_data() function
// $a = $j->echo_data('one','two');
// if $a === null, there was some sort of error
View roland-secret-code.py
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):
View dice_roll.pl
#!/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
#
View mitel-parse.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump::Color;
use Date::Parse;
###############################################################################
###############################################################################
@scottchiefbaker
scottchiefbaker / cbr2cbz
Created Dec 4, 2017
Convert .cbr to .cbz
View cbr2cbz
#!/bin/bash
# Turn on super debug mode
#set -x
for i in "$@"
do
# Store the current directory
od=$PWD
#a=$(mktemp --directory) && cd $a
View unifi-admin.pl
#!/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);
View make-hls.pl
#!/usr/bin/perl
use Data::Dump::Color;
use File::Basename;
use strict;
use warnings;
my @profiles = (
# VideoBW, AudioBW, VideoHeight
View dos_capture.pl
#!/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
########################################################################