like this in the footer is that type of hacker plays or what

pls help
thank you
Code: Select all
else
{
require HCE_MD5;
my $hce = HCE_MD5->new($c->{dl_key},"XFileSharingPRO");
my $file_id = $file->{file_real_id}||$file->{file_id};
my ($ip1,$ip2,$ip3,$ip4) = split(/\./,$ip);
my $hash = $hce->hce_block_encrypt( pack("LA12SC4L", $file_id, $file->{file_real}, $c->{down_speed}, $ip1,$ip2,$ip3,$ip4, (time+$c->{symlink_expire}*3600) ) );
my ($l,$e);
$hash=unpack('B*',$hash);$hash=~s/(.....)/000$1/g;$l=length($hash);
if ($l & 7){$e = substr($hash, $l & ~7);$hash = substr($hash, 0, $l & ~7);$hash .= "000$e" . '0' x (5 - length $e);}
$hash=pack('B*', $hash);$hash=~tr|\0-\37|a-z2-7|;
#unless($ENV{HTTP_ACCEPT_CHARSET}=~/utf-8/i)
#{
#$fname = $file->{file_name};
$fname =~ s/([^A-Za-z0-9\-_\.!~*'\(\)\s])/ uc sprintf "%%%02x",ord $1 /eg;
#$file->{file_name} =~ tr/ /_/;
#}
return "$file->{srv_cgi_url}/dl.cgi/$hash/$fname";
}
Code: Select all
return "$file->{srv_cgi_url}/dl.cgi/$hash/$fname";