initial
Этот коммит содержится в:
318
idna.php
Обычный файл
318
idna.php
Обычный файл
@@ -0,0 +1,318 @@
|
||||
<?php
|
||||
/**
|
||||
* Finds the character code for a UTF-8 character: like ord() but for UTF-8.
|
||||
*
|
||||
* @author Nicolas Thouvenin <nthouvenin@gmail.com>
|
||||
* @copyright 2008 Nicolas Thouvenin
|
||||
* @license http://opensource.org/licenses/LGPL-2.1 LGPL v2.1
|
||||
*/
|
||||
function ordUTF8($c, $index = 0, &$bytes = null)
|
||||
{
|
||||
$len = strlen($c);
|
||||
$bytes = 0;
|
||||
if ($index >= $len)
|
||||
return false;
|
||||
$h = ord($c{$index});
|
||||
if ($h <= 0x7F) {
|
||||
$bytes = 1;
|
||||
return $h;
|
||||
}
|
||||
else if ($h < 0xC2)
|
||||
return false;
|
||||
else if ($h <= 0xDF && $index < $len - 1) {
|
||||
$bytes = 2;
|
||||
return ($h & 0x1F) << 6 | (ord($c{$index + 1}) & 0x3F);
|
||||
}
|
||||
else if ($h <= 0xEF && $index < $len - 2) {
|
||||
$bytes = 3;
|
||||
return ($h & 0x0F) << 12 | (ord($c{$index + 1}) & 0x3F) << 6
|
||||
| (ord($c{$index + 2}) & 0x3F);
|
||||
}
|
||||
else if ($h <= 0xF4 && $index < $len - 3) {
|
||||
$bytes = 4;
|
||||
return ($h & 0x0F) << 18 | (ord($c{$index + 1}) & 0x3F) << 12
|
||||
| (ord($c{$index + 2}) & 0x3F) << 6
|
||||
| (ord($c{$index + 3}) & 0x3F);
|
||||
}
|
||||
else
|
||||
return false;
|
||||
}
|
||||
|
||||
/**
|
||||
* Encode UTF-8 domain name to IDN Punycode
|
||||
*
|
||||
* @param string $value Domain name
|
||||
* @return string Encoded Domain name
|
||||
*
|
||||
* @author Igor V Belousov <igor@belousovv.ru>
|
||||
* @copyright 2013 Igor V Belousov
|
||||
* @license http://opensource.org/licenses/LGPL-2.1 LGPL v2.1
|
||||
* @link http://belousovv.ru/myscript/phpIDN
|
||||
*/
|
||||
function EncodePunycodeIDN( $value )
|
||||
{
|
||||
/* search subdomains */
|
||||
$sub_domain = explode( '.', $value );
|
||||
if ( count( $sub_domain ) > 1 ) {
|
||||
$sub_result = '';
|
||||
foreach ( $sub_domain as $sub_value ) {
|
||||
$sub_result .= '.' . EncodePunycodeIDN( $sub_value );
|
||||
}
|
||||
return substr( $sub_result, 1 );
|
||||
}
|
||||
|
||||
$mb_internal_enc = mb_internal_encoding();
|
||||
mb_internal_encoding( "UTF-8" );
|
||||
|
||||
$value = mb_strtolower( $value );
|
||||
|
||||
/* http://tools.ietf.org/html/rfc3492#section-6.3 */
|
||||
$n = 0x80;
|
||||
$delta = 0;
|
||||
$bias = 72;
|
||||
$output = array();
|
||||
|
||||
$input = array();
|
||||
$str = $value;
|
||||
while ( mb_strlen( $str ) > 0 )
|
||||
{
|
||||
array_push( $input, mb_substr( $str, 0, 1 ) );
|
||||
$str = mb_substr( $str, 1 );
|
||||
}
|
||||
|
||||
/* basic symbols */
|
||||
$basic = preg_grep( '/[\x00-\x7f]/', $input );
|
||||
$b = $basic;
|
||||
|
||||
if ( $b == $input )
|
||||
{
|
||||
mb_internal_encoding( $mb_internal_enc );
|
||||
return $value;
|
||||
}
|
||||
$b = count( $b );
|
||||
if ( $b > 0 ) {
|
||||
$output = $basic;
|
||||
/* add delimeter */
|
||||
$output[] = '-';
|
||||
}
|
||||
unset($basic);
|
||||
/* add prefix */
|
||||
array_unshift( $output, 'xn--' );
|
||||
|
||||
$input_len = count( $input );
|
||||
$h = $b;
|
||||
|
||||
while ( $h < $input_len ) {
|
||||
$m = 0x10FFFF;
|
||||
for ( $i = 0; $i < $input_len; ++$i )
|
||||
{
|
||||
$ord_input[ $i ] = ordUtf8( $input[ $i ] );
|
||||
if ( ( $ord_input[ $i ] >= $n ) && ( $ord_input[ $i ] < $m ) )
|
||||
{
|
||||
$m = $ord_input[ $i ];
|
||||
}
|
||||
}
|
||||
if ( ( $m - $n ) > ( 0x10FFFF / ( $h + 1 ) ) )
|
||||
{
|
||||
mb_internal_encoding( $mb_internal_enc );
|
||||
return $value;
|
||||
}
|
||||
$delta += ( $m - $n ) * ( $h + 1 );
|
||||
$n = $m;
|
||||
|
||||
for ( $i = 0; $i < $input_len; ++$i )
|
||||
{
|
||||
$c = $ord_input[ $i ];
|
||||
if ( $c < $n )
|
||||
{
|
||||
++$delta;
|
||||
if ( $delta == 0 )
|
||||
{
|
||||
mb_internal_encoding( $mb_internal_enc );
|
||||
return $value;
|
||||
}
|
||||
}
|
||||
if ( $c == $n )
|
||||
{
|
||||
$q = $delta;
|
||||
for ( $k = 36;; $k += 36 )
|
||||
{
|
||||
if ( $k <= $bias )
|
||||
{
|
||||
$t = 1;
|
||||
}
|
||||
elseif ( $k >= ( $bias + 26 ) )
|
||||
{
|
||||
$t = 26;
|
||||
}
|
||||
else
|
||||
{
|
||||
$t = $k - $bias;
|
||||
}
|
||||
if ( $q < $t )
|
||||
{
|
||||
break;
|
||||
}
|
||||
$tmp_int = ( $t + ( ( $q - $t ) % ( 36 - $t ) ) );
|
||||
$output[] = chr( ( $tmp_int + 22 + 75 * ( $tmp_int < 26 ) ) );
|
||||
$q = ( $q - $t ) / ( 36 - $t );
|
||||
}
|
||||
|
||||
$output[]= chr(($q + 22 + 75 * ($q < 26)));
|
||||
/* http://tools.ietf.org/html/rfc3492#section-6.1 */
|
||||
$delta = ( $h == $b )?$delta/700:$delta>>1;
|
||||
|
||||
$delta += ( $delta / ( $h + 1 ) );
|
||||
|
||||
$k2 = 0;
|
||||
while ( $delta > 455 )
|
||||
{
|
||||
$delta /= 35;
|
||||
$k2 += 36;
|
||||
}
|
||||
$bias= intval( $k2 + ( ( 36 * $delta ) / ( $delta + 38 ) ) );
|
||||
/* end section-6.1 */
|
||||
$delta = 0;
|
||||
++$h;
|
||||
}
|
||||
}
|
||||
++$delta;
|
||||
++$n;
|
||||
}
|
||||
mb_internal_encoding( $mb_internal_enc );
|
||||
return implode( '', $output );
|
||||
}
|
||||
|
||||
/**
|
||||
* Decode IDN Punycode to UTF-8 domain name
|
||||
*
|
||||
* @param string $value Punycode
|
||||
* @return string Domain name in UTF-8 charset
|
||||
*
|
||||
* @author Igor V Belousov <igor@belousovv.ru>
|
||||
* @copyright 2013 Igor V Belousov
|
||||
* @license http://opensource.org/licenses/LGPL-2.1 LGPL v2.1
|
||||
* @link http://belousovv.ru/myscript/phpIDN
|
||||
*/
|
||||
function DecodePunycodeIDN($value)
|
||||
{
|
||||
/* search subdomains */
|
||||
$sub_domain = explode('.', $value);
|
||||
if (count($sub_domain)>1){
|
||||
$sub_result='';
|
||||
foreach ($sub_domain as $sub_value) {
|
||||
$sub_result .= '.'.DecodePunycodeIDN($sub_value);
|
||||
}
|
||||
return substr($sub_result,1);
|
||||
}
|
||||
|
||||
/* search prefix */
|
||||
if (substr($value,0,4)!='xn--')
|
||||
{
|
||||
return $value;
|
||||
}
|
||||
else
|
||||
{
|
||||
$bad_input=$value;
|
||||
$value=substr($value,4);
|
||||
}
|
||||
|
||||
$n = 0x80;
|
||||
$i = 0;
|
||||
$bias = 72;
|
||||
$output = array();
|
||||
|
||||
/* search delimeter */
|
||||
$d = strrpos($value, '-');
|
||||
|
||||
if ($d > 0) {
|
||||
for ( $j = 0; $j < $d; ++$j) {
|
||||
$c = $value[$j];
|
||||
$output[]=$c;
|
||||
if ($c > 0x7F)
|
||||
{
|
||||
return $bad_input;
|
||||
}
|
||||
}
|
||||
++$d;
|
||||
} else {
|
||||
$d = 0;
|
||||
}
|
||||
|
||||
while ($d < strlen($value))
|
||||
{
|
||||
$oldi = $i;
|
||||
$w = 1;
|
||||
|
||||
for ($k = 36;; $k += 36)
|
||||
{
|
||||
if ($d == strlen($value))
|
||||
{
|
||||
return $bad_input;
|
||||
}
|
||||
$c = $value[$d++];
|
||||
$c=ord($c);
|
||||
|
||||
$digit=($c - 48 < 10) ? $c - 22 :
|
||||
(
|
||||
($c - 65 < 26) ? $c - 65 :
|
||||
(
|
||||
($c - 97 < 26) ? $c - 97 : 36
|
||||
)
|
||||
);
|
||||
if ($digit > (0x10FFFF - $i) / $w)
|
||||
{
|
||||
return $bad_input;
|
||||
}
|
||||
$i += $digit * $w;
|
||||
|
||||
if ($k <= $bias)
|
||||
{
|
||||
$t = 1;
|
||||
}
|
||||
elseif ($k >= $bias + 26)
|
||||
{
|
||||
$t = 26;
|
||||
}
|
||||
else
|
||||
{
|
||||
$t = $k - $bias;
|
||||
}
|
||||
if ($digit < $t) {
|
||||
break;
|
||||
}
|
||||
|
||||
$w *= (36 - $t);
|
||||
|
||||
}
|
||||
|
||||
$delta = $i - $oldi;
|
||||
|
||||
/* http://tools.ietf.org/html/rfc3492#section-6.1 */
|
||||
$delta = ($oldi == 0)?$delta/700:$delta>>1;
|
||||
|
||||
$count_output_plus_one=count($output)+1;
|
||||
$delta += ($delta / ($count_output_plus_one+1));
|
||||
|
||||
$k2 = 0;
|
||||
while ($delta > 455)
|
||||
{
|
||||
$delta /= 35;
|
||||
$k2 += 36;
|
||||
}
|
||||
$bias= intval($k2 + (36 * $delta) / ($delta + 38));
|
||||
/* end section-6.1 */
|
||||
if ($i / $count_output_plus_one > 0x10FFFF - $n)
|
||||
{
|
||||
return $bad_input;
|
||||
}
|
||||
$n += intval($i / $count_output_plus_one);
|
||||
$i = intval($i % $count_output_plus_one);
|
||||
array_splice($output, $i, 0,
|
||||
html_entity_decode('&#'.$n.';',ENT_NOQUOTES,'UTF-8')
|
||||
);
|
||||
++$i;
|
||||
}
|
||||
return implode('', $output);
|
||||
}
|
||||
|
||||
Ссылка в новой задаче
Block a user