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;
15local $/ = undef;
16
17while (<>) {
18    my $mac = dmac($key, $cipher, $_);
19    print hexdigest($mac), "\n";
20}
21
22