3 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
6 require "hmac_sha1.pl";
8 (!@ARV[0] && -f @ARGV[$#ARGV]) || die "usage: $0 [-verify] file";
10 $verify=shift if (@ARGV[0] eq "-verify");
12 sysopen(FD,@ARGV[0],0) || die "$!";
15 my $ctx = HMAC->Init("etaonrishdlcupfm");
17 while (read(FD,$blob,4*1024)) { $ctx->Update($blob); }
21 my $signature = unpack("H*",$ctx->Final());
23 print "HMAC-SHA1(@ARGV[0])= $signature\n";
26 open(FD,"<@ARGV[0].sha1") || die "$!";
29 exit(0) if ($line =~ /HMAC\-SHA1\([^\)]*\)=\s*([0-9a-f]+)/i &&
31 die "signature mismatch";