#!/usr/local/bin/perl

use diagnostics;
use strict;
use warnings;
use Digest::EMAC qw(emac hexdigest base64digest);

print "Enter key: ";
my $key = <STDIN>;
chomp $key;

print "Enter cipher: ";
my $cipher = <STDIN>;
chomp $cipher;

print "Enter string: ";
my $str = <STDIN>;
chomp $str;

my $mac = emac($key, $cipher, $str);
print hexdigest($mac), "\n";
print base64digest($mac), "\n";