#!/usr/local/bin/perl

use diagnostics;
use strict;
use warnings;
use Crypt::Skipjack;

my $key = pack "H20", "00998877665544332211";
my $cipher = new Crypt::Skipjack $key;

print "blocksize : ", $cipher->blocksize, " bytes \n";
print "keysize   : ", $cipher->keysize, " bytes \n";

print "\n";

my $plaintext1 = pack "H16", "33221100ddccbbaa";
print "old plaintext1  : ", unpack("H*", $plaintext1), "\n";

my $ciphertext1 = $cipher->encrypt($plaintext1);
print "ciphertext1     : ", unpack("H*", $ciphertext1), "\n";

my $decrypted1 = $cipher->decrypt($ciphertext1);
print "new plaintext1  : ", unpack("H*", $decrypted1), "\n";