#!/usr/local/bin/perl

use diagnostics;
use strict;
use warnings;
use Crypt::Loki97;

my $key = pack "H32", "00112233445566778899aabbccddeeff";
my $cipher = new Crypt::Loki97 $key;

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

print "\n";

my $plaintext1 = pack "H32", "00112233445566778899aabbccddeeff";
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";

print "\n";

my $plaintext2 = pack "H32", "0123456789abcdeffedcba9876543210";
print "old plaintext2  : ", unpack("H*", $plaintext2), "\n";

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

my $decrypted2 = $cipher->decrypt($ciphertext2);
print "new plaintext2  : ", unpack("H*", $decrypted2), "\n";

print "\n";

my $anotherkey = "0123456789abcdef";   # must be 16 bytes long
my $plaintext3 = "fedcba9876543210";   # must be 16 bytes long

print "old plaintext3  : $plaintext3\n";

my $ciphertext3 = $cipher->encrypt($plaintext3);
print "ciphertext3     : $ciphertext3\n";

my $decrypted3 = $cipher->decrypt($ciphertext3);
print "new plaintext3  : $decrypted3\n";