gray

use Crypt::OpenSSL::Bignum;
use Crypt::OpenSSL::EC;
use Crypt::RIPEMD160;
use Digest::SHA qw(sha256);
use Encode::Base58::GMP;

sub wif2addr {
    my $wif = shift;

    my $bytes = pack 'H*', decode_base58($wif, 'bitcoin')->Rmpz_get_str(16);

gray

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Compress::LZ4;
use JSON::MaybeXS;
use Path::Tiny;

# Firefox doesn't store session cookies in the sqlite database, so

gray

#!/usr/bin/env perl
use 5.012;
use warnings;

use XML::LibXML::Reader;

my $reader = XML::LibXML::Reader->new(IO => \*STDIN);
my $xpc = XML::LibXML::XPathContext->new;
$xpc->registerNs('w', 'http://www.mediawiki.org/xml/export-0.10/');

gray

// ==UserScript==
// @name        SolveMedia Captcha Tweaks
// @namespace   http://gist.github.com/gray
// @description Make the SolveMedia captcha less annoying
// @include     *
// @grant       none
// ==/UserScript==

// Remove the captcha iframe wrapper from the tab order, so a single tab
// brings focus to the input field.

gray

#!/usr/bin/env perl
use 5.012;
use warnings;

use File::Temp;
use IPC::System::Simple qw(capture system);
use LWP::UserAgent;
use URI;
use URI::QueryParam;

gray

bitcoin-cli listunspent 0 \
| jq -r 'group_by(.address) | map({
    address: .[0].address,
    amount: map(0, select(.spendable == true).amount) | add
}) | .[] | .address + ": " + (.amount | @text)' \
| awk '{printf "%s %.8f\n", $1, $2}' \
| sort -n -r -k 2

gray

# This will capture the contents of the div of interest, including any nested div tags.
use 5.010;
my ($div) = $content =~ m[
    \Q<div id="matchme">\E
    ( (?> [^<]++ | <(?!/?div\b) | <div\b[^>]*+>(?1)</div> )*+ )
    </div>
]x;

gray

<?php

$text = isset($_GET['t']) ? $_GET['t'] : '0.0000005';

$width = 140;
$height = 32;

$img = imagecreate(140, 32);

$white = imagecolorallocate($img, 255, 255, 255);

gray

#!/usr/bin/env perl
use 5.014;
use warnings;

use Carp::Always;
use ElasticSearch;
use File::Spec::Functions qw(catfile tmpdir);
use LWP::UserAgent;
use PerlIO::gzip;

gray

#!/usr/bin/env perl
use 5.016;
use warnings;
use JSON;
use ORLite ();

my $file = shift or die 'Feed me firefox cookies sqlite file';

ORLite->import({ file => $file, package => 'DB' });