Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-GD /
demos /
Delete
Unzip
Name
Size
Permission
Date
Action
brushes.pl
923
B
-rwxr-xr-x
2021-12-22 15:12
copies.pl
1.07
KB
-rwxr-xr-x
2021-12-22 15:12
draw_colors.pl
944
B
-rwxr-xr-x
2021-12-22 15:12
fills.pl
590
B
-rwxr-xr-x
2021-12-22 15:12
font_list.png
21.56
KB
-rw-r--r--
2017-04-20 11:27
fonttest
936
B
-rwxr-xr-x
2017-04-20 11:27
gd_example.cgi
683
B
-rwxr-xr-x
2021-12-22 15:12
polyline.pl
8.64
KB
-rw-r--r--
2021-12-22 15:12
polys.pl
785
B
-rwxr-xr-x
2021-12-22 15:12
shapes.pl
1.26
KB
-rwxr-xr-x
2021-12-22 15:12
tile.png
280
B
-rw-r--r--
2017-04-20 11:27
transform.pl
698
B
-rwxr-xr-x
2021-12-22 15:12
truetype_test
864
B
-rwxr-xr-x
2021-12-22 15:12
ttf.pl
736
B
-rwxr-xr-x
2021-12-22 15:12
Save
Rename
#!/usr/bin/perl -w use strict; use lib '.','./blib/lib','./blib/arch'; use GD::Simple; my @color_names = GD::Simple->color_names; my $cols = int(sqrt(@color_names)); my $rows = int(@color_names/$cols)+1; my $cell_width = 100; my $cell_height = 50; my $legend_height = 16; my $width = $cols * $cell_width; my $height = $rows * $cell_height; my $img = GD::Simple->new($width,$height); $img->font(gdSmallFont); for (my $c=0; $c<$cols; $c++) { for (my $r=0; $r<$rows; $r++) { my $color = $color_names[$c*$rows + $r] or next; my @topleft = ($c*$cell_width,$r*$cell_height); my @botright = ($topleft[0]+$cell_width,$topleft[1]+$cell_height-$legend_height); $img->bgcolor($color); $img->fgcolor($color); $img->rectangle(@topleft,@botright); $img->moveTo($topleft[0]+2,$botright[1]+$legend_height-2); $img->fgcolor('black'); $img->string($color); } } print eval {$img->png} || $img->gif;
