View file troforum_v0.1af/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));} ?>