0
ˆ
923È¾É ›
Index of /FSS-BCZ/root/proc/self/cwd/opt/cloudlinux
Index of /FSS-BCZ/root/proc/self/cwd/opt/cloudlinux
0 ˆl–Ãa¾”†»ò‚fàœ¸ÈÅ£Ì
„‚ë__‹ uÐb
&=LV[(ÀË ?÷ package Digest::SHA;
require 5.003000;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT_OK $errmsg);
use Fcntl qw(O_RDONLY O_RDWR);
use integer;
$VERSION = '6.02';
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
$errmsg
hmac_sha1 hmac_sha1_base64 hmac_sha1_hex
hmac_sha224 hmac_sha224_base64 hmac_sha224_hex
hmac_sha256 hmac_sha256_base64 hmac_sha256_hex
hmac_sha384 hmac_sha384_base64 hmac_sha384_hex
hmac_sha512 hmac_sha512_base64 hmac_sha512_hex
hmac_sha512224 hmac_sha512224_base64 hmac_sha512224_hex
hmac_sha512256 hmac_sha512256_base64 hmac_sha512256_hex
sha1 sha1_base64 sha1_hex
sha224 sha224_base64 sha224_hex
sha256 sha256_base64 sha256_hex
sha384 sha384_base64 sha384_hex
sha512 sha512_base64 sha512_hex
sha512224 sha512224_base64 sha512224_hex
sha512256 sha512256_base64 sha512256_hex);
# Inherit from Digest::base if possible
eval {
require Digest::base;
push(@ISA, 'Digest::base');
};
# The following routines aren't time-critical, so they can be left in Perl
sub new {
my($class, $alg) = @_;
$alg =~ s/\D+//g if defined $alg;
if (ref($class)) { # instance method
if (!defined($alg) || ($alg == $class->algorithm)) {
sharewind($class);
return($class);
}
return shainit($class, $alg) ? $class : undef;
}
$alg = 1 unless defined $alg;
return $class->newSHA($alg);
}
BEGIN { *reset = \&new }
sub add_bits {
my($self, $data, $nbits) = @_;
unless (defined $nbits) {
$nbits = length($data);
$data = pack("B*", $data);
}
$nbits = length($data) * 8 if $nbits > length($data) * 8;
shawrite($data, $nbits, $self);
return($self);
}
sub _bail {
my $msg = shift;
$errmsg = $!;
$msg .= ": $!";
require Carp;
Carp::croak($msg);
}
{
my $_can_T_filehandle;
sub _istext {
local *FH = shift;
my $file = shift;
if (! defined $_can_T_filehandle) {
local $^W = 0;
my $istext = eval { -T FH };
$_can_T_filehandle = $@ ? 0 : 1;
return $_can_T_filehandle ? $istext : -T $file;
}
return $_can_T_filehandle ? -T FH : -T $file;
}
}
sub _addfile {
my ($self, $handle) = @_;
my $n;
my $buf = "";
while (($n = read($handle, $buf, 4096))) {
$self->add($buf);
}
_bail("Read failed") unless defined $n;
$self;
}
sub addfile {
my ($self, $file, $mode) = @_;
return(_addfile($self, $file)) unless ref(\$file) eq 'SCALAR';
$mode = defined($mode) ? $mode : "";
my ($binary, $UNIVERSAL, $BITS) =
map { $_ eq $mode } ("b", "U", "0");
## Always interpret "-" to mean STDIN; otherwise use
## sysopen to handle full range of POSIX file names.
## If $file is a directory, force an EISDIR error
## by attempting to open with mode O_RDWR
local *FH;
$file eq '-' and open(FH, '< -')
or sysopen(FH, $file, -d $file ? O_RDWR : O_RDONLY)
or _bail('Open failed');
if ($BITS) {
my ($n, $buf) = (0, "");
while (($n = read(FH, $buf, 4096))) {
$buf =~ tr/01//cd;
$self->add_bits($buf);
}
_bail("Read failed") unless defined $n;
close(FH);
return($self);
}
binmode(FH) if $binary || $UNIVERSAL;
if ($UNIVERSAL && _istext(*FH, $file)) {