#!/usr/bin/perl -w

#

# logic.ly keygen in 295 bytes of perl.

# (C) 2014-2017 Pegasus Epsilon <pegasus@pimpninjas.org>

#

# 1 2 3 4 5 6 7

#23456789012345678901234567890123456789012345678901234567890123456789012345678

use Digest::SHA$h='sha256_hex';@a=grep!/[EILNOSU5]/,B..Y,2..9;sub r{int rand

shift}$a=r(10)+2;$b=r(10)+2;@b=($a[$a],$a[$b],map{$a[r$#a]}1..10);$b[$a]=$a[r

23];$b[$b]=$a[r(2)-2];@a=map{$a[hex]}(split//,&$h(join'',@b))[-13..-1];print

join('-',unpack'a5'x5,join'',map{$a[$_],$b[$_]}0..11),$a[12],"\n";