Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
GD /
SecurityImage /
[ HOME SHELL ]
Name
Size
Permission
Action
GD.pm
13.1
KB
-rw-r--r--
Magick.pm
7.23
KB
-rw-r--r--
Styles.pm
3.03
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Styles.pm
package GD::SecurityImage::Styles; $GD::SecurityImage::Styles::VERSION = '1.75'; use strict; use warnings; use constant ARC_END_DEGREES => 360; sub style_default { return shift->_drcommon(' \\ lines will be drawn '); } sub style_rect { return shift->_drcommon; } sub style_box { my $self = shift; my $n = $self->{lines}; my $ct = $self->{_COLOR_}{text}; my $cl = $self->{_COLOR_}{lines}; my $w = $self->{width}; my $h = $self->{height}; $self->filledRectangle( 0, 0, $w , $h , $ct ); $self->filledRectangle( $n, $n, $w - $n - 1, $h - $n - 1, $cl ); return; } sub style_circle { my $self = shift; my $cx = $self->{width} / 2; my $cy = $self->{height} / 2; my $n = $self->{lines}; my $cl = $self->{_COLOR_}{lines}; my $max = int $self->{width} / $n; $max++; for my $i ( 1..$n ) { my $mi = $max * $i; $self->arc( $cx, $cy, $mi, $mi, 0, ARC_END_DEGREES, $cl ); } return; } sub style_ellipse { my $self = shift; return $self->style_default if $self->{DISABLED}{ellipse}; # GD < 2.07 my $cx = $self->{width} / 2; my $cy = $self->{height} / 2; my $n = $self->{lines}; my $cl = $self->{_COLOR_}{lines}; my $max = int $self->{width} / $n; $max++; for my $i ( 1..$n ) { my $mi = $max * $i; $self->ellipse( $cx, $cy, $mi * 2, $mi, $cl ); } return; } sub style_ec { my($self, @args) = @_; $self->style_ellipse(@args) if ! $self->{DISABLED}{ellipse}; # GD < 2.07 $self->style_circle(@args); return; } sub style_blank {} sub _drcommon { my $self = shift; my $drawx = shift || 0; my $w = $self->{width}; my $h = $self->{height}; my $max = $self->{lines}; my $fx = $w / $max; my $fy = $h / $max; my $cl = $self->{_COLOR_}{lines}; my( $ifx ); for my $i ( 0..$max ) { $ifx = $i * $fx; $self->line( $ifx, 0, $ifx , $h, $cl ); # | line next if not $drawx; $self->line( $ifx, 0, $ifx + $fx, $h, $cl ); # \ line } my( $ify ); for my $i ( 1..$max ) { $ify = $i * $fy; $self->line( 0, $ify, $w, $ify, $cl ); # - line } return; } 1; __END__ =pod =encoding UTF-8 =head1 NAME GD::SecurityImage::Styles - Drawing styles for GD::SecurityImage. =head1 VERSION version 1.75 =head1 SYNOPSIS See L<GD::SecurityImage>. =head1 DESCRIPTION This module contains the styles used in the security image. Used internally by L<GD::SecurityImage>. Nothing public here. =head1 NAME GD::SecurityImage::Styles - Drawing styles for GD::SecurityImage. =head1 METHODS =head2 style_blank =head2 style_box =head2 style_circle =head2 style_default =head2 style_ec =head2 style_ellipse =head2 style_rect =head1 SEE ALSO L<GD::SecurityImage>. =head1 AUTHOR Burak Gursoy <burak@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2004 by Burak Gursoy. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
Close