!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!

Software: nginx/1.23.4. PHP/5.6.40-65+ubuntu20.04.1+deb.sury.org+1 

uname -a: Linux foro-restaurado-2 5.15.0-1040-oracle #46-Ubuntu SMP Fri Jul 14 21:47:21 UTC 2023
aarch64 

uid=33(www-data) gid=33(www-data) groups=33(www-data) 

Safe-mode: OFF (not secure)

/usr/share/doc/liberror-perl/examples/   drwxr-xr-x
Free 83.31 GB of 96.73 GB (86.13%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     example.pl (800 B)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |

use lib '.';
use Error qw(:try);

use strict;
use warnings;

@Error::Bad::ISA = qw(Error);

$Error::Debug = 1; # turn on verbose stacktrace

sub abc {
    try {
    try {
        throw Error::Simple("a simple error");
    }
    catch Error::Simple with {
        my $err = shift;
        throw Error::Bad(-text => "some text");
    }
    except {
        return {
        'Error::Simple' => sub { warn "simple" }
        }
    }
    otherwise {
        1;
    } finally {
        warn "finally\n";
    };
    }
    catch Error::Bad with {
    1;
    };
}

sub def {
    unlink("not such file") or
    record Error::Simple("unlink: $!", $!) and return;
    1;
}

abc();


my $x = prior Error;

print "--\n",$x->stacktrace;

unless(defined def()) {
    my $x = prior Error 'main';
    print "--\n",0+$x,"\n",$x; # 0+$x converts to Integer via "value" method
}

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 2.0 [PHP 7 Update] [25.02.2019] maintained by HackingTool | HackingTool | Generation time: 0.004 ]--