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(300,300); # allocate white $white = $im->colorAllocate(255, 255, 255); # allocate black $black = $im->colorAllocate(0, 0, 0); # allocate red $red = $im->colorAllocate(255, 0, 0); # allocate green $green = $im->colorAllocate(0,255,0); # allocate yellow $yellow = $im->colorAllocate(255,250,205); # Get an image from a png file open (TILE,"./tile.png") || die; $tile = newFromPng GD::Image(TILE); close TILE; # use it as a paintbrush $im->setBrush($tile); $im->arc(100,100,100,150,0,360,gdBrushed); # use it as a tiling pattern to fill a rectangle $im->setTile($tile); $im->filledRectangle(150,150,250,250,gdTiled); $im->rectangle(150,150,250,250,$black); # Draw a dotted line $im->setStyle($green,$green,$green,gdTransparent,$red,$red,$red,gdTransparent); $im->line(0,280,300,280,gdStyled); binmode STDOUT; # print the image to stdout print $im->png;
