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_hex)); } BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; } } my $skip = $] < 5.006 ? 1 : 0; my $TEMPLATE = $] >= 5.006 ? 'U*' : 'C*'; my $empty_unicode = pack($TEMPLATE, ()); my $ok_unicode = pack($TEMPLATE, (0..255)); my $wide_unicode = pack($TEMPLATE, (0..256)); print "1..3\n"; unless ($skip) { print "not " unless sha1_hex($empty_unicode."abc") eq "a9993e364706816aba3e25717850c26c9cd0d89d"; } print "ok 1", $skip ? " # skip: no Unicode" : "", "\n"; unless ($skip) { print "not " unless sha1_hex($ok_unicode) eq "4916d6bdb7f78e6803698cab32d1586ea457dfc8"; } print "ok 2", $skip ? " # skip: no Unicode" : "", "\n"; unless ($skip) { eval { sha1_hex($wide_unicode) }; print "not " unless $@ =~ /Wide character/; } print "ok 3", $skip ? " # skip: no Unicode" : "", "\n";