PHP Decode

class Am_License {
    
    static $instance;
        static $tlds = [
            'ac' => ['co','gv','or','ac',],
            'af' => null,
            'am' => null,
            'ar' => ['com',],
            'as' => null,
            'at' => ['ac','co','gv','or',],
            'au' => ['asn','com','edu','org','net',],
            'be' => ['ac',],
            'biz' => ['dyndns'],
            'br' => ['adm','adv','am','arq','art','bio','cng','cnt','com','ecn','eng','esp','etc','eti','fm','fot','fst','g12','gov','ind','inf','jor','lel','med','mil','net','nom','ntr','odo','org','ppg','pro','psc','psi','rec','slg','tmp','tur','tv','vet','zlg',],
            'ca' => ['ab','bc','mb','nb','nf','ns','nt','on','pe','qc','sk','yk',],
            'cc' => null,
            'ch' => null,
            'cn' => ['ac','com','edu','gov','net','org','bj','sh','tj','cq','he','nm','ln','jl','hl','js','zj','ah','hb','hn','gd','gx','hi','sc','gz','yn','xz','sn','gs','qh','nx','xj','tw','hk','mo',],
            'co' => ['arts', 'com', 'edu', 'firm', 'gov', 'info', 'int', 'mil', 'net', 'nom', 'org', 'rec', 'web'],
            'com' => [
                'br','cn','eu','hu','no','qc','sa','se','us','uy','za','uk','gb','ph', 'au', 'dyndns-server', 'temp-dns', 'amazonaws'=> [
                    'compute'=> [
                        'ap-northeast-1', 'ap-northeast-2', 'ap-southeast-1', 'ap-southeast-2', 'cn-north-1', 'us-gov-west-1', 'us-west-1', 'us-west-2', 'eu-west-1', 'sa-east-1', 'eu-central-1'
                    ],
                ]
            ],
            'cx' => null,
            'cz' => null,
            'de' => null,
            'dev' => null,
            'dk' => null,
            'ec' => ['com','org','net','mil','fin','med','gov',],
            'edu' => null,
            'eu' => null,
            'fi' => null,
            'fo' => null,
            'fr' => ['tm','com','asso','presse',],
            'gf' => null,
            'gr' => null,
            'gs' => null,
            'id' => ['ac', 'biz', 'co', 'desa', 'go', 'mil', 'my', 'net', 'or', 'sch', 'web'],
            'il' => ['co','org','net','ac','k12','gov','muni',],
            'in' => ['ac','co','ernet','gov','net','res',],
            'info' => ['dyndns'],
            'int' => null,
            'io' => ['ngrok'],
            'is' => null,
            'it' => null,
            'jp' => ['ac','co','go','or','ne',],
            'ke' => ['co'],
            'kn' => ['net', 'org', 'edu', 'gov'],
            'kr' => ['ac','co','go','ne','nm','or','re',],
            'kz' => null,
            'li' => null,
            'lt' => null,
            'lu' => null,
            'mc' => ['asso','tm',],
            'mil' => null,
            'mm' => ['com','org','net','edu','gov',],
            'ms' => null,
            'mx' => ['com','org','net','edu','gov',],
            'my' => ['com', 'net', 'org', 'gov', 'edu', 'mil', 'name'],
            'name' => null,
            'net' => ['se','uk','gb','azurewebsites', 'ddns'],
            'news'  => null,
            'nl' => null,
            'no' => null,
            'nu' => null,
            'nz' => ['com','co','org',],
            'org' => ['dyndns'],
            'ovh' => null,
            'pk' => ['com',],
            'pl' => ['com','net','org',],
            'pt' => null,
            'ph' => ['com','org'],
            'ro' => ['com','org','store','tm','firm','www','arts','rec','info','nom','nt',],
            'ru' => ['com','net','org', 'ac', 'edu', 'int', 'gov', 'mil'],
            'se' => null,
            'sg' => ['com','org','net','gov',],
            'sh' => null,
            'si' => null,
            'sk' => null,
            'st' => null,
            'tc' => null,
            'tf' => null,
            'th' => ['ac','co','go','mi','net','or',],
            'tj' => null,
            'tm' => null,
            'to' => null,
            'tr' => [
                'com', 'info', 'biz', 'net', 'org', 'web', 'gen', 'tv', 'av',
                'dr', 'bbs', 'name', 'tel', 'gov', 'bel', 'pol', 'mil', 'k12',
                'edu', 'kep', 'nc',
            ],
            'tt' => ['co',],
            'tv' => ['dyndns'],
            'tw' => ['com','org','net',],
            'ua' => null,
            'uk' => ['co','org','ltd','plc','ac','me',],
            'us' => null,
            'vg' => null,
            'vi' => ['co', 'com', 'k12', 'net', 'org'],
            'vn' => ['com', 'net', 'org', 'edu', 'gov', 'int', 'ac', 'biz', 'info', 'name', 'pro', 'health'],
            'ws' => null,
            'za' => ['ac','alt','co','edu','gov','mil','net','ngo','nom','org','school','tm','web',],
    ];

