3v4l.org

run code in 300+ PHP versions simultaneously

@ 2014-02-28T15:59:07Z

<?php

class IDN {
    // adapt bias for punycode algorithm
    private static function punyAdapt(
        $delta,
        $numpoints,
        $firsttime
    ) {
        $delta = $firsttime ? $delta / 700 : $delta / 2; 
        $delta += $delta / $numpoints;
        for ($k = 0; $delta > 455; $k += 36)
            $delta = intval($delta / 35);
        return $k + (36 * $delta) / ($delta + 38);
    }
 
    // make utf8 string from unicode codepoint number
    private static function utf8($cp) {
        if ($cp < 128) return chr($cp);
        if ($cp < 2048) 
            return chr(192+($cp >> 6)).chr(128+($cp & 63));
        if ($cp < 65536) return 
            chr(224+($cp >> 12)).
            chr(128+(($cp >> 6) & 63)).
            chr(128+($cp & 63));
        if ($cp < 2097152) return 
            chr(240+($cp >> 18)).
            chr(128+(($cp >> 12) & 63)).
            chr(128+(($cp >> 6) & 63)).
            chr(128+($cp & 63));
        // it should never get here 
    }
 
    // main decoding function
    private static function decodePart($input) {
        if (substr($input, 0, 4) !== 'xn--') {
            return $input;
        }
        $input = substr($input, 4);

        if (false !== $nonBasicCharsStart = strrpos($input, '-')) {
            $input = str_split(substr($input, $nonBasicCharsStart + 1), 1);
            $output = str_split(substr($input, 0, $nonBasicCharsStart), 1);
        } else {
            $input = str_split($input, 1);
            $output = [];
        }

        $n = 128; $i = 0; $bias = 72; // init punycode vars
        while (!empty($input)) {
            $oldi = $i;
            $w = 1;
            for ($k = 36;;) {
                $digit = ord(array_shift($input));

                if ($digit >= 0x61 && $digit <= 0x7A) {
                    $digit -= 97;
                } else if ($digit >= 0x30 && $digit <= 0x39) {
                    $digit -= 22;
                } else {
                    return false;
                }

                $i += $digit * $w;

                if ($k <= $bias) {
                    $t = 1;
                } else if ($k >= $bias + 26) {
                    $t = 26;
                } else {
                    $t = $k - $bias;
                }

                if ($digit < $t) {
                    break;
                }

                $w *= (int) (36 - $t);
                $k += 36;
            }
            $bias = IDN::punyAdapt(
                $i-$oldi,
                count($output)+1,
                $oldi == 0
            );
            $n += intval($i / (count($output) + 1));
            $i %= count($output) + 1;
            array_splice($output,$i,0,array(IDN::utf8($n)));
            $i++;
        }
        return implode("",$output);
    }
 
    public static function decodeIDN($name) {
        // split it, parse it and put it back together
        return 
            implode(
                ".",
                array_map("IDN::decodePart",explode(".",$name))
            );
    }
 
}

echo IDN::decodeIDN("xn---with-SUPER-MONKEYS-pc58ag80a8qai00g7n9n");

Output for 8.0.0 - 8.0.30, 8.1.0 - 8.1.28, 8.2.0 - 8.2.18, 8.3.0 - 8.3.6: Fatal error: Uncaught TypeError: substr(): Argument #1 ($string) must be of type string, array given in /in/2a9sd:43 Stack trace: #0 /in/2a9sd(43): substr(Array, 0, 19) #1 [internal function]: IDN::decodePart(Array) #2 /in/2a9sd(99): array_map('IDN::decodePart', Array) #3 /in/2a9sd(105): IDN::decodeIDN('xn---with-SUPER...') #4 {main} thrown in /in/2a9sd on line 43
Process exited with code 255.
Output for 5.4.0 - 5.4.45, 5.5.0 - 5.5.38, 5.6.0 - 5.6.40, 7.0.0 - 7.0.33, 7.1.0 - 7.1.33, 7.2.0 - 7.2.33, 7.3.0 - 7.3.33, 7.4.0 - 7.4.33: Warning: substr() expects parameter 1 to be string, array given in /in/2a9sd on line 43 𷡐𸬊񂔛𺄲𸩵
Output for 5.1.0 - 5.1.6, 5.2.0 - 5.2.17, 5.3.0 - 5.3.29: Parse error: syntax error, unexpected '[' in /in/2a9sd on line 46
Process exited with code 255.
Output for 5.0.0 - 5.0.5: Parse error: parse error, unexpected '[' in /in/2a9sd on line 46
Process exited with code 255.
Output for 4.4.2 - 4.4.9: Parse error: syntax error, unexpected T_STRING, expecting T_OLD_FUNCTION or T_FUNCTION or T_VAR or '}' in /in/2a9sd on line 5
Process exited with code 255.
Output for 4.3.0 - 4.3.1, 4.3.5 - 4.3.11, 4.4.0 - 4.4.1: Parse error: parse error, unexpected T_STRING, expecting T_OLD_FUNCTION or T_FUNCTION or T_VAR or '}' in /in/2a9sd on line 5
Process exited with code 255.
Output for 4.3.2 - 4.3.4: Parse error: parse error, expecting `T_OLD_FUNCTION' or `T_FUNCTION' or `T_VAR' or `'}'' in /in/2a9sd on line 5
Process exited with code 255.

preferences:dark modelive preview

329.77 ms | 401 KiB | 460 Q