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(hmac_sha1_hex)); } BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; } } my @data = map { "Sample #$_" } (1 .. 4); my @out = ( "4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a", "0922d3405faa3d194f82a45830737d5cc6c75d24", "bcf41eab8bb2d802f3d05caf7cb092ecf8d1a3aa", "9ea886efe268dbecce420c7524df32e0751a2a26" ); my @keys = ("", "", "", ""); for (0x00 .. 0x00+63) { $keys[0] .= chr($_) } for (0x30 .. 0x30+19) { $keys[1] .= chr($_) } for (0x50 .. 0x50+99) { $keys[2] .= chr($_) } for (0x70 .. 0x70+48) { $keys[3] .= chr($_) } my $numtests = scalar @data; print "1..$numtests\n"; my $testnum = 1; while (@data) { print "not " unless hmac_sha1_hex(shift @data, shift @keys) eq shift @out; print "ok ", $testnum++, "\n"; }