hash-base62.pl

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

use Digest::SHA qw(sha256_base64);

sub hash_base62 {
	my ($s, $n) = @_;
	utf8::encode($s);
	$s = sha256_base64($s);
	$s =~ s@=+@@g;
	$s =~ s@[+]@x@g;
	$s =~ s@/@X@g;
	return substr($s, 0, $n);
}

my $i = 0;
while (my $line = <STDIN>) {
	++$i;
	my $h = hash_base62($line . $i, 14);
	print "$h\n";
}