mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;

my @normal_chars  = qw(I 1 l 0 O);
my @special_chars = qw(| [ ]);
my $length        = 12;

print "The user hater's password generator. Have a lot of fun!\n";
print "-------------------------------------------------------\n";

mtigas

Client-side SSL

For excessively paranoid client authentication.

---

Updated Apr 5 2019:

because this is a gist from 2011 that people stumble into and maybe you should AES instead of 3DES in the year of our lord 2019.

some other notes:

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use File::Temp;

# Matches Fingerprints from sshd logs (sshd on loglevel VERBOSE) against
# authorized_keys for the respective user.

die "Please specify input file!\n" unless ($ARGV[0]);