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