Subversion Repositories oidplus

<?php

/**

 * WEID<=>OID Converter

 * (c) Webfan.de, ViaThinkSoft

 * Revision 2022-03-06

 **/

// What is a WEID?

//     A WEID (WEhowski IDentifier) is an alternative representation of an

//     OID (Object IDentifier) defined by Till Wehowski.

//     In OIDs, arcs are in decimal base 10. In WEIDs, the arcs are in base 36.

//     Also, each WEID has a check digit at the end (called WeLohn Check Digit).

//

// Changes in the December 2021 definition by Daniel Marschall:

//     - There are several classes of WEIDs which have different OID bases:

//           "Class C" WEID:  weid:EXAMPLE-3      (base .1.3.6.1.4.1.37553.8.)

//                            oid:1.3.6.1.4.1.37553.8.32488192274

//           "Class B" WEID:  weid:pen:SX0-7PR-6  (base .1.3.6.1.4.1.)

//                            oid:1.3.6.1.4.1.37476.9999

//           "Class A" WEID:  weid:root:2-RR-2    (base .)

//                            oid:2.999

//     - The namespace (weid:, weid:pen:, weid:root:) is now case insensitive.

//     - Padding with '0' characters is valid (e.g. weid:000EXAMPLE-3)

//       The paddings do not count into the WeLuhn check-digit.

namespace Frdl\Weid; // TODO: Namespace mit Till abklären

class WeidOidConverter {

        protected static function weLuhnGetCheckDigit($str) {

                // Padding zeros don't count to the check digit (December 2021)

                $ary = explode('-', $str);

                foreach ($ary as &$a) {

                        $a = ltrim($a, '0');

                        if ($a === '') $a = '0';

                }

                $str = implode('-', $ary);

                // remove separators of the WEID string

                $wrkstr = str_replace('-', '', $str);

                // Replace 'a' with '10', 'b' with '11', etc.

                for ($i=0; $i<26; $i++) {

                        $wrkstr = str_ireplace(chr(ord('a')+$i), (string)($i+10), $wrkstr);

                }

                // At the end, $wrkstr should only contain digits! Verify it!

                for ($i=0; $i<strlen($wrkstr); $i++) {

                        if (($wrkstr[$i]<'0') || ($wrkstr[$i]>'9')) return false;

                }

                // Now do the standard Luhn algorithm

                $nbdigits = strlen($wrkstr);

                $parity = $nbdigits & 1; // mod 2

                $sum = 0;

                for ($n=$nbdigits-1; $n>=0; $n--) {

                        $digit = (int)$wrkstr[$n];

                        if (($n & 1) != $parity) $digit *= 2;

                        if ($digit > 9) $digit -= 9;

                        $sum += $digit;

                }

                return ($sum%10) == 0 ? 0 : 10-($sum%10);

        }

        private static function oidSanitize($oid) {

                $oid = trim($oid);

                if (substr($oid,0,1) == '.') $oid = substr($oid,1); // remove leading dot

                if ($oid != '') {

                        $elements = explode('.', $oid);

                        foreach ($elements as &$elem) {

                                if (trim($elem) == '') return false;

                                if (!preg_match('/^\d+$/', $elem, $m)) return false;

                                if (preg_match('/^0+$/', $elem, $m)) {

                                        $elem = '0';

                                } else {

                                        $elem = preg_replace('/^0+/', '', $elem);

                                }

                        };

                        $oid = implode('.', $elements);

                        if ((count($elements) > 0) && ($elements[0] != '0') && ($elements[0] != '1') && ($elements[0] != '2')) return false;

                        if ((count($elements) > 1) && (($elements[0] == '0') || ($elements[0] == '1')) && ((strlen($elements[1]) > 2) || ($elements[1] > 39))) return false;

                }

                return $oid;

        }

        // Translates a weid to an oid

        // "weid:EXAMPLE-3" becomes "1.3.6.1.4.1.37553.8.32488192274"

        // If it failed (e.g. wrong namespace, wrong checksum, etc.) then false is returned.

        // If the weid ends with '?', then it will be replaced with the checksum,

        // e.g. weid:EXAMPLE-? becomes weid:EXAMPLE-3

        public static function weid2oid(&$weid) {

                $weid = trim($weid);

                $p = strrpos($weid,':');

                $namespace = substr($weid, 0, $p+1);

                $rest = substr($weid, $p+1);

                $namespace = strtolower($namespace); // namespace is case insensitive

                if ($namespace == 'weid:') {

                        // Class C

                        $base = '1-3-6-1-4-1-SZ5-8';

                } else if ($namespace == 'weid:pen:') {

                        // Class B

                        $base = '1-3-6-1-4-1';

                } else if ($namespace == 'weid:root:') {

                        // Class A

                        $base = '';

                } else {

                        // Wrong namespace

                        return false;

                }

                $weid = $rest;

                $elements = array_merge(($base != '') ? explode('-', $base) : array(), explode('-', $weid));

                foreach ($elements as $elem) {

                        if ($elem == '') return false;

                }

                $actual_checksum = array_pop($elements);

                $expected_checksum = self::weLuhnGetCheckDigit(implode('-',$elements));

                if ($actual_checksum != '?') {

                        if ($actual_checksum != $expected_checksum) {

                                return false; // wrong checksum

                        }

                } else {

                        // If checksum is '?', it will be replaced by the actual checksum,

                        // e.g. weid:EXAMPLE-? becomes weid:EXAMPLE-3

                        $weid = str_replace('?', $expected_checksum, $weid);

                }

                foreach ($elements as &$arc) {

                        //$arc = strtoupper(base_convert($arc, 36, 10));

                        $arc = strtoupper(self::base_convert_bigint($arc, 36, 10));

                }

                $oid = implode('.', $elements);

                $weid = strtolower($namespace) . strtoupper($weid); // add namespace again

                $oid = self::oidSanitize($oid);

                if ($oid === false) return false;

                return $oid;

        }

