Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (8 sloc) 295 Bytes
#!/usr/bin/env perl
my $number = $ARGV[0];
use Crypt::Skip32::Base32Crockford;
my $key = pack( 'H20', "42424242424242424242" ); # Always 10 bytes!
my $cipher = Crypt::Skip32::Base32Crockford->new($key);
my $b32 = $cipher->encrypt_number_b32_crockford($number);
print "$b32";
print "\n"