SHELL BYPASS 403 |
Modern UI. Responsive. Powerful.

Faizzz-Chin Shell

: /usr/share/doc/perl-DBI-1.627/ex/ [ drwxr-xr-x ]
Uname\Kernel: Linux server.kxo.bgz.mybluehostin.me 3.10.0-1160.119.1.el7.tuxcare.els19.x86_64 #1 SMP Mon Mar 31 17:29:00 UTC 2025 x86_64
Server: Apache
PHP Version: 8.2.28 [ PHP INFO ]
Operating System: Linux
Server Ip: 162.240.163.222
Your Ip: 216.73.216.114
Date Time: 2025-07-11 16:24:56
User: dilseshaadi (1027) | Group: dilseshaadi (1027)
Safe Mode: OFF
Disable Function: exec,passthru,shell_exec,system

name : profile.pl
#!/usr/bin/perl -w

use DBI;

$dbh = DBI->connect('dbi:SQLite:dbname=ex_profile.db', '', '', { RaiseError => 1 });

$dbh->do("DROP TABLE IF EXISTS ex_profile");
$dbh->do("CREATE TABLE ex_profile (a int)");

 $dbh->do("INSERT INTO ex_profile (a) VALUES ($_)", undef)     for 1..100;
#$dbh->do("INSERT INTO ex_profile (a) VALUES (?)",  undef, $_) for 1..100;

my $select_sql = "SELECT a FROM ex_profile";

$dbh->selectall_arrayref($select_sql);

$dbh->selectall_hashref($select_sql, 'a');

my $sth = $dbh->prepare($select_sql);
$sth->execute;
while ( @row = $sth->fetchrow_array ) {
}


__DATA__
© 2025 Faizzz-Chin