    protected $domain, $sdomain;
    protected $rootDomain, $srootDomain;
    protected $parsedLicenses = [];
    public $vHcbv;
    protected $_call = "initHooks";

    public function __construct() {
        $this->initDomains();
    }

    public function init($bootstrap) {
        amember_get_iconf_r();
        $bootstrap->{$this->_call}();
    }

    public function initDomains() {
        $domain = @$_SERVER['HTTP_HOST'];
        if (!$domain) {
            $domain = parse_url(Am_Di::getInstance()->config->get('root_url'));
            $domain = $domain['host'];
        }
        if (!$domain) $domain = @$_SERVER['SERVER_NAME'];
        if ($domain == '')
            amDie("Cannot get domain name");
        $domain = $this->getMinDomain($domain);
                $sdomain = '';
                $sdomain = @$_SERVER['HTTP_HOST'];
        if (!$sdomain) {
            $sdomain = parse_url(Am_Di::getInstance()->config->get('root_surl'));
            $sdomain = $sdomain['host'];
        }
        if (!$sdomain) $sdomain = @$_SERVER['SERVER_NAME'];
        if ($sdomain == '')
            amDie("Cannot get secure domain name");
        $sdomain = $this->getMinDomain($sdomain);
                $this->domain = $domain;
        $this->sdomain = $sdomain;
        $up = parse_url(Am_Di::getInstance()->config->get('root_url'));
        if (@$up['host'] == '')
            return "Root URL is empty";
        $this->rootDomain = $this->getMinDomain($up['host']);

        $up = parse_url(Am_Di::getInstance()->config->get('root_surl'));
        if ($up['host'] == '')
            return "Secure Root URL is empty";
        $this->srootDomain = $this->getMinDomain($up['host']);
    }

    protected function addLicense($domain, $expires, $version)
    {
        if ($this->parsedLicenses && !empty($this->parsedLicenses[$domain]))
            $min = $this->parsedLicenses[$domain];
        else
            $min = null;
        $this->parsedLicenses[$domain] = max($expires, $min);
        $this->vHcbv = $version;
    }

