Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Digest-SHA /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
allfcns.t
687
B
-r--r--r--
2014-12-27 11:48
base64.t
1012
B
-r--r--r--
2014-12-27 11:48
bitbuf.t
1.45
KB
-r--r--r--
2014-12-27 11:48
fips180-4.t
1.21
KB
-r--r--r--
2014-12-27 11:48
fips198.t
906
B
-r--r--r--
2014-12-27 11:48
gg.t
2.26
KB
-r--r--r--
2014-12-27 11:48
gglong.t
2.91
KB
-r--r--r--
2014-12-27 11:48
hmacsha.t
2.08
KB
-r--r--r--
2014-12-27 11:48
ireland.t
1.17
KB
-r--r--r--
2014-12-27 11:48
methods.t
3.06
KB
-r--r--r--
2014-12-27 11:49
nistbit.t
1.5
KB
-r--r--r--
2014-12-27 11:48
nistbyte.t
1.65
KB
-r--r--r--
2014-12-27 11:48
rfc2202.t
1.17
KB
-r--r--r--
2014-12-27 11:48
sha1.t
760
B
-r--r--r--
2014-12-27 11:48
sha224.t
812
B
-r--r--r--
2014-12-27 11:48
sha256.t
836
B
-r--r--r--
2014-12-27 11:48
sha384.t
1.06
KB
-r--r--r--
2014-12-27 11:48
sha512.t
1.15
KB
-r--r--r--
2014-12-27 11:48
state.t
3.47
KB
-r--r--r--
2014-12-27 11:48
unicode.t
976
B
-r--r--r--
2014-12-27 11:48
woodbury.t
4.87
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
use strict; my $MODULE; BEGIN { $MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl"; eval "require $MODULE" || die $@; $MODULE->import(qw(sha512_hex sha512224_hex sha512256_hex)); } BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; } } my @vecs = map { eval } <DATA>; # $#vecs -= 2 if $MODULE eq "Digest::SHA::PurePerl"; my $numtests = scalar(@vecs) / 2; print "1..$numtests\n"; my $skip = sha512_hex("") ? 0 : 1; for (1 .. $numtests) { my $data = shift @vecs; my $digest = shift @vecs; unless ($skip) { my $rsp = ($_ <= $numtests/2) ? sha512224_hex($data) : sha512256_hex($data); print "not " unless $rsp eq $digest; } print "ok ", $_, $skip ? " # skip: no 64-bit" : "", "\n"; } __DATA__ "abc" "4634270f707b6a54daae7530460842e20e37ed265ceee9a43e8924aa" "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" "23fec5bb94d60b23308192640b0c453335d664734fe40e7268674af9" "abc" "53048e2681941ef99b2e29b76b4c7dabe4c2d0c634fc6d46e0e2f13107e7af23" "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" "3928e184fb8690f840da3988121d31be65cb9d3ef83ee6146feac861e19b563a"