# Encrypter

use Crypt::Blowfish ();
use MIME::Base64 qw( encode_base64 );

my $key       = ...;
my $plaintext = ...;
die("Text to encrypt must be less than 16 bytes long\n")
   if length($plaintext) >= 16;

my $cipher = Crypt::Blowfish->new($key);
my $padded_plaintext = pack('Ca15', length($plaintext), $plaintext);
my $ciphertext1 =                $cipher->encrypt(substr($plaintext, 0, 8));
my $ciphertext2 = $ciphertext1 ^ $cipher->encrypt(substr($plaintext, 8, 8));
my $ciphertext = $ciphertext1 . $ciphertext2;
my $websafe_ciphertext = substr(encode_base64($ciphertext, ''), 0, -2);