Searched refs:dgst (Results 1 – 1 of 1) sorted by relevance
23 my $dgst = shift @ARGV;319 if ($dgst eq "sha1") {325 } elsif ($dgst eq "sha224") {331 } elsif ($dgst eq "sha256") {337 } elsif ($dgst eq "sha384") {343 } elsif ($dgst eq "sha512") {350 die "Unknown hash algorithm: $dgst\n";361 $digest = readpipe("openssl dgst -$dgst -binary $module") || die "openssl dgst";404 print "Digest : $dgst\n";