    public function mail($domains, $expires, $type = 0)
    {
        $url = Am_Di::getInstance()->config->get('root_url');
        $server_ip = $_SERVER['SERVER_ADDR'];
        $server_name = $_SERVER['SERVER_NAME'];

        switch ($type)
        {
            case 1:
                $subj = "URGENT: License Expired (aMember Pro)";
                $text = "
        Your aMember Pro license is about to expire. Expiration date: $expires
        Please login into CGI-Central Members section (http://www.amember.com/amember/login)
        and get new license key.

        aMember Installation Url: $url
        Server: $server_name ($server_ip)
                ";
            break;
            default:
                $subj = "URGENT: License Expired (aMember Pro)";
                $text = "
        Your aMember Pro license expired. Please login into CGI-Central
        Members section (http://www.amember.com/amember/login) and get
        new license key in order to continue aMember Pro usage.

        aMember Installation Url: $url
        Server: $server_name ($server_ip)
        ";
        }

        $di = Am_Di::getInstance();
        if (!$di->store->get('license_email_sent'))
        {
            $mail = $di->mail;
            $mail->toAdmin();
            $mail
                    ->setSubject($subj)
                    ->setBodyText($text);
            try {
                $mail->send();
            } catch (Zend_Mail_Exception $e) {
                $di->logger->error("Error during email sending", ["exception" => $e]);
            }
            $di->store->set('license_email_sent', 1, '+24 hours');
        }
    }

    function check()
    { 
                if (trim(Am_Di::getInstance()->config->get('license')) == '') {
            return "After upgrading from aMember Trial to aMember Pro, it is necessary to install <br />
            license key. You can find your license key in the
            <a target='_blank' href='https://www.amember.com/amember/member'>aMember Pro Customers Area</a>";
        }
        $date = date('Y-m-d');
        $expired = 0;

        $oldLicenses = 0;
        $license = Am_Di::getInstance()->config->get('license');
        $license = preg_replace('/===== LICENSE.+
.+ENF OF LICENSE =====/ms', '', $license, -1, $oldLicenses);

        $expired = false;
        foreach (explode("
", $license) as $v)
        {
            $v = str_replace('=', '', trim($v, "
	 "));
            if (empty($v)) continue;
            $ret = $this->_dl($v);
            if (!empty($ret['err'])) return $ret['err'];

            if ($date > $ret['exp']) {
                $this->mail($ret['domains'], $ret['exp'], 0);
                foreach ($ret['domains'] as $domain) {
                    if ($domain == $this->domain) $expired = true;
                }
                continue;
            } elseif($ret['exp'] != '2099-12-31') {
                $exp = new DateTime($ret['exp']);
                $today = new DateTime(Am_Di::getInstance()->sqlDate);
                if($exp->diff($today)->format("%a") < 7) {
                    $this->mail($ret['domains'], $ret['exp'], 1);
                }
            }

            foreach ($ret['domains'] as $d) {
                $this->addLicense($d, $ret['exp'], $ret['ver']);
            }
        }
        if ($this->getExpires() < date('Y-m-d', time()+30*24*3600))
        {
            Am_Di::getInstance()->app->updateLicense();
        }
        if (!$this->parsedLicenses ||
            (!isset($this->parsedLicenses[$this->domain]) && $expired))
        {
            if ($oldLicenses) {
                return nl2br("Seems you have license key from older version of aMember installed.
".
                             "Please visit members area https://www.amember.com/amember/member
".
                             "to get updated license keys");
            } else  {
                return "Your license key is expired or corrupted";
            }
        }
        
        $matched_domain = 0;
        $matched_sdomain = 0;
        $matched_root_url = 0;
        $matched_sroot_url = 0;
        foreach ($this->parsedLicenses as $d => $expires) {
            if ($this->cmp($this->domain, $d)) $matched_domain++;
            if ($this->cmp($this->sdomain, $d)) $matched_sdomain++;
            $d = preg_quote($d);
            if (preg_match("/(^|\.)$d\$/", $this->rootDomain)) $matched_root_url++;
            if (preg_match("/(^|\.)$d\$/", $this->srootDomain)) $matched_sroot_url++;
        }
        $list_domains = join(',', array_keys($this->parsedLicenses));

        $url  = (!empty($_SERVER['HTTPS']) && ('off' != strtolower($_SERVER['HTTPS']))) ? "https://" : "http://";
        $url .= htmlentities( $this->domain. @$_SERVER['REQUEST_URI']);
        $ref = @$_SERVER['HTTP_REFERER'];
        $root_url = Am_Di::getInstance()->config->get('root_url');
        $root_surl = Am_Di::getInstance()->config->get('root_surl');

        if (!$matched_domain)
            return "License error - license domain does not match your domain ($this->domain!=$list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_sdomain)
            return "License error - license domain does not match your secure domain ($this->sdomain!=$list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_root_url)
            return "Configured Root URL '$root_url' doesn't match license domain ($list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_sroot_url)
            return "Configured Secure Root URL '$root_surl' doesn't match license domain ($list_domains)<br />
at $url<br />
ref from $ref";

        return '';
    }                                                                                                                                                                       function _dl($ow1){if(!preg_match(base64_decode('L15MKC4rKVgkLw=='),$ow1,$bo2))return [base64_decode('ZXJy') =>base64_decode('SW52YWxpZCBsaWNlbnNlIGtleSAtIG11c3Qgc3RhcnQgd2l0aCBM')];$yo3=$bo2[1][strlen($bo2[1])-1];$bo2[1]=substr($bo2[1],0,-1).str_repeat(base64_decode('PQ=='),(int)$yo3);$ow1=gzinflate(base64_decode($bo2[1]));if(!$ow1)return [base64_decode('ZXJy') =>base64_decode('SW52YWxpZCBsaWNlbnNlIGtleSAtIG11c3Qgc3RhcnQgd2l0aCBM')];$ow1=explode(base64_decode('Og=='),$ow1);$wq4=array_pop($ow1);if(substr(sha1(implode(base64_decode('Og=='),$ow1)),0,2)!=$wq4)return [base64_decode('cmV0') =>base64_decode('SW52YWxpZCBsaWNlbnNlIGtleSAtIGNvcnJ1cHRlZA==')];$os5=array_pop($ow1);$ko6=array_pop($ow1);$ko6=$ko6>24800?base64_decode('MjA5OS0xMi0zMQ=='):date(base64_decode('WS1tLWQ='),$ko6*86400+42990);return [base64_decode('dmVy') =>$os5,base64_decode('ZXhw')=>$ko6,base64_decode('ZG9tYWlucw==') =>$ow1];}

    public function checkLicense()
    {
                if (trim(Am_Di::getInstance()->config->get('license')) == '') {
            return "After upgrading from aMember Trial to aMember Pro, it is necessary to install <br />
            license key. You can find your license key in the
            <a target='_blank' href='https://www.amember.com/amember/member'>aMember Pro Customers Area</a>";
        }
        $date = date('Y-m-d');
        $expired = false;
        foreach (preg_split('|===== ENF OF LICENSE =====[
\s]*|m', Am_Di::getInstance()->config->get('license'), -1, PREG_SPLIT_NO_EMPTY | PREG_SPLIT_DELIM_CAPTURE) as $v) {
            $v .= "===== ENF OF LICENSE =====";
            if ($error = $this->decode_hb($v, $dmm, $smm, $exp))
                return $error;
            $dat = date('Y-m-d');
            if (date('Y-m-d') > $exp) {
                $this->mailExpired($dmm, $smm, $exp);
                $expired++;
                continue;
            } elseif ($dat == $exp) {
                $this->mailExpiresSoon($dmm, $smm, $exp);
            }
            $this->addLicense($dmm, $exp);
            if ($smm != $dmm) $this->addLicense($smm, $exp);
        }
        if (!$this->parsedLicenses && $expired)
            return "Your license key is expired";
        
        $matched_domain = 0;
        $matched_sdomain = 0;
        $matched_root_url = 0;
        $matched_sroot_url = 0;
        foreach ($this->parsedLicenses as $d => $expires) {
            if ($this->cmp($this->domain, $d)) $matched_domain++;
            if ($this->cmp($this->sdomain, $d)) $matched_sdomain++;
            $d = preg_quote($d);
            if (preg_match("/(^|\.)$d\$/", $this->rootDomain)) $matched_root_url++;
            if (preg_match("/(^|\.)$d\$/", $this->srootDomain)) $matched_sroot_url++;
        }
        $list_domains = implode(',', array_keys($this->parsedLicenses));

        $url  = (@$_SERVER['SERVER_PORT'] == 443) ? "https://" : "http://";
        $url .= htmlentities( $this->domain. @$_SERVER['REQUEST_URI']);
        $ref = @$_SERVER['HTTP_REFERER'];
        $root_url = Am_Di::getInstance()->config->get('root_url');
        $root_surl = Am_Di::getInstance()->config->get('root_surl');

        if (!$matched_domain)
            return "License error - license domain does not match your domain ($this->domain!=$list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_sdomain)
            return "License error - license domain does not match your secure domain ($this->sdomain!=$list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_root_url)
            return "Configured Root URL '$root_url' doesn't match license domain ($list_domains)<br />
at $url<br />
ref from $ref";
        if (!$matched_sroot_url)
            return "Configured Secure Root URL '$root_surl' doesn't match license domain ($list_domains)<br />
at $url<br />
ref from $ref";

        return '';
    }

    protected function cmp($d1, $d2)
    {
        $_ = 'test|example|invalid|localhost|local';
        return (in_array($d2, explode('|', $_)) && preg_match("/\.({$_})$/", $d1)) || $d1 == $d2;
    }

    public function getDomains() {
        return array_keys($this->parsedLicenses);
    }
    public function getLicenses() {
        return $this->parsedLicenses;
    }
    public function getExpires()
    {
        return $this->parsedLicenses ? max($this->parsedLicenses) : null;
    }
    function decode_ha($myin) {
        $myout = '';
        for ($i=0; $i<strlen($myin)/2; $i++) {
            $myout.=chr(base_convert(substr($myin,$i*2,2),16,10));
        }
        return $myout;
    }

    function decode_hb($license, &$dmm, &$smm, &$exp) {
        $dmm = $smm = $exp = "";
        if (!strlen($license))
            return "License empty - please visit aMember Pro Control Panel -> Setup/Configuration -> License";
        if (!preg_match('|=====.+?=====\s+(\w+)\s+(\w+)\s+(\w+)\s+(\w+)\s+=====|', $license, $line))
            return "License invalid - please contact CGI-Central Support";
        array_shift($line);
                $exp = substr($line[1], 32+3, -1);
        $exp = $this->decode_ha($exp);
        $dmm = substr($line[2], 1, -32-3);
        $dmm = $this->decode_ha($dmm);
        $smm = substr($line[3], 32+1, -1);
        $smm = $this->decode_ha($smm);
                $fs = "UmCv0)9237**7231" ;
        $ls = ".,nm!#($*^jAdCMy*(&78z76234nkcsP':?z";
        $md5 = strtoupper(md5($fs . $dmm . $exp . ".,nm!#($*^jAdCMy*(&7813nc52asasa|||z"));
        $sd5 = strtoupper(md5("Umxv0)5786*I7x31" . $smm . $exp . $ls));
        $md5o = substr($line[1], 1, 32);
        $sd5o = substr($line[2], strlen($line[2])-33, 32);

        if ($sd5o != $sd5) return "License error - secure domain check incorrect";
        if ($md5o != $md5) return "License error - domain check incorrect";
        if (($sd5o != $sd5) && ($md5o != $md5))
            return "License error - domain check failed";
        if (!$exp) {
            return "License expiration date incorrect";
        }
    }

    
    static function getInstance() {
        if (!self::$instance)
            self::$instance = new self;
        return self::$instance;
    }

    static function getMinDomain($domain) {
                if (preg_match('/^[\.0-9\:]+$/', $domain)) return $domain;
        $domain = strtolower(trim(preg_replace('/(\:\d+)$/', '', $domain)));
        $domain = preg_replace('/\s+/', '', $domain);
        if (in_array($domain, explode('|', 'test|example|invalid|localhost|local'))) return $domain;

        $tlds = & self::$tlds;
        $found = 0;
        $domain_split = explode('.', $domain);
                foreach (array_reverse($domain_split) as $d) {
            if (is_array($tlds)) {
                if(array_key_exists($d, $tlds))
                {
                        $tlds = & $tlds[$d];
                        $found++;
                        continue;
                }
                else if(in_array($d, $tlds))
                {
                        $found++;
                        break;
                }
            }
            break;
        }

        if ($found)
            return implode(".", array_slice($domain_split, -$found-1));

                if (preg_match("/([-\w]+\.\w+)$/", $domain, $regs))
            return $regs[1];
        else
            throw new Exception("Cannot create license: unknown TLD for domain: $domain");
    }

    public function getVersion()
    {

    }
}


function amember_get_iconf_r() {
    $request = Am_Di::getInstance()->request;
    $uri = $request->getRequestUri();
    $uri = substr($uri, strlen(REL_ROOT_URL));
    if (preg_match('/^(\/admin-auth|\/admin-license)/i', $uri))
        return;

    if ($msg = Am_License::getInstance()->check()) {
        $msg .= "<br><a href='".REL_ROOT_URL."/admin-license'>If you are the site administrator, click this link to fix</a>";
        throw new Am_Exception_FatalError($msg);
    }
}