        // Converts an OID to WEID

        // "1.3.6.1.4.1.37553.8.32488192274" becomes "weid:EXAMPLE-3"

        public static function oid2weid($oid) {

                $oid = self::oidSanitize($oid);

                if ($oid === false) return false;

                if ($oid !== '') {

                        $elements = explode('.', $oid);

                        foreach ($elements as &$arc) {

                                //$arc = strtoupper(base_convert($arc, 10, 36));

                                $arc = strtoupper(self::base_convert_bigint($arc, 10, 36));

                        }

                        $weidstr = implode('-', $elements);

                } else {

                        $weidstr = '';

                }

                $is_class_c = (strpos($weidstr, '1-3-6-1-4-1-SZ5-8-') === 0) ||

                              ($weidstr === '1-3-6-1-4-1-SZ5-8');

                $is_class_b = ((strpos($weidstr, '1-3-6-1-4-1-') === 0) ||

                              ($weidstr === '1-3-6-1-4-1'))

                              && !$is_class_c;

                $is_class_a = !$is_class_b && !$is_class_c;

                $checksum = self::weLuhnGetCheckDigit($weidstr);

                if ($is_class_c) {

                        $weidstr = substr($weidstr, strlen('1-3-6-1-4-1-SZ5-8-'));

                        $namespace = 'weid:';

                } else if ($is_class_b) {

                        $weidstr = substr($weidstr, strlen('1-3-6-1-4-1-'));

                        $namespace = 'weid:pen:';

                } else if ($is_class_a) {

                        // $weidstr stays

                        $namespace = 'weid:root:';

                } else {

                        // should not happen

                        return false;

                }

                $weid = $namespace . ($weidstr == '' ? $checksum : $weidstr . '-' . $checksum);

                return $weid;

        }

        protected static function base_convert_bigint($numstring, $frombase, $tobase) {

                $frombase_str = '';

                for ($i=0; $i<$frombase; $i++) {

                        $frombase_str .= strtoupper(base_convert((string)$i, 10, 36));

                }

                $tobase_str = '';

                for ($i=0; $i<$tobase; $i++) {

                        $tobase_str .= strtoupper(base_convert((string)$i, 10, 36));

                }

                $length = strlen($numstring);

                $result = '';

                $number = array();

                for ($i = 0; $i < $length; $i++) {

                        $number[$i] = stripos($frombase_str, $numstring[$i]);

                }

                do { // Loop until whole number is converted

                        $divide = 0;

                        $newlen = 0;

                        for ($i = 0; $i < $length; $i++) { // Perform division manually (which is why this works with big numbers)

                                $divide = $divide * $frombase + $number[$i];

                                if ($divide >= $tobase) {

                                        $number[$newlen++] = (int)($divide / $tobase);

                                        $divide = $divide % $tobase;

                                } else if ($newlen > 0) {

                                        $number[$newlen++] = 0;

                                }

                        }

                        $length = $newlen;

                        $result = $tobase_str[$divide] . $result; // Divide is basically $numstring % $tobase (i.e. the new character)

                }

                while ($newlen != 0);

                return $result;

        }

}

# --- Usage Example ---

/*

echo "Class C tests:\n\n";

var_dump($oid = '1.3.6.1.4.1.37553.8')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

var_dump($oid = '1.3.6.1.4.1.37553.8.32488192274')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:EXAMPLE-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

$weid = 'weid:00000example-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

echo "Class B tests:\n\n";

var_dump($oid = '1.3.6.1.4.1')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:pen:?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

var_dump($oid = '1.3.6.1.4.1.37553.7.99.99.99')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:pen:SZ5-7-2R-2R-2R-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

$weid = 'weid:pen:000SZ5-7-02R-00002R-002r-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

var_dump($oid = '1.3.6.1.4.1.37476.9999')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:pen:SX0-7PR-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

echo "Class A tests:\n\n";

var_dump($oid = '')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:root:?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

var_dump($oid = '.2.999')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:root:2-RR-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

var_dump($oid = '2.999')."\n";

var_dump(\Frdl\Weid\WeidOidConverter::oid2weid($oid))."\n";

$weid = 'weid:root:2-RR-?';

var_dump(\Frdl\Weid\WeidOidConverter::weid2oid($weid))."\n";

var_dump($weid)."\n";

echo "\n";

*/