#!/usr/bin/perl
 
use strict;
use warnings;
 
use Crypt::Blowfish;
 
my $key = '123456';
my $content = 'i love you selina!';
 
 
if (length($key) % 8 != 0) {
    $key .= "\000"x(8 - length($key) % 8); 
}
 
my $ci = new Crypt::Blowfish $key;
 
### encrypt:
my $plain = $content;
my $encryp;
while(my $p = substr($plain, 0, 8)) {
    my $len = length($p);
    if ($len % 8 != 0) {
        $p .= "\000"x( 8 - $len % 8); 
    }   
    $encryp .= $ci->encrypt($p);
    if (length($plain) > 8) {
        $plain = substr($plain, 8)  
    } else {
        last;
    }   
}
 
### decrypt:
my $decryp;
$plain = $encryp;
while(my $p = substr($plain, 0, 8)) {
    my $len = length($p);
    if ($len % 8 != 0) {
        $p .= "\000"x( 8 - $len % 8); 
    }   
    $decryp .= $ci->decrypt($p);
    if (length($plain) > 8) {
        $plain = substr($plain, 8)  
    } else {
        last;
    }   
}
 
print "encrypt: ", unpack("H*", $encryp), "\n";
print "decrypt: ", unpack("H*", $decryp), "\n";
print "decrypt: ($decryp)\n";