1#!/usr/local/bin/perl
2
3use diagnostics;
4use strict;
5use warnings;
6use Digest::DMAC qw(dmac hexdigest base64digest);
7
8print "Enter key: ";
9my $key = <STDIN>;
10chomp $key;
11
12print "Enter cipher: ";
13my $cipher = <STDIN>;
14chomp $cipher;
15
16print "Enter string: ";
17my $str = <STDIN>;
18chomp $str;
19
20my $mac = dmac($key, $cipher, $str);
21print hexdigest($mac), "\n";
22print base64digest($mac), "\n";
23
24