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 : google.pl
#!/usr/bin/perl -w #!d:\perl\bin\perl.exe # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- # Google Web API: http://www.google.com/apis/ # NB: Register and get your own key first # see also: # http://interconnected.org/home/more/GoogleSearch.pl.txt # http://aaronland.net/weblog/archive/4205 # http://www.oreillynet.com/cs/weblog/view/wlg/1283 use SOAP::Lite; my $key = '0'; # <<< put your key here my $query = shift || 'soap'; # use GoogleSearch.wsdl file from Google developer's kit # update path to file to make it work # GoogleSearch.wsdl is NOT included my $google = SOAP::Lite->service('file://GoogleSearch.wsdl'); my $result = $google->doGoogleSearch( $key, $query, 0, 10, 'false', '', 'false', '', 'latin1', 'latin1'); die $google->call->faultstring if $google->call->fault; print "About $result->{'estimatedTotalResultsCount'} results.\n";
Close