Linux web-conference.aiou.edu.pk 5.4.0-205-generic #225-Ubuntu SMP Fri Jan 10 22:23:35 UTC 2025 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.17.187.118
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
root
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libnet-dbus-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
dump-object-xml.pl
393
B
-rw-r--r--
dump-object.pl
419
B
-rw-r--r--
example-client-async.pl
1.01
KB
-rw-r--r--
example-client-no-introspect.p...
666
B
-rw-r--r--
example-client.pl
894
B
-rw-r--r--
example-proxy-service.pl
1.71
KB
-rw-r--r--
example-service-async.pl
1.27
KB
-rw-r--r--
example-service-magic.pl
1.54
KB
-rw-r--r--
example-service-no-introspect....
1014
B
-rw-r--r--
example-service.pl
1.5
KB
-rw-r--r--
example-signal-emitter.pl
949
B
-rw-r--r--
example-signal-receiver.pl
1.16
KB
-rw-r--r--
lshal.pl
643
B
-rw-r--r--
notification.pl
516
B
-rw-r--r--
strict-exports.pl
1.29
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : example-service-no-introspect.pl
#!/usr/bin/perl use warnings; use strict; use Carp qw(confess cluck); use Net::DBus; use Net::DBus::Service; use Net::DBus::Reactor; #... continued at botom package SomeObject; use base qw(Net::DBus::Object); sub new { my $class = shift; my $service = shift; my $self = $class->SUPER::new($service, "/SomeObject"); bless $self, $class; return $self; } sub HelloWorld { my $self = shift; my $message = shift; print "Do hello world\n"; print $message, "\n"; return ["Hello", " from example-service.pl"]; } sub GetDict { my $self = shift; print "Do get dict\n"; return {"first" => "Hello Dict", "second" => " from example-service.py"}; } sub GetTuple { my $self = shift; print "Do get tuple\n"; return ["Hello Tuple", " from example-service.py"]; } package main; my $bus = Net::DBus->session(); my $service = $bus->export_service("org.designfu.SampleService"); my $object = SomeObject->new($service); Net::DBus::Reactor->main->run();
Close
