View file barcode/index.php

<?php 
//////////////// Barcode v.1.0
//////////////// Created by Rus
//////////////// waprez.com
//////////////// [email protected]
//////////////// ICQ: 255-170-766

  Error_Reporting(E_ALL & ~E_NOTICE);
  header ("Content-type:text/vnd.wap.wml; charset=utf-8");

            $site="waprez.com"; /////// Ваш сайт
            $searchfile="base.txt"; /////// База с кодами стран

      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($s) {return(preg_replace("/[А-яЁё]/e","unicode('\\0')",$s));}

     $form = "<input name=\"code\" type=\"*N\" title=\"code\" maxlength=\"13\" size=\"13\" value=\"\"/>
     <br/><anchor><small>Проверить</small><go href=\"$PHP_SELF\" method=\"post\">
     <postfield name=\"code\" value=\"$(code)\"/></go></anchor><br/>"; 

    echo utf('<?xml version="1.0" encoding="UTF-8"?>
    <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
    <wml><card id="index" title="Штрих коды"><p>');
    if($code=="") { echo utf ("<small>Введите 13-значный штрих код товара</small><br/>"); }
    echo utf ("$form"); 
    ///////////////////////////////////////////////////////////////////////////////
   $code="$code";
   $chetod = substr("$code", 1, 1); 
   $chetdv = substr("$code", 3, 1);
   $chettr = substr("$code", 5, 1); 
   $chetch = substr("$code", 7, 1); 
   $chetpy = substr("$code", 9, 1); 
   $chetsh = substr("$code", 11, 1); 
   ///////////////////////////////////////////////////////////////////////////////
   $nechetod = substr("$code", 0, 1); 
   $nechetdv = substr("$code", 2, 1);
   $nechettr = substr("$code", 4, 1);
   $nechetch = substr("$code", 6, 1);
   $nechetpy = substr("$code", 8, 1);
   $nechetsh = substr("$code", 10, 1);
   ////////////////////////////////////////////////////////////////////////////////
   $kodtri=substr("$code", 0, 3); 
   $koddva=substr("$code", 0, 2); 
  ///////////////////////////////////////////////////////////////////////////////
  $chetnye=($chetod+$chetdv+$chettr+$chetch+$chetpy+$chetsh);
  $chetumn=($chetnye*3);
  $nechetnye=($nechetod+$nechetdv+$nechettr+$nechetch+$nechetpy+$nechetsh);
  $chetnechet=($chetnye+$nechetnye);
  $otbrdes = substr("$chetnechet", 1, 2);
  $vychdes=(10-$otbrdes);
  $kontrol = substr("$code", 12, 1);

  if (!$code=="") {
  $fp = fopen ($searchfile, "r"); 
  while (!feof($fp))
 { $read = fgets($fp, 1000); 
 @list($kod, $el) = split('::', $read);


       if (@preg_match("/\b$kodtri\b/i", "$kod")) { 
       if ($vychdes==$kontrol) {
       echo utf ("<small>Страна: $el <br/>Код верный</small>"); }
    else
       { echo utf ("<small>Страна:$el <br/>Код неверный!</small>"); }  }
    else 
       if (@preg_match("/\b$koddva\b/i", "$kod")) {
       if ($vychdes==$kontrol) {
       echo utf ("<small>Страна: $el <br/>Код верный</small>"); }
    else
       { echo utf ("<small>Страна: $el <br/>Код неверный!</small>"); }  
   
        } }  }  




      echo "<br/><br/><small>&#169; Barcode 1.0<br/>by Rus </small><br/>";
      echo "<small><a href=\"http://$site\">$site</a></small></p></card></wml>";

?>