DRIVER=piix4_smbus PCI_CLASS=68000 PCI_ID=8086:7113 PCI_SUBSYS_ID=1AF4:1100 PCI_SLOT_NAME=0000:00:01.3 MODALIAS=pci:v00008086d00007113sv00001AF4sd00001100bc06sc80i00 "ˆl–äY>””†Ù”ê€nã@¸Å£¿ ƒy·ßÃÂ!—#!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell ## shasum: filter for computing SHA digests (ref. sha1sum/md5sum) ## ## Copyright (C) 2003-2013 Mark Shelor, All Rights Reserved ## ## Version: 5.85 ## Wed Jun 26 04:05:26 MST 2013 ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum. ## Add an "-a" option for algorithm selection, a "-p" ## option for portable digest computation, and a "-0" ## option for reading bit strings. my $POD = <<'END_OF_POD'; =head1 NAME shasum - Print or Check SHA Checksums =head1 SYNOPSIS Usage: shasum [OPTION]... [FILE]... Print or check SHA checksums. With no FILE, or when FILE is -, read standard input. -a, --algorithm 1 (default), 224, 256, 384, 512, 512224, 512256 -b, --binary read in binary mode -c, --check read SHA sums from the FILEs and check them -t, --text read in text mode (default) -p, --portable read in portable mode produces same digest on Windows/Unix/Mac -0, --01 read in BITS mode ASCII '0' interpreted as 0-bit, ASCII '1' interpreted as 1-bit, all other characters ignored The following two options are useful only when verifying checksums: -s, --status don't output anything, status code shows success -w, --warn warn about improperly formatted checksum lines -h, --help display this help and exit -v, --version output version information and exit When verifying SHA-512/224 or SHA-512/256 checksums, indicate the algorithm explicitly using the -a option, e.g. shasum -a 512224 -c checksumfile The sums are computed as described in FIPS-180-4. When checking, the input should be a former output of this program. The default mode is to print a line with checksum, a character indicating type (`*' for binary, ` ' for text, `?' for portable, `^' for BITS), and name for each FILE. Report shasum bugs to mshelor@cpan.org =head1 DESCRIPTION Running I is often the quickest way to compute SHA message digests. The user simply feeds data to the script through files or standard input, and then collects the results from standard output. The following command shows how to compute digests for typical inputs such as the NIST test vector "abc": perl -e "print qq(abc)" | shasum Or, if you want to use SHA-256 instead of the default SHA-1, simply say: perl -e "print qq(abc)" | shasum -a 256 Since I mimics the behavior of the combined GNU I, I, I, I, and I programs, you can install this script as a convenient drop-in replacement. Unlike the GNU programs, I encompasses the full SHA standard by allowing partial-byte inputs. This is accomplished through the BITS option (I<-0>). The following example computes the SHA-224 digest of the 7-bit message I<0001100>: perl -e "print qq(0001100)" | shasum -0 -a 224 =head1 AUTHOR Copyright (c) 2003-2013 Mark Shelor . =head1 SEE ALSO I is implemented using the Perl module L or L. =cut END_OF_POD use strict; use Fcntl; use Getopt::Long; my $VERSION = "5.85"; ## Try to use Digest::SHA. If not installed, use the slower ## but functionally equivalent Digest::SHA::PurePerl instead. my $MOD_PREFER = "Digest::SHA"; my $MOD_SECOND = "Digest::SHA::PurePerl"; my $module = $MOD_PREFER; eval "require $module"; if ($@) { $module = $MOD_SECOND; eval "require $module"; die "Unable to find $MOD_PREFER or $MOD_SECOND\n" if $@; } sub usage { my($err, $msg) = @_; $msg = "" unless defined $msg; if ($err) { warn($msg . "Type shasum -h for help\n"); exit($err); } my($USAGE) = $POD =~ /SYNOPSIS\n\n(.+)\n=head1 DESCRIPTION\n/sm;