#!/usr/bin/perl

use strict;
use warnings;

use Digest::MD5 qw(md5_hex);
use POSIX;

my $keymask = "y%Yd%j movezigforgreatjustice\n";
my $keylen = 10;

# Due to use of gmtime() below, you may want to init $time with
# time-86400 depending on your local time zone.
my $time = time;
print("Date\tKey\n");
for(1..2000){
	my $key = substr(md5_hex(strftime($keymask, gmtime($time))), 0, $keylen);
	$key =~ y/0123456789/ghijkmnopq/;
	printf("%s\t%s\n", strftime('%d.%m.%Y', gmtime($time)), $key);
	$time += 86400;
}
