Skip to content

Instantly share code, notes, and snippets.

View ios7deobfuscate.pl
#!/usr/bin/perl -pw
use strict;
# Sun 6 Jun 2004 Curtis Doty <Curtis@GreenKey.net>
# - modified Riku Meskanen's ios7decrypt.pl script
# - added WEP key translation and supposed extra keys
my @md5xlat = ( 0x64, 0x73, 0x66, 0x64, 0x3b, 0x6b, 0x66, 0x6f, # dsfd;kfo
0x41, 0x2c, 0x2e, 0x69, 0x79, 0x65, 0x77, 0x72, # A,.iyewr
0x6b, 0x6c, 0x64, 0x4a, 0x4b, 0x44, 0x48, 0x53, # kldJKDHS
@dotysan
dotysan / md5.gs
Last active Aug 13, 2020 — forked from KEINOS/md5.gs
GAS(Google Apps Script) user function to get MD5 hash or 4digit shortened hash for Multibyte(UTF-8, 2bytes character) environment.
View md5.gs
/**
* ------------------------------------------
* MD5 function for GAS(GoogleAppsScript)
*
* You can get a MD5 hash value and even a 4digit short Hash value of a string.
* ------------------------------------------
* Usage1:
* `=MD5("YourStringToHash")`
* or
* `=MD5( A1 )` with the same string at A1 cell
@dotysan
dotysan / ca-certgun-roster.sh
Last active Jan 3, 2019
California roster of handguns
View ca-certgun-roster.sh
#! /usr/bin/env bash
#
# fetches the California roster of handguns certified for sale
#
set -x
main() {
today=$(date +%F)
curl --verbose --output certguns-$today.html 'https://www.oag.ca.gov/firearms/certguns'
echo '"Manufacturer","Model","Gun Type","Barrel Length","Caliber","Expires"' >certguns-$today.csv
@dotysan
dotysan / java-buh-bye.sh
Created Sep 13, 2018
erradicate java on a Mac
View java-buh-bye.sh
sudo rm -rf \
/Library/Application\ Support/Oracle \
/Library/Internet\ Plug-Ins/JavaAppletPlugin.plugin \
/Library/Java \
/Library/PreferencePanes/JavaControlPanel.prefPane \
/Library/Preferences/com.oracle.java.Helper-Tool.plist
rm -fr \
~/Library/Application\ Support/Java \
~/Library/Application\ Support/Oracle \
@dotysan
dotysan / nsec3prober.py
Last active Oct 12, 2016
Probe DNS TLDs for NSEC3 usage.
View nsec3prober.py
#!/usr/bin/env python3
# Copyright (C) 2012 Internet Systems Consortium.
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SYSTEMS CONSORTIUM
# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
View dmarc-peek.sh
#! /usr/bin/env bash
#! /bin/bash
set -e
# associative arrays requre bash v4; here's cute way to find it
if [ ${BASH_VERSINFO[0]} -lt 4 ]
# BEWARE! exec in a subshell doesn't. So we must use `for shell in
# $(which -a bash)` instead of `which -a bash |while read shell`.
then for shell in $(which -a bash)
do if [ $("$shell" -c 'echo ${BASH_VERSINFO[0]}') -ge 4 ]
@dotysan
dotysan / mkcrypt.sh
Created Jun 17, 2016
Cheap attempt to generate a random password and its crypt-pw using mostly bash.
View mkcrypt.sh
#! /bin/bash -e
#
# Cheap attempt to generate a random password and its crypt-pw using mostly bash.
#
SALT="./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
mkapass() {
local len=${1-8}
while [ ${n:=1} -le $len ]
View remote-headless-nx.sh
#! /bin/bash -ex
#
# reminder/notes on how to remotely install NX over ssh
#
#there=${1-bonehead@192.0.2.1}
#ssh $there
cd ~/Downloads
# assuming this the latest version?
@dotysan
dotysan / remote-headless-brew.md
Last active Apr 18, 2017
Remotely install Homebrew over ssh.
View remote-headless-brew.md
@dotysan
dotysan / lacp.tcl
Created Jun 30, 2015
snippet to lean LACP members
View lacp.tcl
# also fill an array with port-channel members so we can exclude them
set LACP [list]
if {$showLACP =="" && $tcl_platform(machine) =="Switch"} {
foreach word [split [exec "show etherc summ | begin ^\[0-9]"]] {
if [string is integer -strict $word] {
set portchannel $word
}
if [regexp {(.*)\(P\)$} $word -> lacp] {
lappend LACP $lacp
} } }