Integer::Tiny - Shorten and obfuscate your Integer values. Just like IDs on YouTube!
use Integer::Tiny; $it = Integer::Tiny->new('0WEMACKGVPHRQNST862UYZ3FL4X17O59DJIB'); print $it->encrypt('12345678'); # prints 'GQZB2' print $it->decrypt('GQZB2'); # prints '12345678'
Check USAGE section for more cool examples.
Do you need fast and reliable method to obfuscate and shorten some Integer values?
Do you want to choose characters range you can use in output?
This module is for you!
Typical encrypt-and-shorten suitable for URL addresses.
my $key = 'hc2riK8fku7ezavCBJdMPwmntZ1s0yU4bOLI3SHRqANXFVD69gTG5oYQjExplW'; my $it = Integer::Tiny->new($key); print $it->encrypt('48888851145'); # om3R4e
Time to clone someone, convert Integer to DNA sequence :)
my $key = 'GCAT'; my $it = Integer::Tiny->new($key); print $it->encrypt('48888851145'); # ATCAGAGGGGAAAATGAC
And so on... You're limited only by your imagination when inventing keys.
This module is suitable for most Internet usage, like preventing your webpages from being scanned by ID sequence or hiding informations you do not like to show explicitly.
Key must be a String of AT LEAST TWO UNIQUE CHARACTERS (utf8 is allowed).
Characters used in key will also be your output characters range, simple as that!
The longer the key the shorter output you get!
Here is some code snippet to generate typical alphanumeric keys.
use List::Util; my @t = ('a' .. 'z', 'A' .. 'Z', 0 .. 9); $key = join('', List::Util::shuffle @t );
my $it = Integer::Tiny->new('qwerty');
Create new object of
Integer::Tiny using key passed as the first parameter.
Carp::confess will be called on missing or invalid key.
print $it->encrypt('48888851145'); # rtetrwqyteytyr
my $i = Math::BigInt->new('48888851145'); print $it->encrypt($i); # rtetrwqyteytyr
Encrypt passed Integer value (bigint allowed) using key given in constructor.
Carp::confess will be called if value to encrypt is missing or not an Integer.
WARNING: Do not use syntax shown below unless you are sure it fits in your machine integer size.
print $it->encrypt(48888851145); # integer may overflow
NOTE: Passed value is treated as Integer so leading
0 (zero) chars are ignored!
my $e = $it->encrypt('0048888851145'); print $it->decrypt($e); # 48888851145
print $it->decrypt('rtetrwqyteytyr'); # 48888851145
Decrypt passed value using key given in constructor.
Carp::confess will be called if value to decrypt is missing or contains characters not existing in key.
Yes, P6 Rakudo version is on the way
Pawel (bbkr) Pabian
Private website: http://bbkr.org (visit for contact data)
Company website: http://implix.com
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.