Linux ubuntu 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64
nginx/1.24.0
: 67.217.245.49 | : 216.73.216.153
Cant Read [ /etc/named.conf ]
8.3.6
www-data
Bypass.pw
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
Backdoor Scanner
Backdoor Create
Alfa Webshell
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libdbi-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
corogofer.pl
704
B
-rw-r--r--
perl_dbi_nulls_test.pl
6.14
KB
-rw-r--r--
profile.pl
594
B
-rw-r--r--
test.pl
5.29
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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__
Close
