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