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 /
DB_File /
Delete
Unzip
Name
Size
Permission
Date
Action
blib
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
hints
[ DIR ]
drwxr-xr-x
2015-02-14 16:55
t
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
DB_File.bs
0
B
-rw-r--r--
2016-10-10 17:41
DB_File.c
74.25
KB
-rw-r--r--
2016-10-10 17:38
DB_File.o
74.97
KB
-rw-r--r--
2016-10-10 17:38
DB_File.pm
62.24
KB
-r--r--r--
2016-10-10 17:38
DB_File.pm.bak
62.24
KB
-r--r--r--
2014-12-27 11:49
DB_File.xs
47.33
KB
-r--r--r--
2014-12-27 11:49
DB_File_BS
164
B
-r--r--r--
2014-12-27 11:48
Makefile
31.6
KB
-rw-r--r--
2016-10-10 17:38
Makefile.PL
8.39
KB
-r--r--r--
2014-12-27 11:49
config.in
3.04
KB
-r--r--r--
2014-12-27 11:48
constants.h
11.16
KB
-rw-r--r--
2016-10-10 17:38
constants.xs
2.59
KB
-rw-r--r--
2016-10-10 17:38
dbinfo
3.15
KB
-r--r--r--
2014-12-27 11:48
pm_to_blib
0
B
-rw-r--r--
2016-10-10 17:38
ppport.h
183
KB
-rw-r--r--
2016-10-10 17:38
typemap
1.15
KB
-r--r--r--
2014-12-27 11:48
version.c
2.23
KB
-r--r--r--
2014-12-27 11:48
version.o
2.86
KB
-rw-r--r--
2016-10-10 17:38
Save
Rename
#!/usr/local/bin/perl # Name: dbinfo -- identify berkeley DB version used to create # a database file # # Author: Paul Marquess <Paul.Marquess@btinternet.com> # Version: 1.06 # Date 27th March 2008 # # Copyright (c) 1998-2012 Paul Marquess. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # Todo: Print more stats on a db file, e.g. no of records # add log/txn/lock files use strict ; my %Data = ( 0x053162 => # DB_BTREEMAGIC { Type => "Btree", Versions => # DB_BTREEVERSION { 1 => [0, "Unknown (older than 1.71)"], 2 => [0, "Unknown (older than 1.71)"], 3 => [0, "1.71 -> 1.85, 1.86"], 4 => [0, "Unknown"], 5 => [0, "2.0.0 -> 2.3.0"], 6 => [0, "2.3.1 -> 2.7.7"], 7 => [0, "3.0.x"], 8 => [0, "3.1.x -> 4.0.x"], 9 => [1, "4.1.x or greater"], } }, 0x061561 => # DB_HASHMAGIC { Type => "Hash", Versions => # DB_HASHVERSION { 1 => [0, "Unknown (older than 1.71)"], 2 => [0, "1.71 -> 1.85"], 3 => [0, "1.86"], 4 => [0, "2.0.0 -> 2.1.0"], 5 => [0, "2.2.6 -> 2.7.7"], 6 => [0, "3.0.x"], 7 => [0, "3.1.x -> 4.0.x"], 8 => [1, "4.1.x or greater"], 9 => [1, "4.6.x or greater"], } }, 0x042253 => # DB_QAMMAGIC { Type => "Queue", Versions => # DB_QAMVERSION { 1 => [0, "3.0.x"], 2 => [0, "3.1.x"], 3 => [0, "3.2.x -> 4.0.x"], 4 => [1, "4.1.x or greater"], } }, ) ; die "Usage: dbinfo file\n" unless @ARGV == 1 ; print "testing file $ARGV[0]...\n\n" ; open (F, "<$ARGV[0]") or die "Cannot open file $ARGV[0]: $!\n" ; my $buff ; read F, $buff, 30 ; my (@info) = unpack("NNNNNNC", $buff) ; my (@info1) = unpack("VVVVVVC", $buff) ; my ($magic, $version, $endian, $encrypt) ; if ($Data{$info[0]}) # first try DB 1.x format, big endian { $magic = $info[0] ; $version = $info[1] ; $endian = "Big Endian" ; $encrypt = "Not Supported"; } elsif ($Data{$info1[0]}) # first try DB 1.x format, little endian { $magic = $info1[0] ; $version = $info1[1] ; $endian = "Little Endian" ; $encrypt = "Not Supported"; } elsif ($Data{$info[3]}) # next DB 2.x big endian { $magic = $info[3] ; $version = $info[4] ; $endian = "Big Endian" ; } elsif ($Data{$info1[3]}) # next DB 2.x little endian { $magic = $info1[3] ; $version = $info1[4] ; $endian = "Little Endian" ; } else { die "not a Berkeley DB database file.\n" } my $type = $Data{$magic} ; $magic = sprintf "%06X", $magic ; my $ver_string = "Unknown" ; if ( defined $type->{Versions}{$version} ) { $ver_string = $type->{Versions}{$version}[1]; if ($type->{Versions}{$version}[0] ) { $encrypt = $info[6] ? "Enabled" : "Disabled" } else { $encrypt = "Not Supported" } } print <<EOM ; File Type: Berkeley DB $type->{Type} file. File Version ID: $version Built with Berkeley DB: $ver_string Byte Order: $endian Magic: $magic Encryption: $encrypt EOM close F ; exit ;