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 : subclassing.pl
#!/usr/bin/perl use strict; use warnings; my $surface = Cairo::ImageSurface->create ('argb32', 1000, 1000); my $context = CustomContext->create ($surface); $context->draw_star; $context->show_page; $surface->write_to_png ($0 . '.png'); package CustomContext; use strict; use warnings; use Cairo; use Math::Trig qw/pi/; use base qw/Cairo::Context/; sub create { my ($package, $surface) = @_; my $self = $package->SUPER::create($surface); return bless $self, $package; } sub draw_star { my ($self) = @_; my $width = $self->get_target()->get_width(); my $height = $self->get_target()->get_height(); $self->rectangle (0, 0, $width, $height); $self->set_source_rgb (1, 1, 1); $self->fill; $self->save; { $self->set_source_rgba (0, 0, 0, 0.5); $self->translate ($width / 2, $height / 2); my $mx = $width / 3.0; my $count = 100; foreach (0 .. $count-1) { $self->new_path; $self->move_to (0, 0); $self->rel_line_to (-$mx, 0); $self->stroke; $self->rotate ((pi() * 2) / $count); } } $self->restore; }
Close