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 /
libsoap-lite-perl /
examples /
XMLRPC /
[ HOME SHELL ]
Name
Size
Permission
Action
mod_xmlrpc.htaccess
763
B
-rw-r--r--
simple1.pl
251
B
-rw-r--r--
xmlrpc.cgi
1.95
KB
-rw-r--r--
xmlrpc.daemon
2.06
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : xmlrpc.daemon
#!/usr/bin/perl # -- XMLRPC::Lite -- services.soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use XMLRPC::Transport::HTTP; my $daemon = XMLRPC::Transport::HTTP::Daemon -> new (LocalPort => 80) -> dispatch_to('validator1') ; print "Contact to XMLRPC server at ", $daemon->url, "\n"; $daemon->handle; package validator1; sub whichToolkit { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); return +{ toolkitDocsUrl => 'http://www.soaplite.com/', toolkitName => 'XMLRPC::Lite', toolkitVersion => XMLRPC::Lite->VERSION, toolkitOperatingSystem => $^O, } } sub countTheEntities { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $string = shift; my $res; $res->{ctLeftAngleBrackets} = ($string =~ s/<//g) || 0; $res->{ctRightAngleBrackets} = ($string =~ s/>//g) || 0; $res->{ctAmpersands} = ($string =~ s/&//g) || 0; $res->{ctApostrophes} = ($string =~ s/'//g) || 0; $res->{ctQuotes} = ($string =~ s/"//g) || 0; return $res; } sub arrayOfStructsTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $array = shift; my $curly_sum = 0; for my $struct (@$array) { $curly_sum += $struct->{'curly'}; } return $curly_sum; } sub easyStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $struct = shift; return $struct->{'moe'} + $struct->{'larry'} + $struct->{'curly'}; } sub echoStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); return shift; } sub manyTypesTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); return [@_]; } sub moderateSizeArrayCheck { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $array = shift; return join('', $array->[0], $array->[-1]); } sub nestedStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $calendar = shift; my $april_1_2000 = $calendar->{'2000'}{'04'}{'01'}; return ($april_1_2000->{moe} + $april_1_2000->{larry} + $april_1_2000->{curly}); } sub simpleStructReturnTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__); my $number = shift; return +{ times10 => $number * 10, times100 => $number * 100, times1000 => $number * 1000 }; }
Close