Просмотр файла troforum_v0.1afupdate/unicode.lib.php

<?php
#################################################################################
# Разработка скрипта - Trofimov Dima                                            #
# Сайт автора - http://www.trofimov.com.ru                                      #
# Мейл автора - [email protected]                                            #
# Версия скрипта - WAPforum 0.1 A/F                                             #
#################################################################################
function unicode ($s) { if ( (ord($s)>=192) & (ord($s)<=255) ) $hexvalue=dechex(ord($s)+848); if ($s=="Ё") $hexvalue="401"; if ($s=="ё") $hexvalue="451"; return("&#x0".$hexvalue.";");} 
function utf_encode ($s) { return(preg_replace("/[А-яЁё]/e","unicode('\\0')",$s));} 

function utf8_win ($s){
$out="";
$c1="";
$byte2=false;
for ($c=0;$c<strlen($s);$c++){
$i=ord($s[$c]);
if ($i<=127) $out.=$s[$c];
if ($byte2){
$new_c2=($c1&3)*64+($i&63);
$new_c1=($c1>>2)&5;
$new_i=$new_c1*256+$new_c2;
if ($new_i==1025){
$out_i=168;
}else{
if ($new_i==1105){
$out_i=184;
}else {
$out_i=$new_i-848;
}
}
$out.=chr($out_i);
$byte2=false;
}
if (($i>>5)==6) {
$c1=$i;
$byte2=true;
}
}
return $out;
}


?>