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 file: "; 17my $infile = <STDIN>; 18chomp $infile; 19local $/ = undef; 20open F, $infile; 21my $data = <F>; 22 23my $mac = dmac($key, $cipher, $data); 24close F; 25print hexdigest($mac), "\n"; 26print base64digest($mac), "\n"; 27 28