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 /
png /
[ HOME SHELL ]
Name
Size
Permission
Action
bevels.pl
6
KB
-rw-r--r--
caps_joins.pl
1.41
KB
-rw-r--r--
hering.pl
1.15
KB
-rw-r--r--
outline.pl
2.07
KB
-rw-r--r--
README
165
B
-rw-r--r--
snapping.pl
9.08
KB
-rw-r--r--
spiral.pl
895
B
-rw-r--r--
spline-pipeline.pl
2.46
KB
-rw-r--r--
splines_tolerance.pl
1018
B
-rw-r--r--
star_and_ring.pl
4.62
KB
-rw-r--r--
stars.pl
1.06
KB
-rw-r--r--
text.pl
3.12
KB
-rw-r--r--
text-rotate.pl
1.85
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : spiral.pl
#!/usr/bin/perl use strict; use warnings; use Cairo; use constant { WIDTH => 600, HEIGHT => 600, }; { my $surf = Cairo::ImageSurface->create ('argb32', WIDTH, HEIGHT); my $cr = Cairo::Context->create ($surf); $0 =~ /(.*)\.pl/; my $out = "$1.png"; $cr->rectangle (0, 0, WIDTH, HEIGHT); $cr->set_source_rgb (1, 1, 1); $cr->fill; draw_spiral ($cr, WIDTH, HEIGHT); $cr->show_page; $surf->write_to_png ($out); } sub draw_spiral { my ($cr, $width, $height) = @_; my $wd = .02 * $width; my $hd = .02 * $height; $width -= 2; $height -= 2; $cr->move_to ($width + 1, 1 - $hd); for (my $i=0; $i < 9; $i++) { $cr->rel_line_to (0, $height - $hd * (2 * $i - 1)); $cr->rel_line_to (- ($width - $wd * (2 * $i)), 0); $cr->rel_line_to (0, - ($height - $hd * (2 * $i))); $cr->rel_line_to ($width - $wd * (2 * $i + 1), 0); } $cr->set_source_rgb (0, 0, 1); $cr->stroke; }
Close