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 /
UDDI /
[ HOME SHELL ]
Name
Size
Permission
Action
inquire1.pl
912
B
-rw-r--r--
publish1.pl
1.12
KB
-rw-r--r--
simple1.pl
435
B
-rw-r--r--
simple2.pl
338
B
-rw-r--r--
syntax1.pl
984
B
-rw-r--r--
syntax2.pl
1.87
KB
-rw-r--r--
syntax3.pl
1.32
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : inquire1.pl
#!/usr/bin/perl -w #!d:\perl\bin\perl.exe # -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use strict; use UDDI::Lite import => 'UDDI::Data', import => ['UDDI::Lite' => ':find', ':get'], proxy => 'http://uddi.microsoft.com/inquire', ; my @parameters = ( findQualifiers([findQualifier('sortByNameAsc'), findQualifier('caseSensitiveMatch')]), name('M'), # OR # findQualifiers(findQualifier('sortByNameAsc', # 'caseSensitiveMatch')), # name('M'), ); my $b = find_business(@parameters); for ($b->businessInfos->businessInfo) { print $_->name, "\n"; if ($_->name eq "Microsoft Corporation") { my $key = $_->businessKey; print "$key\n"; my $e = get_businessDetail($key)->businessEntity; my @services = $e->businessServices->businessService; for (@services) { print " ", $_->name, "\n"; } } }
Close
