Select Code to Download

#!c:/perl
use Crypt::Blowfish;
...
    $ciphertext = $cipher->encrypt("$pass");
    print unpack ("H16",$ciphertext),"\n";
}

#!c:/perl
use Crypt::Blowfish;
...
    $ciphertext = $cipher->decrypt("$pass");
    print unpack ("H16",$ciphertext),"\n";
}