Skip to content

Instantly share code, notes, and snippets.

View jmcveigh's full-sized avatar

Jason McVeigh jmcveigh

View GitHub Profile
@jmcveigh
jmcveigh / commandlinefu-youtube-to-webm.pl
Last active July 9, 2016 18:45
This is a commandlinefu application to download a YouTube video and save as WebM (HTML 5 Streaming).
use common::sense;
# zenbae: you need -vf expand osd trick
# iive zenbae: -vf expand=osd=1
package Command {
use common::sense;
use MooseX::App::Simple qw(Color);
with 'MooseX::Role::Tempdir';
@jmcveigh
jmcveigh / pope-francis-declares-all-animals-goto-heaven.md
Last active July 4, 2016 12:46
Pope Francis Declares All Animals Go To Heaven

Pope Francis Declares All Animals Go To Heaven

Wednesday, November 19, 2014

This is a photograph of Pope Francis who is the boss of the International Catholic Church

Pope Francis has declared that all animals go to heaven during his weekly audience in St. Peter’s Square.

The Pope made these remarks after he received two donkeys as early Christmas presents. During his discussion, Pope Francis quoted the apostle Paul as he comforted a child who was mourning the death of his dog.

@jmcveigh
jmcveigh / p5-app-nuv.pl
Last active July 4, 2016 12:48
This writes to STDOUT the Ansi Art included as DATA_NUV_HEADER as colours using Inline::Files then new process with ProgressBar then exit.
use common::sense;
my ($max,$wrk) = (100, undef);
# below is the Worker1 routine
package Worker1 {
use Moose;
@jmcveigh
jmcveigh / tk-download-w-progressbar.pl
Last active June 30, 2016 17:21
This is a command application that will download a file and save to the specified filename showing a Tk progress bar window on the Desktop. (Tested @ 4.5GB)
#!/usr/bin/perl
use strict;
use warnings;
use threads;
use threads::shared;
use Tk;
use Tk::ProgressBar;
@jmcveigh
jmcveigh / ultimate-blackhat-movies.md
Last active April 10, 2020 18:46
Ultimate Blackhat Movies - Top 10 Coolest Movies for Hackers

Ultimate Blackhat Movies

Top 10 Coolest Movies for Hackers

  1. Sneakers
  • 1992
  • Computer hacker Martin (Robert Redford) heads a group of specialists who test the security of various San Francisco companies. Martin is approached by two National Security Agency officers who ask him to steal a newly invented decoder. Martin and his team discover that the black box can crack any encryption code, posing a huge threat if it lands in the wrong hands. When Martin realizes the NSA men who approached him are rogue agents, they frame him for the murder of the device's inventor.
  • IMAGE Sneakers (1992) Trailer
  1. Untraceable
  • 2008
  • Special Agent Jennifer Marsh (Diane Lane) works in an elite division of the FBI dedicated to fighting cybercrime. She thinks she has seen it all, until a particularly sadistic criminal arises on the Internet. This tech-savvy killer posts live feeds of his crimes on hi
@jmcveigh
jmcveigh / tk-options-dynamic.pl
Last active June 15, 2016 00:56
ATTN: Philip Brady RE: Tk Options
#!/bin/perl -w
package Application {
use Moose;
use Tk;
require Tk::BrowseEntry;
use feature 'say';
use feature 'state';
@jmcveigh
jmcveigh / jmcveigh-tk-options.pl
Created June 14, 2016 22:10
ATTN: Phillip Bradey RE: Tk Options
#!/bin/perl -w
package Application {
use Moose;
use Tk;
require Tk::BrowseEntry;
use feature 'say';
use feature 'state';
@jmcveigh
jmcveigh / moar-squee-gifs.pl
Created June 10, 2016 16:28
This is a photo hog, written in Perl, used to collect animated gifs from reddit. My OAuth information has been suppressed, get your own easily through Reddit.
#!/bin/perl -w
# the original Reddit::Client does not pass the time context parameter
# the class below inherits from Reddit::Client with intent to pass the time context parameter
package MyRedditClient {
@ISA = qw(Reddit::Client);
# this is the default for the time context parameter
use constant T_DEFAULT => 'year';
@jmcveigh
jmcveigh / OSOR-TELEPHONE-NUMBER.txt
Last active June 8, 2016 19:44
This is the telephone information to report for further information regarding the OSOR.
For more information about the OSOR, contact your local police service or the OPP. You can also contact Crime Stoppers (1-800-222-8477) if you have information about an offender.
@jmcveigh
jmcveigh / blade-motd.pl
Last active April 7, 2022 21:20
This is the Blade MOTD. This is for use in a deployment script with Blade computers running Linux. This concatenates the word 'BLADE' to the tail of the MOTD.
#!/bin/perl
use strict;
use warnings;
use Inline::Files;
use feature 'switch';
use feature 'say';